unsubscribe ti-calc -- #!/usr/local/bin/perl -- -pwcracker-in-3-lines-of-perl-plus-disclaimer $u{$p[1]}=$p[0] while(@p=getpwent);while(<>){chop;foreach $c (keys %u) {printf "u=%s p=%s\n",$u{$c},$_ if(crypt($_,$c) eq $c);}} # Use: pwc dict ...