(Excel) IKOF Generation Code for Montenegro Fiscalization Service

Demonstrates computing the IKOF MD5 summary value as described in section 4.3 of this document: https://poreskauprava.gov.me/ResourceManager/FileDownload.aspx?rId=416042&rType=2

Download Excel Class Modules Chilkat Excel Class Modules

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


concatenatedParams = "12345678|2019-06-12T17:05:43+02:00|9952|bb123bb1231|cc123cc1231|ss123ss123|199.01"

' Get the private key from a pfx file.
Dim pfx As Chilkat.Pfx
Set pfx = Chilkat.NewPfx

success = pfx.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success <> True) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If


Set privKey = pfx.GetPrivateKey(0)
If (pfx.LastMethodSuccess = False) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

' Create IIC signature according to RSASSA-PKCS-v1_5 using SHA256
Dim rsa As Chilkat.Rsa
Set rsa = Chilkat.NewRsa
success = rsa.ImportPrivateKeyObj(privKey)
If (success = False) Then
    Debug.Print rsa.LastErrorText
    Exit Sub
End If

' PKCS-v1_5 is used by default.
rsa.EncodingMode = "hex"
rsa.Charset = "utf-8"

hexSig = rsa.SignStringENC(concatenatedParams,"sha256")

Debug.Print "Signature value result is: "; hexSig

' Compute the MD5 hash of the bytes.
Dim crypt As Chilkat.Crypt2
Set crypt = Chilkat.NewCrypt2
crypt.EncodingMode = "hex"
crypt.HashAlgorithm = "md5"
Dim bd As Chilkat.BinData
Set bd = Chilkat.NewBinData
Dim success As Boolean
success = bd.AppendEncoded(hexSig,"hex")

md5_summary = crypt.HashBdENC(bd)

Debug.Print "MD5 summary value is: "; md5_summary