Select Code to Download

my $obj =  lockpan(); //interacts with a vb6 dll
my $enc_data = obj->encryptval($data); //returns binary val
$enc_data = '0x' . unpack('H*', $enc_data); //bin -> hex
#$enc_data is then written to a sql db as 7 bit ascii even parity

//enc_data is a hex formatted string generated by the the COM object m
+y .net apps interact with. but in order for the .net app to decrypt t
+he hex value returned by the same com object to perl the hex string m
+ust be transformed into the appropriate parity format by doing the fo
+llowing

...

            return (constructedString);
        }