cvsroot/Crypt-Ed25519/extract-sign.input

#!/opt/bin/perl

# wget http://ed25519.cr.yp.to/python/sign.input
# extract-sign.input <sign.input >t/sign.input

while (<>) {
   my ($sk, $pk, $m, $s) = split /:/;

   warn length $sk;

   my $l = pack "a32 a32 a64 w/a*", map { pack "H*", $_ } $sk, $pk, $s, $m;

   print $l
      if 400 > length $l;
}
Revision:	1.1
Committed:	Fri Mar 27 20:23:12 2015 UTC (11 years, 5 months 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			}