Select Code to Download

Function: bgfnTextDecrypt
    Description:
...
    Parameters
        String: LPSTR
        Receive String: LPSTR

#!perl
use strict;
...
print "Eerk3\n";
my $decrypt = substr($lpBuffer, 0, $return);
print "$decrypt\n";

#!perl
use strict;
...
    
my $pass = unpack( "L*", $lpBuffer );
print( "The pass is: $pass\n";