1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <openssl/rand.h>
#define PACKAGE_NAME "Crypt::OpenSSL::Random"
MODULE = Crypt::OpenSSL::Random PACKAGE = Crypt::OpenSSL::Random
PROTOTYPES: DISABLE
void
random_bytes(num_bytes_SV)
SV * num_bytes_SV;
PPCODE:
{
unsigned char *rand_bytes;
int num_bytes = SvIV(num_bytes_SV);
if(New(0,rand_bytes, num_bytes, unsigned char) == NULL)
{
croak ("unable to allocate buffer for random bytes in package "
PACKAGE_NAME);
}
if(RAND_bytes(rand_bytes, num_bytes))
{
XPUSHs(sv_2mortal(newSVpv((const char*)rand_bytes, num_bytes)));
Safefree(rand_bytes);
XSRETURN(1);
}
else
{
XSRETURN_NO;
}
}
void
random_pseudo_bytes(num_bytes_SV)
SV * num_bytes_SV;
PPCODE:
{
unsigned char *rand_bytes;
int num_bytes = SvIV(num_bytes_SV);
if(New(0,rand_bytes, num_bytes, unsigned char) == NULL)
{
croak ("unable to allocate buffer for random bytes in package "
PACKAGE_NAME);
}
if(RAND_bytes(rand_bytes, num_bytes))
{
XPUSHs(sv_2mortal(newSVpv((const char*)rand_bytes, num_bytes)));
Safefree(rand_bytes);
XSRETURN(1);
}
else
{
XSRETURN_NO;
}
}
# Seed the PRNG with user-provided bytes; returns true if the
# seeding was sufficient.
void
random_seed(random_bytes_SV)
SV * random_bytes_SV;
PPCODE:
{
Size_t random_bytes_length;
char *random_bytes;
random_bytes = SvPV(random_bytes_SV, random_bytes_length);
RAND_seed(random_bytes, random_bytes_length);
XPUSHs( sv_2mortal( newSViv( RAND_status() ) ) );
}
# Seed the PRNG with data from the indicated EntropyGatheringDaemon;
# returns the number of bytes gathered, or -1 if there was a
# connection failure or if the PRNG is still insufficiently seeded.
#ifndef OPENSSL_NO_EGD
void
random_egd(egd_SV)
SV * egd_SV;
PPCODE:
{
Size_t egd_length;
int status;
char *egd = SvPV(egd_SV, egd_length);
status = RAND_egd(egd);
XPUSHs( sv_2mortal( newSViv( status ) ) );
}
#endif
# Returns true if the PRNG has enough seed data
void
random_status()
PPCODE:
{
XPUSHs( sv_2mortal( newSViv( RAND_status() ) ) );
}
|