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