Select Code to Download

sub php_xor {
  my ($p1,$p2) = @_;
  my $len = length($p1) < length($p2) ? length($p1) : length($p2);
  return substr($p1,0,$len) ^ substr($p2,0,$len);
}

use MIME::Base64;
use Digest::MD5 qw(md5 md5_hex md5_base64);
...
}

print md5_decrypt('2EC0KFZ1aGghEdySB+5Y9nbAfMrk9ky/89vwlA4HyTU=', '34g
+iu34hgiu34hg') . "\n";