ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button2Click(Sender: TObject);  var  Captcha:TMemoryStream;  s,CapchaID, sec_cap:string;  gif : TGifImage;  begin  gif := TGIFImage.Create;  s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1');  CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1);  sec_cap:=(Copy(CapchaID,pos(',',CapchaID)+1,length(CapchaID)-pos(',',CapchaID)+1));  captcha:=TMemoryStream.Create;  idHTTP1.Get('http://wen.ru/secure/gif.php?'+CapchaID, captcha);  captcha.SaveToFile('captcha.gif');  Image1.Picture.LoadFromFile('captcha.gif');  Captcha.Free;  gif.Free;  end;

procedure TForm1.Button1Click(Sender: TObject);
var
captcha, name, s, CapchaID, sec_cap : string;
params:tstringlist;
begin
s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1');
CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1);
sec_cap:=Copy(CapchaID,1, pos(',',CapchaID)-1);
captcha:=Edit2.Text;
name:=edit3.Text;
params:=TStringList.Create;
try
params.Add('author='+name);
params.Add('message='+Memo1.Lines.Text);
params.Add('tr=n');
params.Add('uid='+Edit1.Text);
params.Add('add=1');
params.Add('code='+captcha);
params.Add('cid='+sec_cap);
params.Add('lng=ru');
idhttp1.Post('http://wen.ru/gb/',params);
finally
params.free;
end;
end;