Pascal (Lazarus/Delphi)

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

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.PrivateKey,
  Chilkat.Rsa;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  pkey: TPrivateKey;
  rsa: TRsa;
  b64sig: string;

begin
  success := False;

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

  pkey := TPrivateKey.Create;

  //  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.
  success := pkey.LoadAnyFormatFile('qa_data/rsa/rsaPrivKey_secret.pem','secret');
  if (success = False) then
    begin
      WriteLn(pkey.LastErrorText);
      Exit;
    end;

  //  Assuming this is an RSA private key..
  rsa := TRsa.Create;

  //  Import the private key into the RSA object:
  success := rsa.UsePrivateKey(pkey);
  if (success = False) then
    begin
      WriteLn(rsa.LastErrorText);
      Exit;
    end;

  //  OpenSSL uses big-endian.
  rsa.LittleEndian := False;

  //  SHA1 hash and sign, and return base64.
  rsa.EncodingMode := 'base64';
  b64sig := rsa.SignStringENC('2018-05-18,2018-05-18T11:22:19;FAC 001/18;53.00;','sha1');
  WriteLn(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.


  pkey.Free;
  rsa.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.