added IKE DH parameter sets as PEM files, plus tools
[ach-master.git] / tools / dhparams / parse.pl
1 #!/usr/bin/perl -w
2 use strict;
3
4 # parse RFC-style DH params into two parameters for gen_pkcs3's
5 # command line
6
7 my ($p,$g) = ('',undef);
8 while(<>) {
9   chomp;
10   if(/^\s*((?:[\da-f]{8}\s*)+)\s*$/i) {
11     $p .= "$1";
12   }
13   if(/The generator is:\s+(\d+)/) {
14     $g = $1;
15   }
16 }
17
18 $p =~ s/\s+//g;
19
20 printf "%s %d\n", $p, $g;