#!/usr/bin/perl
use strict;
use diagnostics;
use Crypt::C_LockTite;
my %keys = (
2147000000 => '4927a289d5308320bb88b4b0d408c148',
);
my $MAC_txt = 'MAC generator text';
my $cl = Crypt::C_LockTite->new;
foreach(keys %keys) { # get the one and only key
@_ = ($MAC_txt,$_);
my $prekey = $cl->md5(@_);
$cl->new_crypt($prekey);
my $realkey = pack('H*', $keys{$_});
$cl->decrypt($realkey);
my $rk2 = $realkey;
$cl->new_crypt($realkey);
print unpack('H*', $realkey), "\n";
}
# the other way
my $id = '12345';
my $seed = 'BizSystems';
my $p = Crypt::C_LockTite->new;
my $tmp = $p->md5($id); # md5 of client ID
my $otherkey = $p->new_md5_crypt($seed)->encrypt($tmp); # encrypt with seed
print unpack('H*', $otherkey), "\n";