Select Code to Download

#!/usr/bin/perl

...
}
 
$key->write(Type => PEM, Filename => "./pem.txt");

p=97247750263688411397695697227222252821052653116602457842628843398397
+774090219841943394778088386502591291192911110236855402879198647672438
+25053675926821009 g=2287671994688384782344874533763258286273033538675
+213553369081285149300964884679721477594029701967288779349370846813565
+354155329221817904945538359260835488 q=859065163383488309172119698913
+578680476929548109 pub_key=161640584437224876801717508172571581946779
+447648116511124702069752318953966274857590303105635724984838115717840
+0231796838322469179029084738638486691222852

-----BEGIN DSA PRIVATE KEY-----
MIH3AgEAAkEAua21zY9vkrbyBe4b+XeGCLBEPCinaRsDidZnYcXznjiE25KWzaez
...
7KUGtG3hs9RMkZeEKN4WSbi9AgMFuiYzvO814AusboSImZVEAhQ0kb43UjYzfSug
ByFFsKZhRyay1g==
-----END DSA PRIVATE KEY-----

priv_key ==> 300117698295761934718759909833610346650914960086

#!/usr/bin/perl
...
my $full_url = $_return . "&email=" . CGI::escape($email) . "&name=" .
+ CGI::escape($name) . "&nick=" . CGI::escape($nick) . "&ts=" . CGI::e
+scape($ts) . "&sig=" . CGI::escape($sig_typekey);

print $full_url;  #print the new URL so logon.php can pick it up and r
+edirect to it.