Xbase++ Requires Chilkat v11.0.0+

Create a Hash Signature for Value Added Tax Audit SOAP Message for Angola

See more OpenSSL Examples

Demonstrates how to create a hash signature that is required in Value Added Tax Audit Files in Angola, Africa.

It is the following two instructions that should be used to create a hash value to be put into a <hash></hash> field in SOAP XML file containing the tax data for the VAT authorities:

openssl dgst -shal -sign private.pem -outRegisto1.shal Registo1.txt

then

openssl enc -base64 - in Registo1.shal -out Registo1.b64 -A

Xbase++

LOCAL nSuccess
LOCAL oPkey
LOCAL oRsa
LOCAL cB64sig

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oPkey := CreateObject("Chilkat.PrivateKey")

//  Load the private key from an PEM file.
//  Provide the password in the 2nd argument.
//  If no password is needed, just pass an empty string.
nSuccess := oPkey:LoadAnyFormatFile("qa_data/rsa/rsaPrivKey_secret.pem", "secret")
IF (nSuccess == 0)
    ? oPkey:LastErrorText
    oPkey:destroy()
    RETURN
ENDIF

//  Assuming this is an RSA private key..
oRsa := CreateObject("Chilkat.Rsa")

//  Import the private key into the RSA object:
nSuccess := oRsa:UsePrivateKey(oPkey)
IF (nSuccess == 0)
    ? oRsa:LastErrorText
    oPkey:destroy()
    oRsa:destroy()
    RETURN
ENDIF

//  OpenSSL uses big-endian.
oRsa:LittleEndian := 0

//  SHA1 hash and sign, and return base64.
oRsa:EncodingMode := "base64"
cB64sig := oRsa:SignStringENC("2018-05-18,2018-05-18T11:22:19;FAC 001/18;53.00;", "sha1")
? cB64sig

//  The signature is equal in size to your private key.  For example, if you have a 1024-bit RSA key,
//  then 1024 bits = 128 bytes.   When 128 bytes is base64 encoded, the result is a string approximately
//  4/3rds the size of the original.  128 * 4 / 3 = (approximately) 172 bytes.

//  If your RSA key is 2048-bits, then your signature will be twice as long.

oPkey:destroy()
oRsa:destroy()