Работа с заголовком captcha

[Bondul]

Очень срочно требуется ваша подсказка плиз подскажите правильно я всё спарсил заголовок captcha вот смотрите:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  kmg1, text, s:string;
  ms1:TMemoryStream;
  png: TPNGObject;
begin
 text:='src = "/captcha/captcha-st/captcha.php?sid=" + Math.random();';
 s:=pars('captcha.php?',text,';'); // s:= 'sid="0.14547131551023673';Примерно должно получится вот это
 s:='sid='+pars('sid="',text,';'); // s:= 'sid=0.14547131551023673';

 kmg1 := 'http://Мой сайт.ру/captcha/captcha-ff/captcha.php?sid='+s;
 ms1 := TMemoryStream.Create;
 IdHTTP1.Get(kmg1,ms1);
 ms1.Seek(0,0);
 png := TPNGObject.Create;
 png.LoadFromStream(ms1);
 image2.Picture.Assign(png);
 ms1.Free;
end;

Что здесь может быть неправильно!!!

[Mifody]

хех, а что Вам не нравится? картинка не приходит?
так мож дело не в функции а в куках? если конечно половина кода не порезана
просто капча актуальна при наличии CapthaID, иногда называется SID, но это не то, что у Вас. ID всегда выдается серваком, може в скрытом виде, но выдается

[Bondul]

Сообщение от Mifody

хех, а что Вам не нравится? картинка не приходит?
так мож дело не в функции а в куках? если конечно половина кода не порезана
просто капча актуальна при наличии CapthaID, иногда называется SID, но это не то, что у Вас. ID всегда выдается серваком, може в скрытом виде, но выдается

Ну вот ты что совсем ничего не понял мне нужно спарсить концовку

sid=' + Math.random();

[fucil]

Ни какого ты тут не получишь !
смотри :
1) text:='src = "/captcha/captcha-st/captcha.php?sid=" + Math.random();';
2) s:=pars('captcha.php?',text,';'); //тут в s присвоит: sid=" + Math.random()
3) s:='sid='+pars('sid="',text,';'); //тут в s присвоит: sid= + Math.random()

где ты тут 'src = "/captcha/captcha-st/captcha.php?sid=" + Math.random();'
нашел типа этого "0.14547131551023673'
ты ведь парсишь промежуток в тексте!

Дай ссылку на сайт тогда может и помогу найти капчу

[Bondul]

Сообщение от fucil

Ни какого ты тут не получишь !
смотри :
1) text:='src = "/captcha/captcha-st/captcha.php?sid=" + Math.random();';
2) s:=pars('captcha.php?',text,';'); //тут в s присвоит: sid=" + Math.random()
3) s:='sid='+pars('sid="',text,';'); //тут в s присвоит: sid= + Math.random()

где ты тут 'src = "/captcha/captcha-st/captcha.php?sid=" + Math.random();'
нашел типа этого "0.14547131551023673'
ты ведь парсишь промежуток в тексте!

Дай ссылку на сайт тогда может и помогу найти капчу

Ну и как же тогда получить эту фигню ссылка вот http://seosprint.net/
Там где на входе кнопка обновит капчу вот там такая фигня стоит

[Mifody]

GET запрос на http://seosprint.net/captcha/captcha-ff/captcha.php

в заголовке должно быть

Referer: http://seosprint.net/enter.php?ctr=06957ae48cab9bf505dbc635b5929495

ctr = поищи на странице

[fucil]

Немного поглядел пока только догадки.
Math.random(); - это же джава но как и где она пока непонял но что то тут связано с http://pix.am/Lt98/ посмотри по запросу не спроста получаем гет джава запрос, хотя могу ошибаться.
а ещё есть такое http://widgets.amung.us/tab.js и тут есть эта функция Math.random();, но туда ничего непередается. Как я и сказал ранее я не разбирался быстро глянул и все спешу на работу !
я все делал так:

procedure TForm6.Button1Click(Sender: TObject);
var
  html,ssylka:string;
  MS:TMemoryStream;
  png: TPngObject;
begin
html:=idhttp1.Get('http://seosprint.net');
ssylka:=Pars('btnlogin'+#39+' href='+#39,html,#39+'>');
html:='';
html:=idhttp1.Get(ssylka);
try
  MS:=TMemoryStream.Create;
  Form6.idHTTP1.Get('http://seosprint.net/captcha/captcha-ff/captcha.php',MS);
  MS.Position:=0;
  png:=TPngObject.Create;
  png.LoadFromStream(MS);
  Form6.Image1.Picture.Assign(png);
  MS.Free;
except
    on e:Exception do
    begin
      messagedlg('Ошибка подключения.',mterror, [mbok],0);
      exit;
      end;
    end;
end;

Ушел на работу прийду ещё посмотрю ...

[Bondul]

Сообщение от fucil

Немного поглядел пока только догадки.
Math.random(); - это же джава

Да вот и я не пойму откуда она считывает это Math.random();