Help for this page
@array = unpack("C*", $string);
foreach $char (@array) { push (@xor_array, ($char ^ (shift @crypt_array))); }