#!/usr/bin/perl

use strict;
use Crypt::RSA;

print "RSA tester\n";

my $infoToSign = "blah";
my $privateKey = 5;

my $rsa = new Crypt::RSA;

my ($public, $private) =
  $rsa->keygen (
    Identity  => 'RBSClient',
    Size      => 1024,
    Password  => 'passw0rd',
    Verbosity => 1,
  ) or die $rsa->errstr();

$private->write( Filename => 'working.private');
$public->write( Filename => 'working.public');