Comando em perl para verificar se sua senha do linkedin vazou

Como voces ja’ devem saber mais de 6Mi de senha do linkedin vazaram na internet. Nao e’ dificil encontra-las, basta procurar ele arquivo combo_not.txt (~182MB).

Voce pode verificar se sua senha esta na lista de senhas que vazaram com o comando abaixo:

$ perl -MDigest::SHA -le '$h = substr( Digest::SHA::sha1_hex($ARGV[0]) , 5 ); open F, "<combo_not.txt"; do { print "found $_" if grep(/$h/, $_) } while (<F>)' suasenha

Minha senha estava na lista, mas ja realizei a troca de senha.

Update: Achei uma versao de forma mais simples que “humanos” podem entender:

$ grep $(echo -n minhasenha | shasum | cut -c6-40) combo_not.txt

Fonte: http://news.ycombinator.com/item?id=4074143