Aí galera, alguém aí já ouviu falar do site http://haveibeenpwned.com/ ? Se sim, viu que é muito interessante, se não, corre lá, a ideia é simples: um banco de dados com uma info simples, se alguma conta sua foi vazada em ataques, e se sim, em qual ataque foi... eu por exemplo descobri que uma conta pessoal minha foi "pwned" no ataque da Adobe. :)

Bom, mas pensando nisso, eu vi lá que o desenvolvedor liberou para nós humildes mortais, uma API bem simples e que eu usei para fazer este script em Perl, você informa seu e-mail e pimba, ele diz se foi pwned ou não e em que ataque foi pwned. Bom, eu tô meio na preguiça, então eu fiz apenas input de um único e-mail no ato do comando. Mas vocês podem editar e fazer um foreach pegando vários e-mails a partir de uma lista TXT, assim fazendo uma verificação em massa...

• Download pwned.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl


# Pwned Search, tool in perl for pwned email information
# by KoubackTr - 2014
# http://koubacktr.wordporess.com/
# http://twitter.com/kouback_tr_/
#
# Greats: @unknown_br, @Atena_Unknown, @MandrivaL, @aceeeeeeeer, @FPS_Conan, @unknown_antisec, @BL4DE_, @byCrazyDuck, and all friends of #LoC !!
#

use Term::ANSIColor;
print color 'bold cyan';
print <<pwnsearch;

'||''|.                       ____      '||      .|'''.|                                  '||
 ||   || ... ... ... .. ...   ` //    .. ||      ||..  '    ....   ....   ... ..    ....   || ..
 ||...|'  ||  ||  |   ||  ||   //   .'  '||       ''|||.  .|...|| '' .||   ||' '' .|   ''  ||' ||
 ||        ||| |||    ||  ||   ''   |.   ||     .     '|| ||      .|' ||   ||     ||       ||  ||
.||.        |   |    .||. ||.   ))  '|..'||.    |'....|'   '|...' '|..'|' .||.     '|...' .||. ||.
                               //                (by KoubackTr) v1.0
                              /'

pwnsearch
print color 'reset';
$email=$ARGV[0] || die "\t\t\t[!] Enter a valid email for search.\n       code.pl <email_address>\n\n";

my @API="http://haveibeenpwned.com/api/breachedaccount/";

use LWP::UserAgent;

my $agent = LWP::UserAgent->new;
$agent->agent("Pwn3d Search/1.0 (by KoubackTr, #LoC)");

$search = HTTP::Request->new(GET => "@API/$email/");
$result = $agent->request($search);

if ($result->is_success) {
    print color 'bold red';
    print "\n";
    print "\t\t\t[ALERT!] Sorry your email $email have been pwned ";
    print $result->content;
    print "\n\n";
    print color 'reset';
}
else {
    print color 'bold green';
    print "\n";
    print "\t\t\t[SECURE!] Yahhh! your email is not pwned !! ";
    print $result->status_line,"\n\n";
    print color 'reset';
}

AUTENTICACAO VELOX

Web crawler simples em Perl

Obtendo a temperatura com Perl

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Buscar Traduções no Google Translate