#!/usr/bin/env perl

use MIME::Base64;

#$str = shift || "\x08\x3a\x3d\x1e\x0c";
$b64 = shift || "\x08\x3a\x3d\x1e\x0c";

$xorkey = "\x5f";

#$b64 = MIME::Base64::encode_base64($str);

$decode = MIME::Base64::decode_base64($b64);

for ($c = 0; $c < length($decode); $c++) {
	$tmp = substr($decode, $c, 1);
	$tmp2 = $tmp ^ $xorkey;
	print "$tmp2";
}
print "\n";
