#!/usr/bin/perl

use Crypt::Rijndael;

my $key = "1A2B3C4D5E6FA1B2C3D4E5F61A2B3C4D";
$key = pack("H*",$key);

$crypt = Crypt::Rijndael->new( $key, Crypt::Rijndael::MODE_ECB() );

my $vers = 1;
my $rand = 1002247;
my $time = 1317072992;
my $empid = 123;
my $sum = 103;

$packed = pack( "CLLLC", $vers, $rand, $time, $empid, $sum );

my $token = $crypt->encrypt($packed^("\0"x16));
$token = unpack("H*",$token);

print "---------+---------+---------+--\n";
print $token,"\n";

exit;