return undef if (!$id || !$hrkey);
my $key = pack("H".(length($hrkey)), $hrkey);
my $cipher = new Crypt::Blowfish $key;
my $r = ReadPasswordFromFile($id, $cipher);
if ($r) {
return undef if (!$id || !$hrkey);
my $key = pack("H".(length($hrkey)), $hrkey);
my $cipher = new Crypt::Blowfish $key;
my $r = ReadPasswordFromFile($id, $cipher);
if ($r) {