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

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Pkey
integer li_Success
oleobject loo_Rsa
string ls_B64sig

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

loo_Pkey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_Pkey.ConnectToNewObject("Chilkat.PrivateKey")
if li_rc < 0 then
    destroy loo_Pkey
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
li_Success = loo_Pkey.LoadAnyFormatFile("qa_data/rsa/rsaPrivKey_secret.pem","secret")
if li_Success <> 1 then
    Write-Debug loo_Pkey.LastErrorText
    destroy loo_Pkey
    return
end if

// Assuming this is an RSA private key..
loo_Rsa = create oleobject
// Use "Chilkat_9_5_0.Rsa" for versions of Chilkat < 10.0.0
li_rc = loo_Rsa.ConnectToNewObject("Chilkat.Rsa")

// Import the private key into the RSA object:
li_Success = loo_Rsa.ImportPrivateKeyObj(loo_Pkey)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Pkey
    destroy loo_Rsa
    return
end if

// OpenSSL uses big-endian.
loo_Rsa.LittleEndian = 0

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

// 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.


destroy loo_Pkey
destroy loo_Rsa