Attachment 4373 Details for Bug 11226 – perl script for testing perl-Crypt-DSA

perl script for testing perl-Crypt-DSA

test.pl (text/plain), 502 bytes, created by Dave Hodgins on 2013-09-24 22:27:14 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Dave Hodgins

Created: 2013-09-24 22:27:14 CEST

Size: 502 bytes

patch

obsolete

    use Crypt::DSA;
    my $dsa = Crypt::DSA->new;

    my $key = $dsa->keygen(
                   Size      => 512,
                   Seed      => $seed,
                   Verbosity => 1
              );

    my $sig = $dsa->sign(
                   Message   => "foo bar",
                   Key       => $key
              );

    my $verified = $dsa->verify(
                   Message   => "foo bar",
                   Signature => $sig,
                   Key       => $key,
              );

Actions: View

Attachments on bug 11226: 4373