Не авторизуется в sprashivai.ru

Нажимаю войти не авторизуется в sprashivai.ru(
что такое?какая ошибка в коде?лог и пасс вожу правильно
Помогите пожалуйста)

 

Вы вообще держали в руках HTTP анализатор? Посмотрите еще раз внимательней на параметры которые отправляются. Я вот посмотрел и могу сказать, что они у Вас не правильные. Еще я думаю нужны заголовки!

 

Пасс надо в md5 отправлять.

Где ты тут заголовки увидел?
Походу мне тож пора подержать тоже мб увижу заголовки....
Тс есче передай хедер,

Code:

X-Requested-With:XMLHttpRequest

Мб и его проверяют мол аяксом запрос зделан иль нет.

 

Ошибся, не заголовки, а передаваемые параметры. Можно пасс и без md5 передавать. Просто надо знать где ковырять. Заголовки нужны я думаю 100%.

 

Работает в Delphi XE2.
PS:Вследующий раз HttpAnalyzerStdV5 тебе в помощь.
И да, пасс передовать нужно в md5(md5-функция есть в Cryptdll.dll).

 

значит пароль нужно передавать в md5?
где значит нужно дописать чтоб расшифровывал пароль?

 

да

А вот смысл этой фразы я не понял. Напиши более понятно, что хотел спросить.

 

ты писал что нужно передать пароль в md5,но как сделать чтоб он передавал?

 

https://forum.antichat.ru/thread314639.html
для вас старался, а вы поиск заюзать обламываетесь...

 

Да что-то я перегнул с импортом фунций из Cryptdll.dll. Вон shadowrun правильно ответил и ссылку дал. В его коде это есть посмотри.

Работает в Delphi XE2.
Кстати вот здесь ещё неплохо написано http://www.webdelphi.ru/2010/05/kriptografiya-v-delphi-sredstvami-indy-i-synapse/
О забыл сказать надо подключить модуль IdHashMessageDigest.

 

var str,z:string; n:integer;
Data:TStringList;
Request:String;
HTTP:TIdHTTP;
begin


idhttp1.CookieManager:=idcookiemanager1;
Data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
Data.Add('email='+ edit3.text);
Data.Add('pass='+ edit4.text);
MD5:=TIdHashMessageDigest5.Create;
Pass:=MD5.HashStringAsHex(Edit4.Text);
MD5.free;
Data.Add('return=http://sprashivai.ru/');
try
Request:=HTTP.Post('http://sprashivai.ru/login',Data);
if Pos('ok',Request)<>0 then
begin
ShowMessage('Авторизация прошла успешно');
end
else
begin
ShowMessage('Авторизация не удалась');
end;
finally
Data.Free;
Request:='';
HTTP.Free;
end;
end;
я поставил ,но в MD5:=TIdHashMessageDigest5.Create; ошибку выдаёт

 

Ну во первых всевидящий шар который показывает что это за ошибка в твоем коде я потерял.
А нет нашел под столом.
Короче в var надо добавить md5:TIdHashMessageDigest;
Вот эти строки

замени на

Ну вроде все.
А нет в uses добавь модуль IdHashMessageDigest.

 

И смотри ссылки которые дают тебе люди, может чего-нибудь там полезное отроешь.

 

2echnoman,спасибо за всё)
Только у меня снова не авторизирует
Через HttpAnalyzerV5 посмотрел,пасс норм,вот только интересует почему тут 2passa
email repost
pass derf567845
pass 833D6B221B89B0A7D7B4566A973D92AD
return http://sprashivai.ru/

 

Большие буквы

 

Это тут pass 833D6B221B89B0A7D7B4566A973D92AD ????
Как сделать чтоб маленькими были?

 

LowerCase()

 

Mr.Snuffer,так?
LowerCase(Edit4.Text);

 

Вот так

Странно что отправляется два пароля. Покажика ещё раз свой код.

 

procedure TForm1.Button1Click(Sender: TObject);
var str,z:string; n:integer;
md5:TIdHashMessageDigest;
Data:TStringList;
Request:String;
HTTP:TIdHTTP;
begin


idhttp1.CookieManager:=idcookiemanager1;
Data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
Data.Add('email='+ edit3.text);
Data.Add('pass='+ LowerCase (edit4.text));
MD5:=TIdHashMessageDigest5.Create;
Data.Add('pass='+ MD5.HashStringAsHex(Edit4.Text));
MD5.free;
Data.Add('return=http://sprashivai.ru/');
try
Request:=HTTP.Post('http://sprashivai.ru/login',Data);
if Pos('ok',Request)<>0 then
begin
ShowMessage('Авторизация прошла успешно');
end
else
begin
ShowMessage('Авторизация не удалась');
end;
finally
Data.Free;
Request:='';
HTTP.Free;
end;
end;

end.