PureBasic
PureBasic
Hungary NAV Invoicing Signature Calculation
See more Hungary NAV Invoicing Examples
Demonstrates the requestSignature calculation for the Hungarian NAV Online Invoicing System REST API v2.0.Note: This example requires Chilkat v9.5.0.83 or greater.
Chilkat PureBasic Downloads
IncludeFile "CkCrypt2.pb"
IncludeFile "CkStringBuilder.pb"
Procedure ChilkatExample()
success.i = 0
; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
; This example performs the following calculation:
; 1.5.1 Calculations for manageInvoice and manageAnnulment operations
;
; For the manageInvoice and manageAnnulment operations comprising the core of requestSignature,
; requestSignature is calculated using partial authentication, concatenating the hash values for
; indices 1-100 as well as additional SHA3-512 hash operations. The partial authentication can be
; derived by concatenating the following values:
;
; - requestId value
; - UTC timestamp tag value using a YYYYMMDDhhmmss mask
; - string literal of the technical user�s signature key
;
; When concatenating, the date and time separators as well as the time zone must be removed for timestamp masking.
;
; The index hash value can be derived from the uppercase SHA3-512 hash values following the concatenation of the
; operation and base64 content for the individual indices:
;
; - literal value of invoiceOperation or annulmentOperation
; - base64 content in the invoiceData or invoiceAnnulment tag
;
; The calculated hash values should be appended after the partial hash, in the order corresponding to the indices.
; The SHA3-512 hash result (capitals) of the string thus concatenated yields the requestSignature value.
;
; A fictitious example for request data:
;
; - requestId = TSTKFT1222564
; - timestamp = 2017-12-30T18:25:45.000Z
; - technical user�s signature key = ce-8f5e-215119fa7dd621DLMRHRLH2S
; - the index#1 invoice data items
; - invoiceOperation = CREATE
; - invoiceData = QWJjZDEyMzQ=
; - the index#2 invoice data items
; - invoiceOperation = MODIFY
; - invoiceData = RGNiYTQzMjE=
; - partial authentication value = TSTKFT122256420171230182545ce-8f5e-215119fa7dd621DLMRHRLH2S
; - the first index hash =
; - hash base = CREATEQWJjZDEyMzQ=
; - lowercase hash = 4317798460962869bc67f07c48ea7e4a3afa301513ceb87b8eb94ecf92bc220a89c480f87f0860e85e29a3b6c0463d4f29712c5ad48104a6486ce839dc2f24cb
; - uppercase hash = 4317798460962869BC67F07C48EA7E4A3AFA301513CEB87B8EB94ECF92BC220A89C480F87F0860E85E29A3B6C0463D4F29712C5AD48104A6486CE839DC2F24CB
; - the second index hash =
; - hash base = MODIFYRGNiYTQzMjE=
; - lowercase hash = a881218238933f6ffb9e167445cb4daa9749bcf484fde48ab7649fd25e8b634a4736a65a7c4a8e2831119f739837e006566f97370415aad55e268605206f2a6c
; - uppercase hash = A881218238933F6FFB9E167445CB4DAA9749BCF484FDE48AB7649FD25E8B634A4736A65A7C4A8E2831119F739837E006566F97370415AAD55E268605206F2A6C
;
; Thus, the base for the entire requestSignature is:
; TSTKFT122256420171230182545ce-8f5e-215119fa7dd621DLMRHRLH2S4317798460962869BC67F07C48EA7E4A3AFA301513CEB87B8EB94ECF92BC220A89C480F87F0860E85E29A3B6C0463D4F29712C5AD48104A6486CE839DC2F24CBA881218238933F6FFB9E167445CB4DAA9749BCF484FDE48AB7649FD25E8B634A4736A65A7C4A8E2831119F739837E006566F97370415AAD55E268605206F2A6C
;
; Value of requestSignature after SHA3-512 hashing and converting to uppercase:
; 60BC80609EE3B8F42FE904200A49A1921A1DADA08D55319ACD40C59F626514B74EEA49011D372600A10DBCF8199D590DA9C2841D987308F2D83DAE17C2470C42
;
; -------------------
crypt.i = CkCrypt2::ckCreate()
If crypt.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; IMPORTANT: This example requires Chilkat v9.5.0.83 or greater. The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
; IMPORTANT: This example requires Chilkat v9.5.0.83 or greater. The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
; IMPORTANT: This example requires Chilkat v9.5.0.83 or greater. The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
; IMPORTANT: This example requires Chilkat v9.5.0.83 or greater. The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
; IMPORTANT: This example requires Chilkat v9.5.0.83 or greater. The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
CkCrypt2::setCkHashAlgorithm(crypt, "sha3-512")
CkCrypt2::setCkEncodingMode(crypt, "hex")
requestId.s = "TSTKFT1222564"
timestamp.s = "2017-12-30T18:25:45.000Z"
signatureKey.s = "ce-8f5e-215119fa7dd621DLMRHRLH2S"
; Step 1: Concatenate requestId, UTC timestamp, and user's signature key.
sbFinalHashBase.i = CkStringBuilder::ckCreate()
If sbFinalHashBase.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; First append the timestamp because we are going to remove certain chars/parts.
CkStringBuilder::ckAppend(sbFinalHashBase,timestamp)
numReplaced.i = CkStringBuilder::ckReplace(sbFinalHashBase,".000Z","")
numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,"-","")
numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,":","")
numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,"T","")
; Prepend the requestId and append the signatureKey
CkStringBuilder::ckPrepend(sbFinalHashBase,requestId)
CkStringBuilder::ckAppend(sbFinalHashBase,signatureKey)
; Step 2: Calculate first index hash.
invoiceOperation.s = "CREATE"
invoiceData.s = "QWJjZDEyMzQ="
sbHashBase.i = CkStringBuilder::ckCreate()
If sbHashBase.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppend(sbHashBase,invoiceOperation)
CkStringBuilder::ckAppend(sbHashBase,invoiceData)
Debug "first hash base = " + CkStringBuilder::ckGetAsString(sbHashBase)
firstHash.s = CkCrypt2::ckHashStringENC(crypt,CkStringBuilder::ckGetAsString(sbHashBase))
Debug "first hash = " + firstHash
; Output should be:
; first hash base = CREATEQWJjZDEyMzQ=
; first hash = 4317798460962869BC67F07C48EA7E4A3AFA301513CEB87B8EB94ECF92BC220A89C480F87F0860E85E29A3B6C0463D4F29712C5AD48104A6486CE839DC2F24CB
; Step 3: Calculate second index hash.
invoiceOperation = "MODIFY"
invoiceData = "RGNiYTQzMjE="
CkStringBuilder::ckClear(sbHashBase)
CkStringBuilder::ckAppend(sbHashBase,invoiceOperation)
CkStringBuilder::ckAppend(sbHashBase,invoiceData)
Debug "second hash base = " + CkStringBuilder::ckGetAsString(sbHashBase)
secondHash.s = CkCrypt2::ckHashStringENC(crypt,CkStringBuilder::ckGetAsString(sbHashBase))
Debug "second hash = " + secondHash
; Output should be:
; second hash base = MODIFYRGNiYTQzMjE=
; second hash = A881218238933F6FFB9E167445CB4DAA9749BCF484FDE48AB7649FD25E8B634A4736A65A7C4A8E2831119F739837E006566F97370415AAD55E268605206F2A6C
; Step 4: Append the uppercase hex hashes to the sbFinalHashBase
CkStringBuilder::ckAppend(sbFinalHashBase,firstHash)
CkStringBuilder::ckAppend(sbFinalHashBase,secondHash)
Debug "sbFinalHashBase = " + CkStringBuilder::ckGetAsString(sbFinalHashBase)
; Step 5: SHA3-512 hash to get the requestSignature
requestSignature.s = CkCrypt2::ckHashStringENC(crypt,CkStringBuilder::ckGetAsString(sbFinalHashBase))
Debug "requestSignature = " + requestSignature
; Output should be:
; requestSignature = 60BC80609EE3B8F42FE904200A49A1921A1DADA08D55319ACD40C59F626514B74EEA49011D372600A10DBCF8199D590DA9C2841D987308F2D83DAE17C2470C42
CkCrypt2::ckDispose(crypt)
CkStringBuilder::ckDispose(sbFinalHashBase)
CkStringBuilder::ckDispose(sbHashBase)
ProcedureReturn
EndProcedure