das offizielle Porgramm logged sich so ein:
Code:
POST /login HTTP/1.1..Accept: */*..Cache-Control: no-cache..Content-Length: 242..Content-Type: multipart/form-data; boundary=---------------------------e5f210926b..Connection: Close..Host: uploaded.to..Pragma: no-cache..Referer: [
url]http://uploaded.to/..User-Agent:[/
url] Uploaded.to-Uploader V1.0....-----------------------------e5f210926b..Content-Disposition: form-data; name="email"....USR123..-----------------------------e5f210926b..Content-Disposition: form-data; name="password"....PWDHIER!..-----------------------------e5f210926b--.....
mein Programm macht das ein wenig anders: zuerst ruft der die login datei auf unf schickt als 2. Packet die logindaten hinterher
der code dazu funktioniert aber auf anderen Seiten auch wunderbar:
Delphi-Quellcode:
procedure TForm1.login(username, password:
string);
var
lStream: TMemoryStream;
lParams: TStringStream;
result:
string;
begin
result := '
';
lStream := TMemoryStream.create;
lParams := TStringStream.create('
');
MyHTTP.Request.ContentType := '
application/x-www-form-urlencoded';
MyHTTP.Request.Referer := '
http://uploaded.to/';
MyHTTP.Request.UserAgent := '
Uploaded.to-Uploader V1.0';
lParams.WriteString('
email='+ username +'
&password='+ password);
MyHTTP.Post('
http://uploaded.to/login',
lParams,
lStream);
SetLength(Result,lStream.Size);
lStream.Position:=0;
lStream.ReadBuffer(Result[1],lStream.Size);
Memo2.Text := result;
//temporaer um anzuzeigen was rauskommt. bisher immer eine HTML Seite die behauptet ich akzpetiere keine Cookies
lParams.Free;
lStream.Free;
end;
hier noch das was alles intialisiert wird wenn ich das prog starte:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
MyCookie := TIdCookieManager.Create(self);
MyCookie.OnNewCookie := NewCookie;
MyHTTP := TIdHTTP.Create(self);
MyHTTP.AllowCookies := true;
MyHTTP.CookieManager := MyCookie;
MyHttp.HandleRedirects := true;
MyHttp.OnRedirect := Redirection;
login('USR123', 'PWDHIER!');
stopCheck := false; //alles hier nach hat nichts mit der funktionalitaet der cookies zu tun also nicht drauf achten
dead := 0;
if fileexists('lines.txt') then
Memo1.Lines.LoadFromFile('lines.txt');
end;
und bitte auch nicht meckern ueber das nicht anwesend sein von try strukturen
