...for ($posx = 0; $posx < $strlen; $posx++) {
$tval = ord(substr($instring,$posx,1));
$h1 = int($tval/16);
$h2 = int($tval - ($h1*16));
$retval .= $hexvals[$h1] . $hexvals[$h2];
}
return($retval);
}
sub hex2string {
my($instring) = @_;
my($retval,$strlen,$posx);
$strlen =...