Dogcows Code - chaz/p5-File-KDBX/blob - t/kdf.t

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 't/lib';
   7 use TestCommon;
   8
   9 use File::KDBX::Constants qw(:kdf);
  10 use File::KDBX::KDF;
  11 use Test::More;
  12
  13 subtest 'AES KDF' => sub {
  14     my $kdf1 = File::KDBX::KDF->new(uuid => KDF_UUID_AES, seed => "\1" x 32, rounds => 10);
  15     my $result1 = $kdf1->transform("\2" x 32);
  16     is $result1, "\342\234cp\375\\p\253]\213\f\246\345\230\266\260\r\222j\332Z\204:\322 p\224mhm\360\222",
  17         'AES KDF basically works';
  18
  19     like exception { $kdf1->transform("\2" x 33) }, qr/raw key must be 32 bytes/i,
  20         'Transformation requires valid arguments';
  21 };
  22
  23 subtest 'Argon2 KDF' => sub {
  24     my $kdf1 = File::KDBX::KDF->new(
  25         uuid        => KDF_UUID_ARGON2D,
  26         salt        => "\2" x 32,
  27         iterations  => 2,
  28         parallelism => 2,
  29     );
  30     my $r1 = $kdf1->transform("\2" x 32);
  31     is $r1, "\352\333\247\347+x#\"C\340\224\30\316\350\3068E\246\347H\263\214V\310\5\375\16N.K\320\255",
  32         'Argon2D KDF works';
  33
  34     my $kdf2 = File::KDBX::KDF->new(
  35         uuid        => KDF_UUID_ARGON2ID,
  36         salt        => "\2" x 32,
  37         iterations  => 2,
  38         parallelism => 3,
  39     );
  40     my $r2 = $kdf2->transform("\2" x 32);
  41     is $r2, "S\304\304u\316\311\202^\214JW{\312=\236\307P\345\253\323\313\23\215\247\210O!#F\16\1x",
  42         'Argon2ID KDF works';
  43 };
  44
  45 done_testing;