Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Egypt ITIDA Generate eReceipt UUIDSee more Egypt ITIDA ExamplesDemonstrates how to generate the eReceipt UUID for Egypt ITIDA. Note: This example requires Chilkat v9.5.0.92 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Note: This example requires Chilkat v9.5.0.92 or greater. ' (In v9.5.0.92, the "itida" encoding was added to StringBuilder's Encode method.) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sb = CreateObject("Chilkat.StringBuilder") ' Load the eReceipt JSON into a StringBuilder object. success = sb.LoadFile("qa_data/itida/EReceipt_ex.json","utf-8") If (success = 0) Then outFile.WriteLine("Failed to load input file.") WScript.Quit End If ' Convert the contents of sb to the ITIDA canonical form. ' Always pass utf-8 for the 2nd arg. success = sb.Encode("itida","utf-8") ' Get the lowercase hex encoded SHA256 hash of the canonicalized JSON ' (always use utf-8) uuid = sb.GetHash("sha256","hex_lower","utf-8") outFile.WriteLine("eInvoicing UUID = " & uuid) outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.