30 lines
1.3 KiB
Perl
30 lines
1.3 KiB
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
# tests from Crypt::Serpent
|
||
|
|
|
||
|
|
use Test::More tests => 12;
|
||
|
|
use Crypt::Cipher::Serpent;
|
||
|
|
|
||
|
|
while (<DATA>) {
|
||
|
|
if (/key=(\S+)\sptext=(\S+)\sctext=(\S+)/) {
|
||
|
|
my $key = pack "H*", $1;
|
||
|
|
my $plaintext = pack "H*", $2;
|
||
|
|
my $ciphertext = pack "H*", $3;
|
||
|
|
my $crypt = Crypt::Cipher::Serpent->new($key);
|
||
|
|
my $ctext = $crypt->encrypt($plaintext);
|
||
|
|
my $ptext = $crypt->decrypt($ctext);
|
||
|
|
is($ctext, $ciphertext);
|
||
|
|
is($ptext, $plaintext);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
__DATA__
|
||
|
|
|
||
|
|
key=00000000000000000000000000000080 ptext=00000000000000000000000000000000 ctext=ddd26b98a5ffd82c05345a9dadbfaf49
|
||
|
|
key=00080000000000000000000000000000 ptext=00000000000000000000000000000000 ctext=cfbd333352a34ed7f73d3e569d78c693
|
||
|
|
key=000000000000000000000000000000004000000000000000 ptext=00000000000000000000000000000000 ctext=53bd3e8475db67f72910b945bf8c768e
|
||
|
|
key=000000000000000000000000000000010000000000000000 ptext=00000000000000000000000000000000 ctext=deab7388a6f1c61d41e25a0d88f062c4
|
||
|
|
key=0000000000000000000000800000000000000000000000000000000000000000 ptext=00000000000000000000000000000000 ctext=ad4b018d50e3a28124a0a1259dc667d4
|
||
|
|
key=4000000000000000000000000000000000000000000000000000000000000000 ptext=00000000000000000000000000000000 ctext=eae1d405570174df7df2f9966d509159
|