Function: bgfnTextDecrypt
	Description:
	Export Ordinal: 0
	Returns
		Boolean: BOOL
	Parameters
		String: LPSTR
		Receive String: LPSTR

##</code><code>##

#!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";

##</code><code>##

#!perl
use strict;
use Win32::API::Prototype;
ApiLink( 'eq_handy.dll', 'BOOL bgfnTextDecrypt( LPSTRING  lpString, LPSTRING, lpBuffer )' ) || die;
my $lpString="password-crypt";
my $lpBuffer = pack( "L*", $lpString);
    
bgfnTextDecrypt($lpString);
    
my $pass = unpack( "L*", $lpBuffer );
print( "The pass is: $pass\n";