in reply to (Golf) Cryptographer's Tool #1

I was pretty sure I was getting somewhere with this approach, but I ended up at 54 characters, just like chipmunk.
sub crypto{ ($_,$a,%h,$h)=@_;s/./chr($h{$&}||=vec$a,$h++,8)/gse;$_ }