Thanks again Hippo!
I've gone right down to basics now and made my own script without XML::Sig but nabbed some bits from it, which is working absolutely fine. This will encrypt a string with the public key and decrypt it with the private. Also sign it with the private and verify it with the public. Im using my own keys and so far so good and getting me understanding what's going on.
One thing has amazed me however - this line - my $cert = Crypt::OpenSSL::X509->new_from_string($certificate);- I can access the public key from the certificate after this line by using $cert->pubkey. It's different to my own public key however... but still works! How and why I have no idea.. wondering if this might be a clue as to what's going wrong with the SAML.. Can there be multiple public keys??! I may try getting the public key directly from the SAML provider tomorrow, also checking what hashing they are using. Another thread I saw suggested a possible platform difference regarding big and little endian data..
Cheers :)
#!/usr/bin/perl
use Crypt::OpenSSL::Random;
use Crypt::OpenSSL::RSA;
use Crypt::OpenSSL::X509;
use MIME::Base64;
use strict;
my $debug = 0;
local $/ = undef;
my $public_key= "/data/pubkey.pem";
open (FILE, $public_key) or die ("Cant open public key file");
my $public_key_string = <FILE>;
close(FILE);
my $private_key = "/data/private.pem";
open (FILE, $private_key) or die ("Cant open private key file");
my $private_key_string = <FILE>;
close(FILE);
my $public_cert = "/data/x509-public.pem";
open (FILE, $public_cert) or die ("Cant open certificate file");
my $certificate = <FILE>;
close(FILE);
print $certificate;
my $cert = Crypt::OpenSSL::X509->new_from_string($certificate);
print $cert->pubkey;
print $public_key_string; # they're different
$public_key_string=$cert->pubkey; # it's different to the one loaded f
+rom file, but still works with my existing private key in the rest of
+ the code - remove this line to test the old $public_key_string value
print $public_key_string;
my $plaintext = "Some text here";
my $rsa_pub = Crypt::OpenSSL::RSA->new_public_key($public_key_string)
+;
my $rsa_priv = Crypt::OpenSSL::RSA->new_private_key($private_key_strin
+g);
my $ciphertext = $rsa_pub->encrypt($plaintext); # encrypt with th
+e public key
my $plaintext_back = $rsa_priv->decrypt($ciphertext); # decrypt with
+the private key
print "Plain text back is " . $plaintext_back . "\n"; # Works fine
if ($debug){ # debugging only
print "private key is:\n", $rsa_priv->get_private_key_string()
+;
print "public key (in PKCS1 format) is:\n",
$rsa_pub->get_public_key_string();
print "public key (in X509 format) is:\n",
$rsa_pub->get_public_key_x509_string();
}
$rsa_priv->use_md5_hash(); # use_sha1_hash is the default
$rsa_pub->use_md5_hash();
my $signature = $rsa_priv->sign($plaintext); # sign with private key
if ($rsa_pub->verify($plaintext, $signature)) { # verify with public k
+ey
print "Signature Verified successfully";
} else {
print " *** Not verified";
}
|