Another WTDI:

sub foo {
    my @copy = @_;
    for (@copy) {
        my $counter;
        s/(.)/chr ++$counter + ord $1/ge;
    }
    return @copy;
}

print foo('asdf');
[download]

The s/// line is the line that does the actual "encryption".

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.