|  | 
Chilkat  HOME  Android™  AutoIt  C  C#  C++  Chilkat2-Python  CkPython  Classic ASP  DataFlex  Delphi DLL  Go  Java  Node.js  Objective-C  PHP Extension  Perl  PowerBuilder  PowerShell  PureBasic  Ruby  SQL Server  Swift  Tcl  Unicode C  Unicode C++  VB.NET  VBScript  Visual Basic 6.0  Visual FoxPro  Xojo Plugin
| (Classic ASP) IKOF Generation Code for Montenegro Fiscalization ServiceDemonstrates 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 Note: This example requires Chilkat v11.0.0 or greater. 
 <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% success = 0 ' 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. set pfx = Server.CreateObject("Chilkat.Pfx") success = pfx.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>" Response.End End If set privKey = Server.CreateObject("Chilkat.PrivateKey") success = pfx.PrivateKeyAt(0,privKey) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>" Response.End End If ' Create IIC signature according to RSASSA-PKCS-v1_5 using SHA256 set rsa = Server.CreateObject("Chilkat.Rsa") success = rsa.UsePrivateKey(privKey) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>" Response.End End If ' PKCS-v1_5 is used by default. rsa.EncodingMode = "hex" rsa.Charset = "utf-8" hexSig = rsa.SignStringENC(concatenatedParams,"sha256") Response.Write "<pre>" & Server.HTMLEncode( "Signature value result is: " & hexSig) & "</pre>" ' Compute the MD5 hash of the bytes. set crypt = Server.CreateObject("Chilkat.Crypt2") crypt.EncodingMode = "hex" crypt.HashAlgorithm = "md5" set bd = Server.CreateObject("Chilkat.BinData") success = bd.AppendEncoded(hexSig,"hex") md5_summary = crypt.HashBdENC(bd) Response.Write "<pre>" & Server.HTMLEncode( "MD5 summary value is: " & md5_summary) & "</pre>" %> </body> </html> | ||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.