… | |
… | |
34 | $VERSION = '0.0'; |
34 | $VERSION = '0.0'; |
35 | |
35 | |
36 | XSLoader::load __PACKAGE__, $VERSION; |
36 | XSLoader::load __PACKAGE__, $VERSION; |
37 | |
37 | |
38 | @Crypt::Spritz::CipherBase::ISA = |
38 | @Crypt::Spritz::CipherBase::ISA = |
39 | @Crypt::Spritz::HASH::ISA = |
39 | @Crypt::Spritz::Hash::ISA = |
40 | @Crypt::Spritz::PRNG::ISA = Crypt::Spritz::; |
40 | @Crypt::Spritz::PRNG::ISA = Crypt::Spritz::; |
41 | |
41 | |
42 | @Crypt::Spritz::MAC::ISA = Crypt::Spritz::HASH::; |
42 | @Crypt::Spritz::MAC::ISA = Crypt::Spritz::Hash::; |
43 | |
43 | |
44 | @Crypt::Spritz::CIPHER::XOR::ISA = |
44 | @Crypt::Spritz::Cipher::XOR::ISA = |
45 | @Crypt::Spritz::CIPHER::XOR::ISA = |
45 | @Crypt::Spritz::Cipher::ISA = |
46 | @Crypt::Spritz::AEAD::ISA = |
46 | @Crypt::Spritz::AEAD::ISA = |
47 | @Crypt::Spritz::AEAD::XOR::ISA = Crypt::Spritz::CipherBase::; |
47 | @Crypt::Spritz::AEAD::XOR::ISA = Crypt::Spritz::CipherBase::; |
48 | |
48 | |
49 | sub Crypt::Spritz::CipherBase::keysize () { 32 } |
49 | sub Crypt::Spritz::CipherBase::keysize () { 32 } |
50 | sub Crypt::Spritz::CipherBase::blocksize () { 64 } |
50 | sub Crypt::Spritz::CipherBase::blocksize () { 64 } |
51 | |
51 | |
52 | *Crypt::Spritz::HASH::add = |
52 | *Crypt::Spritz::Hash::add = |
53 | *Crypt::Spritz::PRNG::add = \&Crypt::Spritz::absorb; |
53 | *Crypt::Spritz::PRNG::add = \&Crypt::Spritz::absorb; |
54 | |
54 | |
55 | *Crypt::Spritz::PRNG::get = \&Crypt::Spritz::squeeze; |
55 | *Crypt::Spritz::PRNG::get = \&Crypt::Spritz::squeeze; |
56 | |
56 | |
57 | *Crypt::Spritz::AEAD::XOR::finish = |
57 | *Crypt::Spritz::AEAD::XOR::finish = |
58 | *Crypt::Spritz::AEAD::finish = \&Crypt::Spritz::HASH::finish; |
58 | *Crypt::Spritz::AEAD::finish = \&Crypt::Spritz::Hash::finish; |
59 | |
59 | |
60 | *Crypt::Spritz::AEAD::XOR::associated_data = |
60 | *Crypt::Spritz::AEAD::XOR::associated_data = |
61 | *Crypt::Spritz::AEAD::associated_data = |
61 | *Crypt::Spritz::AEAD::associated_data = |
62 | *Crypt::Spritz::AEAD::XOR::nonce = |
62 | *Crypt::Spritz::AEAD::XOR::nonce = |
63 | *Crypt::Spritz::AEAD::nonce = \&Crypt::Spritz::absborb_and_stop; |
63 | *Crypt::Spritz::AEAD::nonce = \&Crypt::Spritz::absborb_and_stop; |