#!perl
#use strict;
use Win32::API::Prototype;
ApiLink( 'eq_handy.dll', 'BOOL bgfnTextDecrypt( LPSTR  lpString, LPSTR, lpBuffer )' ) || die ($!);
my $passphrase="encrypt-phrase";

my $lpString = pack( "L2", $passphrase,0);
   
print "Hi there\n";
$nBufferLength = 256;
$lpBuffer = NewString( $nBufferLength );
if (bgfnTextDecrypt($lpString,$lpBuffer, $nBufferLength)) {
        print "It worked!\n"; }
   

my $pass = unpack( "L*", $lpBuffer );
print "The pass is:",$pass,"\n";

##</code><code>##

Hi there
It worked!
The pass is:189