Delphi Support

Согласен, но не вижу необходимости обзывать их код говном

 

хм, с образами осторожней, все таки есть модераторы на форуме!

все равно тот запрос что сделал Vendetta122(спасибо ему) все ровно у меня не работает)
ну что иду дальше работать_)

 

Я лично не пробовал делать запрос на сайт (не через твою программу) и поэтому не исправил запрос. Возможно дело именно в нем.

Вечером приду и решу твою проблему.

 

У меня работает, а у тебя нет? Значит в коде проблема.

 

Наверное в этом то и дело. У меня исходник не хочет компилировать из-за того, что не найден файл UcozBrute.res или что-то такое.

 

проехали, но за помощь спасибо) скоро приду с новыми вопросами гг)

 

У меня вопрос по регулярным выражениям.
Как мне спарсить пароли из этого кода.
<div dir="ltr" style="text-align: left;" trbidi="on">
Ключи для ESET nod32 от 25 июля 2013<br /><br />Имя пользователя: TRIAL-0092162340, Пароль: pvdm2v8uxk<br />Имя пользователя: TRIAL-0092162348, Пароль: xhn6sd3j8f<br />Имя пользователя: TRIAL-0092162355, Пароль: cv893ceuf5<br />Имя пользователя: TRIAL-0092162366, Пароль: tv288f935v<br />Имя пользователя: TRIAL-0092162372, Пароль: 4b8vjps9mt<br />Имя пользователя: TRIAL-0092162376, Пароль: sccsku62vt<br />Имя пользователя: TRIAL-0092162383, Пароль: pushk5247h<br />Имя пользователя: TRIAL-0092162391, Пароль: acm2pjhfjf<br />Имя пользователя: TRIAL-0092162399, Пароль: cnmeva62sx<br />Имя пользователя: TRIAL-0092162401, Пароль: hmsnrjmb4j</div>

 

регулярка:
Пароль\: (.*?)\<br

 

Регулярное выражение: Пароль: (.*?)<br />
Это только если пароль, для имени пользователя можешь сделать аналогично.

 

Что-то у меня не работает(

 

Должно все работать, если правильный код.

 

Вот какой код.

Спойлер

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, regexpr, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
GroupBox1: TGroupBox;
Memo1: TMemo;
Button1: TButton;
Panel1: TPanel;
Edit1: TEdit;
Button2: TButton;
Memo2: TMemo;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
reg:TregExpr;
Res:String;
s:string;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=Edit1.Text;
Reg:=TregExpr.Create;
res:=Idhttp1.Get(s);
reg.Expression:='[TRIAL-]{6}\d{10}';
if reg.Exec(res) then
repeat
Memo1.Lines.add(Reg.Match[0]);
until
not reg.ExecNext
else Memo1.Lines.Add('Не удалось получить логины');

reg.Expression:='Вот сюда что нужно ввести?';
if reg.Exec(res) then
repeat
Memo2.Lines.add(Reg.Match[0]);
until
not reg.ExecNext
else Memo2.Lines.Add('Не удалось получить пароли');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
Memo2.Clear;
end;

end.

 

Народ я с вами :) Тоже буду отвечать на вопросы