perl -MMIME::Base64 -e '$_="Z0xcAVtKAwkDHVcKVF5TCQ"; @i=split //,decode_base64($_); @t=split //,"T|808|586|127800"; printf("%3d: %02x %02x\n",$_,ord($i[$_]),ord($t[$_])) for (0..$#i)' 0: 67 54 1: 4c 7c 2: 5c 38 3: 01 30 4: 5b 38 5: 4a 7c 6: 03 35 7: 09 38 8: 03 36 9: 1d 7c 10: 57 31 11: 0a 32 12: 54 37 13: 5e 38 14: 53 30 15: 09 30