#!perl
use strict;
use Win32::API;

my $bgfnTextDecrypt = new Win32::API('eq_handy', 'bgfnTextDecrypt','PP','P');
if(not defined $bgfnTextDecrypt) {
    die "Can't import API bgfnTextDecrypt: $!\n";
    }
print "Eerk\n";
my $lpBuffer = " " x 80;
print "Eerk2\n";
my $return = $bgfnTextDecrypt->Call('password-crypt', $lpBuffer);
print "Eerk3\n";
my $decrypt = substr($lpBuffer, 0, $return);
print "$decrypt\n";