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;$_
    }
[download]