#!/usr/bin/perl
  2
  3 $msg = "this is a test messagez";
  4 $key = 0x4fcb;
  5 print "$msg\n";
  6
  7 @array = split(/(..)/, $msg);
  8
  9 
 10 printf "key: %x\n", $key;
 11
 12 $xitem =  unpack("H*", $array[1]) ^ $key;
 13 print  "item: $array[1] = hex " . unpack("H*", $array[1]) . "\n";
 14 printf ("xored item \'%x\', want 0x3ba3\n", $xitem);