Crypt-Perl

 view release on metacpan or  search on metacpan

t/Crypt-Perl-ECDSA-Deterministic.t  view on Meta::CPAN

        [ sha512 => '16200813020ec986863bedfc1b121f605c1215645018aea1a7b215a564de9eb1b38a67aa1128b80ce391c4fb71187654aaa3431027bfc7f395766ca988c964dc56d' ],
    ),

    (
        map {
            my ($hashfn, $expect, $blksize) = @$_;

            {
                label => "K-163, $hashfn",
                order => '4000000000000000000020108A2E0CC0D99F8A5EF',
                key => '09A4D6792295A7F730FC3F2B49CBC0F62E862272F',
                hash => $hashfn,
                expect => $expect,
            },
        }
        [ sha1 => '14cab9192f39c8a0ea8e81b4b87574228c99cd681' ],
        [ sha224 => '91dd986f38eb936be053dd6ace3419d2642ade8d' ],
        [ sha256 => '193649ce51f0cff0784cfc47628f4fa854a93f7a2' ],
        [ sha384 => '37c73c6f8b404ec83da17a6ebca724b3ff1f7eeba' ],
        [ sha512 => '331ad98d3186f73967b1e0b120c80b1e22efc2988' ],
    ),

t/Crypt-Perl-ECDSA-Deterministic.t  view on Meta::CPAN

        [ sha512 => '21ce6ee4a2c72c9f93bdb3b552f4a633b8c20c200f894f008643240184be57bb282a1645e47fbbe131e899b4c61244efc2486d88cdbd1dd4a65ebdd837019d02628d0dcd6ed8fb5' ],
    ),
);

#----------------------------------------------------------------------

use constant _SAMPLE_TESTS => (
    {
        label => 'detailed example from RFC',
        order => '4000000000000000000020108A2E0CC0D99F8A5EF',
        key => '09A4D6792295A7F730FC3F2B49CBC0F62E862272F',
        hash => 'sha256',
        expect => '23af4074c90a02b3fe61d286d5c87f425e6bdd81b',
    },

    {
        label => 'python-ecdsa, SECP256k1 (1)',
        order => 'fffffffffffffffffffffffffffffffebaaedce6af48a03bbfd25e8cd0364141',
        key => '9d0219792467d7d37b4d43298a7d0c05',
        hash => 'sha256',
        expect => '8fa1f95d514760e498f28957b824ee6ec39ed64826ff4fecc2b5739ec45b91cd',

t/Crypt-Perl-ECDSA-Deterministic.t  view on Meta::CPAN

        [ sha512 => '1dae2ea071f8110dc26882d4d5eae0621a3256fc8847fb9022e2b7d28e6f10198b1574fdd03a9053c08a1854a168aa5a57470ec97dd5ce090124ef52a2f7ecbffd3' ],
    ),

    (
        map {
            my ($hashfn, $expect, $blksize) = @$_;

            {
                label => "K-163, $hashfn",
                order => '4000000000000000000020108A2E0CC0D99F8A5EF',
                key => '09A4D6792295A7F730FC3F2B49CBC0F62E862272F',
                hash => $hashfn,
                expect => $expect,
            },
        }
        [ sha1 => '9744429fa741d12de2be8316e35e84db9e5df1cd' ],
        [ sha224 => '323e7b28bfd64e6082f5b12110aa87bc0d6a6e159' ],
        [ sha256 => '23af4074c90a02b3fe61d286d5c87f425e6bdd81b' ],
        [ sha384 => '2132abe0ed518487d3e4fa7fd24f8bed1f29ccfce' ],
        [ sha512 => 'bbcc2f39939388fdfe841892537ec7b1ff33aa3' ],
    ),

t/assets/RS256.dump  view on Meta::CPAN

',
    '0.707931577150603',
    'AWPjNJXDn9jwYEREsg5AbddUA8VeCZVx73ndlpuyhtF8i7zjjphvOxNiizrGVLfmU2fxatTpqGKG
7Ayy/tmr3ZsK3UV/Cw==
'
  ],
  [
    '556-bit key, exp = 3',
    '-----BEGIN RSA PRIVATE KEY-----
MIIBTwIBAAJGDBjNJ1CmMb+mWcA6I0MTENKzxUQG43rJ3j99vtzvoflPtCIWGZ/r
aenikkK8bzJHgTX81zmETT01D9L3dk8YimZGjcx4VQIBAwJGCBCIxOBuy9UZkSrR
bNdiCzcig4KvQlHb6X+pKeifwVDfzWvESlzAqv/nahRW0vrWOf+Dz+etOPW+l0tX
z6P/4hJsUsoSswIjPFo1CZLa75Lq1vaCXWGkGb/BfdX+Bx09tvMXFftqNMSk4GcC
IzNP38DWjxfgOWM8N6jIkp1fnIKhzpAPpDzLwgK74G9M+HvjAiMoPCNbtzyft0c5
+aw+QRgRKoD+jqlaE35592S5UkbN2G3q7wIjIjU/1eRfZUAmQiglGzBhvj+9rGvf
CrUYKIfWrH1ASjNQUpcCIxQ2JcEFBYHnt6udnMiMJJQ+3jwng7eQazXJ1ZwlhUS5
Nydv
-----END RSA PRIVATE KEY-----
',
    '0.662731699786601',
    'DA9kdCSbX3X48cjmsm1Z9S5cu0yjlkK58oMjgATDCPKJ//c4N82vX8bbbKMK/dbsUZ+4dIsbiTOI