[Thu Oct 22 15:01:36 2009] [error] [client 10.29.12.38] Can't call method "n" without a package or object reference at /usr/lib/perl5/site_perl/5.8.8/Crypt/RSA/
SS/PSS.pm line 41, <PRIVATE_KEY_FILE> line 15., referer: http://192.168.15.2/cgi
-bin/RBS_MessageParameterCollectionGUI.pl

##</code><code>##

sub sign {
    my ($self, %params) = @_;
    my $key = $params{Key}; my $M = $params{Message} || $params{Plaintext};
    return $self->error("No Key parameter", \$M, \%params) unless $key;
    return $self->error("No Message or Plaintext parameter", \$key, \%params) un
less $M;
    my $k = octet_len ($key->n);
    my $salt = makerandom_octet (Length => $self->{hlen});
    my $em = $self->encode ($M, $salt, $k-1);
    my $m = os2ip ($em);
    my $sig = $self->{primitives}->core_sign (Key => $key, Message => $m);
    my $S = i2osp ($sig, $k);
    return ($S, $salt) if wantarray;
    return $S;
}

##</code><code>##

  my $rsa = new Crypt::RSA;
  my $signatureValue = $rsa->sign(
    Message    => $infoToSign,
    Key        => $privateKey);