some perl i've written...

$a=$_=pop;s^.^$'H.^;y,:-@[-` --{-,A-Ga-f.,;crypt($a,$_)=~/.../;die$'

and then there's this beautiful is_prime() function:

sub is_prime{map{$n=$n%$_?$n:0}2..($n=pop)**.5;$n>1&&1}

sub is_prime{map{$n=$n%$_?$n:0}2..($n=pop)**.5;$n>1}

i have no idea why that &&1 was in there... that's what happens when i write code after being awake for over 70 hours...