mirror of
https://github.com/nadoo/glider.git
synced 2025-02-24 09:45:40 +08:00
59 lines
1.0 KiB
Perl
59 lines
1.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# to run the full verification suite:
|
|
# curl http://info.isl.ntt.co.jp/crypt/eng/camellia/dl/cryptrec/t_camellia.txt |perl ./t_camellia.pl >cfull_test.go
|
|
# perl -pi -e 's/range camelliaTests/$&Full/' camellia_test.go
|
|
# go test
|
|
|
|
print <<GOCODE;
|
|
package camellia
|
|
|
|
var camelliaTestsFull = []struct {
|
|
key []byte
|
|
plain []byte
|
|
cipher []byte
|
|
}{
|
|
GOCODE
|
|
|
|
my $k;
|
|
my $p;
|
|
my $c;
|
|
|
|
# K No.010 : EF CD AB 89 67 45 23 01 10 32 54 76 98 BA DC FE 10 32 54 76 98 BA DC FE
|
|
sub linetostr {
|
|
my $l = shift;
|
|
|
|
$l =~ s/.*: *//;
|
|
$l =~ s/\s*$//;
|
|
my @h = split / /, $l;
|
|
$l = join(",", map "0x$_", @h);
|
|
return $l;
|
|
}
|
|
|
|
|
|
while(<>) {
|
|
next if /^\s*$/ or /^Camellia/;
|
|
if (/^K/) {
|
|
$k = linetostr($_);
|
|
}
|
|
|
|
if (/^P/) {
|
|
$p = linetostr($_);
|
|
}
|
|
|
|
if (/^C/) {
|
|
$c = linetostr($_);
|
|
print <<"GOCODE";
|
|
{
|
|
[]byte{$k},
|
|
[]byte{$p},
|
|
[]byte{$c},
|
|
},
|
|
GOCODE
|
|
}
|
|
}
|
|
|
|
print <<GOCODE
|
|
}
|
|
GOCODE
|