Revision: | 1.1 |
Committed: | Fri Mar 27 20:23:12 2015 UTC (9 years, 1 month ago) by root |
Branch: | MAIN |
CVS Tags: | rel-0_1, rel-1_0, rel-1_02, rel-1_03, rel-1_01, rel-1_04, rel-1_05, rel-0_9, HEAD |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.1 | #!/opt/bin/perl |
2 | |||
3 | # wget http://ed25519.cr.yp.to/python/sign.input | ||
4 | # extract-sign.input <sign.input >t/sign.input | ||
5 | |||
6 | while (<>) { | ||
7 | my ($sk, $pk, $m, $s) = split /:/; | ||
8 | |||
9 | warn length $sk; | ||
10 | |||
11 | my $l = pack "a32 a32 a64 w/a*", map { pack "H*", $_ } $sk, $pk, $s, $m; | ||
12 | |||
13 | print $l | ||
14 | if 400 > length $l; | ||
15 | } |