in reply to Re^2: Perl function equivalent to PHP xormask
in thread Perl function equivalent to PHP xormask

#!/usr/bin/perl
use warnings;
use strict;
use MIME::Base64;

my $XORmask = "T|808|586|127800" ^ decode_base64('Z0xcAVtKAwkDHVcKVF5T
+CQ');
print $XORmask."\n";
print $XORmask ^ decode_base64('Z0xcAVdKAwkAHVcKUF5VAA')."\n";
print $XORmask ^ decode_base64('Z0xcAVRKAwkAHVcKUF9bAA')."\n";

[download]
poj

In Section Seekers of Perl Wisdom