Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Гейт на Дельфи

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Для начинающих] >> Гейт на Дельфи

Имя

Сообщение

<< Старые топики Новые топики >>

Гейт на Дельфи - 2008-12-17 22:04:46.710000

Alex 111

Сообщений: 124
Оценки: 0
Присоединился: 2008-11-05 05:02:05.753333

Доброе время сутак.

Нашол на одном форуми Геит для пересылки IP на сайт. Вот код.

if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){
 $IP = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
 $proxyip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
 }else{
 $IP = $HTTP_SERVER_VARS["REMOTE_ADDR"];
 }

Как я понил эта скрипт который будет стоять на www.mysite.com/myscript.php
А второй код как я понил написан на паскали. Вот в нем я нимогу разобратся
что с ним делать.

uses winsock;
 
 var
 get:string;
 s:TSOCKET;
 addr:sockaddr_in;
 
 Begin
 get:='';// здесь гет запрос:)
   s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
   FillChar(addr, SizeOf(sockaddr_in), 0);
   addr.sin_family:=AF_Inet;
   addr.sin_port:=htons(80);
   addr.sin_addr.S_addr:=inet_addr(IP хоста)  ;
   Connect(S,addr,SizeOf(TSockAddr));
   Send(...) ;//GET запрос.
   application.processmessage;
   Shutdown(S,SD_Send);
   closesocket(s);
 End;

Что мне с ним делать? кто знает потскажите если не затруднит.
блогадарю зарания.