Descubra se seu e-mail ou conta foi "pwned"
Publicado por Perfil removido (última atualização em 18/12/2013)
[ Hits: 3.088 ]
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...
#!/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'; }
Localizador de palavras em arquivos nao binarios
Obtendo o IP público (Internet) usando o Perl
Deixando o Gnome bonitão em qualquer distribuição
Como ativar o módulo de cancelamento de ruído no Pipewire
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Como fazer um pendrive butável dar boot no VirtualBox
Corrigindo Saída de Som Invertida no Linux
executar arquivo como programa pelo terminal linux ubuntu (6)
Problema com o Apache NetBeans IDE 21 no Debian 12 (5)
GRUB do Debian 12 não detecta segundo Linux instalado em partição BTRF... (28)
Me ajudem a corrigir esse erro que está dando no meu Virtual Box! (3)