#!/perl/bin/perl

use Crypt::RSA;
use RBS_PrivateKeyWrapper;

my $privateKey = RBS_PrivateKeyWrapper::getPrivateKey();

my $signature = getSignatures($privateKey, $binarySecurityToken, $timestamp, $content);

print $signature;

####

sub getSignature($$)
{
  my ($privateKey, $infoToSign) = @_;


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

  return $signatureValue;
}