Распределенная атака на Delphi

Alek Silverstone

Хакер, номер #074, стр. 074-104-5

FindFirst(path+'Output\*.*',faAnyFile,SR); // "."

FindNext(SR); // ".."

if FindNext(SR)=0 then begin

Memo1.Lines.Clear;

Memo1.Lines.Add('Пароль найден!');

IdTCPclient1.Connect;

IdTCPclient1.SendCmd('<pass_find> '+work[j]);

Application.ProcessMessages;

DONE:=true;

break;

end;

FindClose(SR);

ProgressBar2.StepBy(1);

Application.ProcessMessages;

end;

if DONE then break;

end;

ProgressBar1.StepBy(1);

Application.ProcessMessages;

work.Free;

if DONE then break;

end;

Dict.Free;

Memo1.Lines.Add('Работа закончилась');

until DONE;

end;

CD

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

WWW

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