Descubra se seu e-mail ou conta foi "pwned"
Publicado por Perfil removido (última atualização em 18/12/2013)
[ Hits: 3.290 ]
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'; }
Tweetin - Poste tweets pelo terminal
Script para fazer buscas no arquivo de logs do squid
Descobrir operadora de celular
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)