Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
27.04.2010, 17:38
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
106
|
|
например так:
proverka:=idhttp1.get(lallalalal) //авторизация на сайте
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
else
memo2.Lines.Add(log+':'+pass)
//вместо выход можно написать logoff если ты авторизуешься на vk.com
ну как то так
P.S. писал тут сразу
|
|
|
27.04.2010, 17:48
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от Vlad3d
например так:
proverka:=idhttp1.get(lallalalal) //авторизация на сайте
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
else
memo2.Lines.Add(log+':'+pass)
//вместо выход можно написать logoff если ты авторизуешься на vk.com
ну как то так
P.S. писал тут сразу
Если пасс верный то всё ГУД
Если пасс не верный, выскакивает ошибка 
В мемо ничего не пишет 
|
|
|
|
27.04.2010, 18:01
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
106
|
|
proverka:=idhttp1.get(lallalalal)
try
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
....
except
memo2.Lines.Add(log+':'+pass)
.....
так может
|
|
|
|
27.04.2010, 18:17
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
неа, та же ошибка |
|
|
|
27.04.2010, 18:18
|
|
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
Провел на форуме:
1605524
Репутация:
523
|
|
Сообщение от stepashka_
неа, та же ошибка запусти без дебагера/дельфи
|
|
|
|
27.04.2010, 18:29
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от AquaKlaster
запусти без дебагера/дельфи
тоже самое
|
|
|
|
27.04.2010, 18:45
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
stepashka_,
кинь полностью код!
|
|
|
|
27.04.2010, 18:47
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
procedure TForm1.Button3Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
memo3.lines.add(log + ':' + pass)
else
memo2.lines.add(log + ':' + pass);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
вот
|
|
|
|
27.04.2010, 19:21
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Вот так попробуй:
PHP код:
uns := idhttp1.Get('http://vk.com/profile.php');
if Pos('http://vk.com/profile.php', uns) = 0 then
memo3.lines.add(log + ':' + pass)
else
begin
memo2.lines.add(log + ':' + pass);
end;
Последний раз редактировалось HakaR; 27.04.2010 в 19:30..
|
|
|
|
27.04.2010, 19:36
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Не много бредовая идея, но работает(то номера мемо проверь)
PHP код:
procedure TForm3.btn1Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
try
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
uns := idhttp1.Get('http://vk.com/');
memo3.lines.add(log + ':' + pass);
except
On E: Exception do begin
memo2.lines.add(log + ':' + pass);
memo3.Lines.Delete(memo3.Lines.Count);
end;
end;
idckmngr1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
idckmngr1.AddCookie('remixchk=5; path=/;','vk.com');
end;
Последний раз редактировалось fenixelite; 27.04.2010 в 19:59..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
