Помогите С Авторизацией На Сайте

[Oxygene]

Есть сайт http://wm-seo.ru/
Как можно подделать такой Post запрос в INDY или Synapse?
Если при каждой авторизации цифры после рисок меняются.
И даные здесь в многострочном режиме отправляються.

-----------------------------156612445916754
Content-Disposition: form-data; name="auth[email]"

my@mail.ru
-----------------------------156612445916754
Content-Disposition: form-data; name="auth[password]"

password
-----------------------------156612445916754
Content-Disposition: form-data; name="captchastring"

52
-----------------------------156612445916754
Content-Disposition: form-data; name="clientlog_form"

Выполнить Вход
-----------------------------156612445916754--

 

[Sascha]

http://wm-seo.ru/captcha.php
вот заноси картинку и авторизируйся

 

[Oxygene]

http://wm-seo.ru/captcha.php
вот заноси картинку и авторизируйся

Пробывал не получается.
При каждой последующей авторизации это значение меняется
-----------------------------156612445916754
Как мне его узнать?

 

[Lomanu4]

Смотри какой тип данных выдает эти цифры,подсчитай количество и парад от до или же кассы полностью html страницу и разберай ее программно .

 

[Sascha]

procedure TForm1.Button1Click(Sender: TObject);
var
data:TStringList;

begin
data:=tstringlist.create;
Data.Add('auth[email]' +Edit1.text);///логин
data.Add('application/octet-stream');
Data.Add('auth[password]' +Edit2.text);///пароль
Data.Add('captchastring' +Edit3.text);///картинка
idhttp1.post('http://wm-seo.ru/login.php?mod=enter',data);
Memo1.Lines.Add(IdHTTP1.ResponseText);
Memo1.Lines.Add(data.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
begin
img:=TMemoryStream.Create;
IdHTTP1.Get('http://wm-seo.ru/captcha.php?.png',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
begin
img:=TMemoryStream.Create;
IdHTTP1.Get('http://wm-seo.ru/captcha.php?.png',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
end;