Ĺadny brzuch
kumpel ma maila postaci aaaabbcccccccccc@costam.pl ostatnio chcial odzyskac zapomniane dane postaci do tibii i okazalo sie ze nie pamieta ile razy powtarzaja sie kolejne literki :) prosi mnie zebym napisal bota ktory sprobowalby wszystkie kombinacje, a wiec aabc@costam aaabc@costam itd.
formularz odyskiwania jest tutaj http://www.tibia.com...pic=lostaccount
nazwe postaci pamieta, wiec wystarczy teraz probowac kolejne maile :)
formularz wyglada tak ze po kolejnych pytaniach wpisane wartosci sa przechowywane w polach hidden kolejnych stron, na ostatniej wyglada to tak (wycialem wszystkie niepotrzebne dane):
<FORM ACTION="http://www.tibia.com/service/?subtopic=lostaccount" METHOD=post> <INPUT TYPE=hidden NAME="character" VALUE="odpowiednianazwa"><INPUT TYPE=radio NAME="step" VALUE="sendboth" CHECKED> Yes, send it by email.<BR> Account email address:<INPUT NAME="email" VALUE="" SIZE=30 MAXLENGTH=50> <INPUT TYPE=radio NAME="step" VALUE="provider"> I have lost access to that email account.<BR> <INPUT TYPE=radio NAME="step" VALUE="think"> I do not know that email address anymore. <INPUT TYPE=image NAME="Submit" SRC="http://static.tibia.com/IMAGES/GLOBAL/sbutton_submit.gif" BORDER=0 WIDTH=120 HEIGHT=18> </FORM>
a po podaniu niepoprawnego maila (strona podaje ze mail jest nieprawilowy a przycisk wraca do poprzedniej strony formularza):
<FORM ACTION=http://www.tibia.com/service/?subtopic=lostaccount METHOD=post> <INPUT TYPE=hidden NAME=step VALUE=both> <INPUT TYPE=hidden NAME=character VALUE="odpowiednianazwa"> <INPUT TYPE=hidden NAME=email VALUE="podanyemail"> <INPUT TYPE=image NAME="Back" ALT="Back" SRC="http://static.tibia.com/IMAGES/GLOBAL/sbutton_back.gif" BORDER=0 WIDTH=120 HEIGHT=18>
napisalem kod w delphi uzywajac indy 10:
procedure TForm1.Button1Click(Sender: TObject); var ms:TMemoryStream; ms2 : TStringStream; begin ms2 := TStringStream.Create(''); ms:= TMemoryStream.Create; try ms2.WriteString('character="poprawnanazwa"&step="both"&email="abc@da. pl"'); lol.Post('http://www.tibia.com/service/?subtopic=lostaccount',ms2,ms); ms.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test.html'); finally ms.Free; end; end;
jednak zapisany plik html jest dokladnie taki jakby nie podano zadnych danych (pierwsza strona formularza).
jak to naprawic? bylbym bardzo wdzieczny za pomoc (i kumpel tez ;) )
Użytkownik Deadeye edytował ten post 08 grudzień 2006, 19:53
hah, poradzilem sobie sam... okazalo sie ze artykul na 4p byl mylacy, pisali tam ze przy post mozna w ten sam sposob wygenerowac ciag nazwa-wartosc a tak nie jest. o to poprawna forma jak ktos jest zainteresowany
data:=TIdMultiPartFormDataStream.Create; data.AddFormField('character','costam'); data.AddFormField('step','sendboth'); data.AddFormField('email','costam'); memo1.Lines.Text:=lol.Post('http://www.tibia.com/service/?subtopic=lostaccount',data) ;
mozna zamknac
Użytkownik Deadeye edytował ten post 08 grudzień 2006, 22:21
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
formularz odyskiwania jest tutaj http://www.tibia.com...pic=lostaccount
nazwe postaci pamieta, wiec wystarczy teraz probowac kolejne maile :)
formularz wyglada tak ze po kolejnych pytaniach wpisane wartosci sa przechowywane w polach hidden kolejnych stron, na ostatniej wyglada to tak (wycialem wszystkie niepotrzebne dane):
<FORM ACTION="http://www.tibia.com/service/?subtopic=lostaccount" METHOD=post> <INPUT TYPE=hidden NAME="character" VALUE="odpowiednianazwa"><INPUT TYPE=radio NAME="step" VALUE="sendboth" CHECKED> Yes, send it by email.<BR> Account email address:<INPUT NAME="email" VALUE="" SIZE=30 MAXLENGTH=50> <INPUT TYPE=radio NAME="step" VALUE="provider"> I have lost access to that email account.<BR> <INPUT TYPE=radio NAME="step" VALUE="think"> I do not know that email address anymore. <INPUT TYPE=image NAME="Submit" SRC="http://static.tibia.com/IMAGES/GLOBAL/sbutton_submit.gif" BORDER=0 WIDTH=120 HEIGHT=18> </FORM>
a po podaniu niepoprawnego maila (strona podaje ze mail jest nieprawilowy a przycisk wraca do poprzedniej strony formularza):
<FORM ACTION=http://www.tibia.com/service/?subtopic=lostaccount METHOD=post> <INPUT TYPE=hidden NAME=step VALUE=both> <INPUT TYPE=hidden NAME=character VALUE="odpowiednianazwa"> <INPUT TYPE=hidden NAME=email VALUE="podanyemail"> <INPUT TYPE=image NAME="Back" ALT="Back" SRC="http://static.tibia.com/IMAGES/GLOBAL/sbutton_back.gif" BORDER=0 WIDTH=120 HEIGHT=18>
napisalem kod w delphi uzywajac indy 10:
procedure TForm1.Button1Click(Sender: TObject); var ms:TMemoryStream; ms2 : TStringStream; begin ms2 := TStringStream.Create(''); ms:= TMemoryStream.Create; try ms2.WriteString('character="poprawnanazwa"&step="both"&email="abc@da. pl"'); lol.Post('http://www.tibia.com/service/?subtopic=lostaccount',ms2,ms); ms.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test.html'); finally ms.Free; end; end;
jednak zapisany plik html jest dokladnie taki jakby nie podano zadnych danych (pierwsza strona formularza).
jak to naprawic? bylbym bardzo wdzieczny za pomoc (i kumpel tez ;) )
Użytkownik Deadeye edytował ten post 08 grudzień 2006, 19:53
hah, poradzilem sobie sam... okazalo sie ze artykul na 4p byl mylacy, pisali tam ze przy post mozna w ten sam sposob wygenerowac ciag nazwa-wartosc a tak nie jest. o to poprawna forma jak ktos jest zainteresowany
data:=TIdMultiPartFormDataStream.Create; data.AddFormField('character','costam'); data.AddFormField('step','sendboth'); data.AddFormField('email','costam'); memo1.Lines.Text:=lol.Post('http://www.tibia.com/service/?subtopic=lostaccount',data) ;
mozna zamknac
Użytkownik Deadeye edytował ten post 08 grudzień 2006, 22:21