ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
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..
|
|
|
|
27.04.2010, 19:56
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Всем спасибо, но ничего не помогло |
|
|
|
27.04.2010, 20:06
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Сообщение от stepashka_
Всем спасибо, но ничего не помогло Мб капча вылезла и тупо не авторизирует? 
|
|
|
|
27.04.2010, 23:13
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от HakaR
Мб капча вылезла и тупо не авторизирует? Да не всё Ок там 
Подскажите можно как то провереный акк удалять из мемо1? после того как он сохранился в мемо2-3
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
