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 (10 years 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 *
#	Content
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	}