Hello Guys,<div><br></div><div>I am working on a project that requires data signatures to a server to be signed. Signed data is expected to contain the signed data in Base 64 ASCII</div><div>I am extracting the private key to sign this data from a pem file used in creating the server certificate that is sent to the validating server to be used for validation</div>
<div>I am using the following code to achieve this</div><div><br></div><div><div><div>use Crypt::OpenSSL::RSA;</div><div>use MIME::Base64;</div><div>use Crypt::RSA;</div></div><div> my $data = &quot;qwerty&quot;;</div><div>
my $signed = signData($data);</div><div><br></div><div>sub signData{</div><div>my $data= shift;</div><div><br></div><div>my $key_filename = &#39;path to pem key file&#39;;</div><div>my $key_text = read_file( $key_filename );</div>
<div><br></div><div>my $rsa_key = Crypt::OpenSSL::RSA-&gt;new_private_key($key_text);</div><div>#$rsa_key-&gt;use_pkcs1_padding();</div><div>$rsa_key-&gt;use_no_padding();</div><div>my $bin_signature = $rsa_key-&gt;sign($data);</div>
<div><br></div><div>my $signed = encode_base64($bin_signature);</div><div>return $signed;</div><div>}</div><div><br></div><div>When I send this data to the server I am still getting an error of the signed data not being valid.</div>
<div>Am I signing the data in the correct way?</div><div><br></div>-- <br>Simon Gatonye<br><br>
</div>