Select Code to Download

Win32::API::parse_prototype: WARNING unknown parameter type 'PVOID' at
+ C:/Strawberry32/perl/vendor/lib/Win32/API.pm line  568.
Win32::API::parse_prototype: WARNING unknown parameter type 'ULONG' at
+ C:/Strawberry32/perl/vendor/lib/Win32/API.pm line  568.
Win32::API::parse_prototype: WARNING unknown output parameter type 'IN
+T' at C:/Strawberry32/perl/vendor/lib/Win32/API.pm  line 600.
Argument "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0..."
+ isn't numeric in subroutine entry at C:/Strawberry32/perl/vendor/lib
+/Crypt/Random/Seed.pm line 247.

my $rtlgenrand = Win32::API->new( 'advapi32', <<'_RTLGENRANDOM_PROTO_'
+);
INT SystemFunction036(
...
        my $nbytes = shift;
        my $buffer = chr(0) x $nbytes;
        my $result = $rtlgenrand->Call($buffer, $nbytes); # <= 247

        open my $fh, "<", $file or die "can't open $file";
        $/ = undef;
        my $key_string = <$fh>;
        close $fh;