Quote |
My password consists of 4 lowercase words of english, finnish and quenya. |
Code Sample |
#!/usr/bin/perl # curagacrack.pl my $n = 30; # max len of passphrase my @set = ( "ä", "ö", "a" .."z" ); # ranges and lists to permute my $result; sub create_perm($$){ my($cur,$max)=@_; if($cur>=$max){ # print "$result\n"; setpgrp (0,0); system("echo $result | 2>/dev/null /opt/tor/local/bin/openssl bf -pass stdin -d -in encryptefile -out out.txt && file -b out.txt | grep -q '^ASCII text' && echo -n 'Found passphrase: ' && echo $result && kill 0"); return; } for(@set){ substr($result,$cur,1)=$_; create_perm($cur+1,$max); } } for ($j=1;$j<=$n;$j++){ create_perm(0,$j); } |