Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  print $k . "=" . $key->$k . " ";

}
  2. or download this
    my %key;

...
$key{"pub_key"} = "132346092772099461807044872757466388868899357571508
+126750807181863604967004471330240874757885029643259002077192969991245
+2512506924349344334420749206004502";

$sig = $dsa->sign(Message=>$sig_msg, Key => %key);
  3. or download this
    my $key;

...
$key->{"pub_key"} = "1323460927720994618070448727574663888688993575715
+081267508071818636049670044713302408747578850296432590020771929699912
+452512506924349344334420749206004502";

$sig = $dsa->sign(Message=>$sig_msg, Key => $key);