ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program getip;
{$APPTYPE CONSOLE}

uses windows,wininet;
{-----------------------------------}
function DownloadURL(const aUrl: string; pBuf: pChar; dwSize: cardinal): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  dwBytesRead: DWORD;
begin
 Result := False;
 hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 if hSession<>nil then begin
  hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
  if hService<>nil then begin
   if not InternetReadFile(hService, pBuf, dwSize, dwBytesRead) then begin
    InternetCloseHandle(hService);
	InternetCloseHandle(hSession);
    exit;
   end;
   InternetCloseHandle(hService);
  end else begin
   InternetCloseHandle(hSession);
   exit
  end; 
  InternetCloseHandle(hSession);
 end else exit;
 result:=true;
end;
{-----------------------------------}
function GetRealIp():string;
var buf:array[0..4096]of char;
    s,ip:string;
    i1,i2:integer;
begin
 result:='';
 if not DownloadURL('http://www.cmyip.com/',@buf,sizeof(buf)) then exit;
 s := string(pChar(@buf));
 i1:= pos('My IP is  ',s) + 10;
 i2:= pos('   - Quick and Easy way to SEE my IP address - CmyIP.com',s);
 result:=copy(s,i1,i2-i1);
end;

BEGIN
 writeln(GetRealIp());
END.