Допустим есть:
$string = "1234567890";
$key = "adc";
Требуеться зашифровать на perl'е xor'ом строку $string по ключу $key.
Нашел пример, который работает при length($key) == 1
$string =~ s/(.)/chr(ord($1) ^ $key)/gse;
Подскажите алгоримтм, который шифрует по большему ключу?