#!/usr/bin/perl
@xlat = ( 0x64, 0x73, 0x66, 0x64, 0x3b, 0x6b, 0x66, 0x6f, 0x41,
	  0x2c, 0x2e, 0x69, 0x79, 0x65, 0x77, 0x72, 0x6b, 0x6c,
	  0x64, 0x4a, 0x4b, 0x44, 0x48, 0x53 , 0x55, 0x42 );
	$in = $ARGV[0];
	$ep = $in; $dp = "";
	($s, $e) = ($in =~ /^(..)(.+)/o);
	for ($i = 0; $i < length($e); $i+=2) {
	    $dp .= sprintf "%c",hex(substr($e,$i,2))^$xlat[$s++];
	}
	print "\n$dp\n\n";