70 lines
1.9 KiB
C
70 lines
1.9 KiB
C
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
|
||
|
|
#define TEST_NAME "pwhash_scrypt_ll"
|
||
|
|
#include "cmptest.h"
|
||
|
|
|
||
|
|
/* Tarsnap test vectors, see: https://www.tarsnap.com/scrypt/scrypt.pdf */
|
||
|
|
unsigned long olenGlobal = 64ul;
|
||
|
|
|
||
|
|
uint8_t password1[] = "\0";
|
||
|
|
uint8_t salt1[] = "\0";
|
||
|
|
uint64_t N1 = 16ul;
|
||
|
|
uint32_t r1 = 1ul;
|
||
|
|
uint32_t p1 = 1ul;
|
||
|
|
|
||
|
|
uint8_t password2[] = "password\0";
|
||
|
|
uint8_t salt2[] = "NaCl\0";
|
||
|
|
uint64_t N2 = 1024ul;
|
||
|
|
uint32_t r2 = 8ul;
|
||
|
|
uint32_t p2 = 16ul;
|
||
|
|
|
||
|
|
uint8_t password3[] = "pleaseletmein\0";
|
||
|
|
uint8_t salt3[] = "SodiumChloride\0";
|
||
|
|
uint64_t N3 = 16384ul;
|
||
|
|
uint32_t r3 = 8ul;
|
||
|
|
uint32_t p3 = 1ul;
|
||
|
|
|
||
|
|
uint8_t password4[] = "pleaseletmein\0";
|
||
|
|
uint8_t salt4[] = "SodiumChloride\0";
|
||
|
|
size_t N4 = 1048576ul;
|
||
|
|
size_t r4 = 8ul;
|
||
|
|
size_t p4 = 1ul;
|
||
|
|
|
||
|
|
void test_vector(uint8_t * password, size_t passwordLength, uint8_t * salt, size_t saltLenght, uint64_t N, uint32_t r, uint32_t p, size_t olen)
|
||
|
|
{
|
||
|
|
uint8_t data[olen];
|
||
|
|
int ret = crypto_pwhash_scryptsalsa208sha256_ll(password, passwordLength, salt, saltLenght, N, r, p, data, olen);
|
||
|
|
if(ret != 0)
|
||
|
|
{
|
||
|
|
printf("crypto_scrypt_compat failed!");
|
||
|
|
}
|
||
|
|
|
||
|
|
// Print header
|
||
|
|
printf("scrypt(“");
|
||
|
|
printf(password);
|
||
|
|
printf("”, “");
|
||
|
|
printf(salt);
|
||
|
|
printf("”, %u, %u, %u, %u) =\n", N, r, p, olen);
|
||
|
|
|
||
|
|
// Print test result
|
||
|
|
int lineitems = 0;
|
||
|
|
const int lineitemsLimit = 15;
|
||
|
|
for(int i = 0; i < olen; ++i)
|
||
|
|
{
|
||
|
|
printf("%02x", data[i]);
|
||
|
|
printf((lineitems < lineitemsLimit)? " " : "\n");
|
||
|
|
lineitems = (lineitems < lineitemsLimit)? lineitems+1 : 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int main(void)
|
||
|
|
{
|
||
|
|
test_vector(password1, strlen(password1), salt1, strlen(salt1), N1, r1, p1, olenGlobal);
|
||
|
|
test_vector(password2, strlen(password2), salt2, strlen(salt2), N2, r2, p2, olenGlobal);
|
||
|
|
test_vector(password3, strlen(password3), salt3, strlen(salt3), N3, r3, p3, olenGlobal);
|
||
|
|
test_vector(password4, strlen(password4), salt4, strlen(salt4), N4, r4, p4, olenGlobal);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|