1 #define PERL_NO_GET_CONTEXT
8 #include <scrypt-1.2.1/lib/crypto/crypto_scrypt.h>
10 MODULE = Authen::Passphrase::Scrypt PACKAGE = Authen::Passphrase::Scrypt
15 crypto_scrypt(const uint8_t *passwd, size_t length(passwd), \
16 const uint8_t *salt, size_t length(salt), \
17 uint64_t N, uint32_t r, uint32_t p, size_t buflen)
21 Newx(buf, buflen, uint8_t);
22 err = crypto_scrypt(passwd, XSauto_length_of_passwd, salt, XSauto_length_of_salt, N, r, p, buf, buflen);
24 croak("Error in crypto_scrypt");
25 RETVAL = newSVpvn((const char* const)buf, buflen);