#!/usr/local/bin/perl -w
#
#	RSA_encryption_Ducth_iDeal_payment
#
use strict;
use MIME::Base64 ();
use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);
#use Crypt::OpenSSL::RSA;

my $string = "0021232117891234AcquirerStatusRes2004-11-02T15:05:03.750ZSuccess";
print ("\n\|$string:$string| (",length($string),")\n\n");

open (CTX, ">", "./ctx") or die "Could not open: $! \n";
print CTX "$string";
close CTX;
my $sha1 = qx|openssl dgst -sha1 ./ctx|;
print ("\n\$sha1:|$sha1| (",length($string),")\n\n");


#SHA encryption
my $ctx = Digest::SHA1->new;
$ctx->add($string);
my $digest = $ctx->digest;
my $len = length($digest);
print ("SHA-1 DIGEST:$digest.. ($len)\n\n");


#RSA-encryption over the digest

#Base64 encoding:
my $encoded = MIME::Base64::encode($digest);
my $len1 = length($encoded);
print ("ENCODE:$encoded ($len1)\n\n");

__END__
#The result has to be (172 chars):
#db82/jpJRvKQKoiDvu33X0yoDAQpayJOaW2Y8zbR1qk1i3epvTXi+6g+QVBY93YzGv4w+Va+vL3uNmzyRjYsm2309d1CWFVsn5Mk24NLSvhYfwVHEpznyMqizALEVUNSoiSHRkZUDfXowBAyLT/tQVGbuUuBj+TkblY826nRa7U=