Трепанация для почтовой мыши

Фленов Михаил

Xakep, номер #066, стр. 066-108-4

Зашиваем?

Как видишь, все очень просто, и никому не потребовалось выяснять засекреченные форматы. Теперь ты можешь использовать мыльники из The BAT в своих корыстных целях. Таким же методом можно вытащить что угодно из любого файла и с небольшими изменениями в коде. Главное, чтобы не было шифрования, иначе количество проблем увеличится в несколько раз.

Лично я считаю, что в наше спамерское время e-mail адреса друзей являются секретной информацией, и будет обидно, если именно от тебя твоему другу придет письмо с вирусом или спамом из-за того, что программисты The Bat! поленились зашифровать адресную книгу.

Листинг 1

procedure TService1.ServiceAfterInstall(Sender: TService);

var

AddrBook: TFileStream;

OutStream: TStringList;

FileArray: array [0..1024] of char;

Addr: String;

i, index: Integer;

begin

//Открываем файл

AddrBook:=TFileStream.Create('E:\The Bat!\MAIL\TheBat.ABD', fmOpenRead);

//

OutStream:=TStringList.Create;

Addr:='';

index:=AddrBook.Read(FileArray, 1024);

//Цикл чтения из файла

while index>0 do

begin

//Цикл сканирования прочитанного буфера

for i:=0 to index do

begin

// Это доступный символ?

if ((FileArray[i]>'A') and

(FileArray[i]<'z')) or

(FileArray[i]='.') or

(FileArray[i]='@') then

Addr:=Addr+FileArray[i]

else

begin

// В переменной Addr уже e-mail, то можно сохранять

if (FileArray[i]=#13) and (Length(Addr)>0) and (pos('@', Addr)>2) then

OutStream.Add(Addr);

Addr:='';

end; end;

index:=AddrBook.Read(FileArray, 1024);

end;

// Сохраняем все в файл

OutStream.SaveToFile('c:\email.txt');

// Очищаем память объектов

OutStream.Free;

AddrBook.Free;

end;

CD

На компакт-диске лежат полные исходные коды сервиса.

WWW

Если ты покупаешь журнал без диска, то ищи на сайте www.xakep.ru исходные коды в разделе Х-релиз.

INFO

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

WARNING

Мы показали вскрытие адресной книги исключительно в целях обучения. Использование этой инфы с целью написания вирусов – незаконно.