![]() |
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
(SQL Server) 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.
-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls. -- CREATE PROCEDURE ChilkatSample AS BEGIN DECLARE @hr int -- Important: Do not use nvarchar(max). See the warning about using nvarchar(max). DECLARE @sTmp0 nvarchar(4000) DECLARE @success int SELECT @success = 0 -- This example requires the Chilkat API to have been previously unlocked. -- See Global Unlock Sample for sample code. DECLARE @concatenatedParams nvarchar(4000) SELECT @concatenatedParams = '12345678|2019-06-12T17:05:43+02:00|9952|bb123bb1231|cc123cc1231|ss123ss123|199.01' -- Get the private key from a pfx file. DECLARE @pfx int EXEC @hr = sp_OACreate 'Chilkat.Pfx', @pfx OUT IF @hr <> 0 BEGIN PRINT 'Failed to create ActiveX component' RETURN END EXEC sp_OAMethod @pfx, 'LoadPfxFile', @success OUT, 'qa_data/pfx/cert_test123.pfx', 'test123' IF @success = 0 BEGIN EXEC sp_OAGetProperty @pfx, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @pfx RETURN END DECLARE @privKey int EXEC @hr = sp_OACreate 'Chilkat.PrivateKey', @privKey OUT EXEC sp_OAMethod @pfx, 'PrivateKeyAt', @success OUT, 0, @privKey IF @success = 0 BEGIN EXEC sp_OAGetProperty @pfx, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @pfx EXEC @hr = sp_OADestroy @privKey RETURN END -- Create IIC signature according to RSASSA-PKCS-v1_5 using SHA256 DECLARE @rsa int EXEC @hr = sp_OACreate 'Chilkat.Rsa', @rsa OUT EXEC sp_OAMethod @rsa, 'UsePrivateKey', @success OUT, @privKey IF @success = 0 BEGIN EXEC sp_OAGetProperty @rsa, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @pfx EXEC @hr = sp_OADestroy @privKey EXEC @hr = sp_OADestroy @rsa RETURN END -- PKCS-v1_5 is used by default. EXEC sp_OASetProperty @rsa, 'EncodingMode', 'hex' EXEC sp_OASetProperty @rsa, 'Charset', 'utf-8' DECLARE @hexSig nvarchar(4000) EXEC sp_OAMethod @rsa, 'SignStringENC', @hexSig OUT, @concatenatedParams, 'sha256' PRINT 'Signature value result is: ' + @hexSig -- Compute the MD5 hash of the bytes. DECLARE @crypt int EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT EXEC sp_OASetProperty @crypt, 'EncodingMode', 'hex' EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'md5' DECLARE @bd int EXEC @hr = sp_OACreate 'Chilkat.BinData', @bd OUT EXEC sp_OAMethod @bd, 'AppendEncoded', @success OUT, @hexSig, 'hex' DECLARE @md5_summary nvarchar(4000) EXEC sp_OAMethod @crypt, 'HashBdENC', @md5_summary OUT, @bd PRINT 'MD5 summary value is: ' + @md5_summary EXEC @hr = sp_OADestroy @pfx EXEC @hr = sp_OADestroy @privKey EXEC @hr = sp_OADestroy @rsa EXEC @hr = sp_OADestroy @crypt EXEC @hr = sp_OADestroy @bd END GO |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.