Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcel

Excel Examples


ASN.1
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Azure Cloud Storage
Azure Service Bus
Bounced Email
Box
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
ECC
Email Object
Encryption
FTP
Facebook
Firebase
GeoOp
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Gzip
HTML-to-XML/Text
HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)

Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
PayPal
Peoplevox
QuickBooks
REST
RSA Encryption
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Shopify
Socket/SSL/TLS
Spider
Stream
Stripe
SugarCRM
Tar Archive
Twitter
VoiceBase
Walmart
WebSocket
XML
XML Digital Signatures
XMP
Xero
Zip
curl
eBay

 

 

 

(Excel) UN/EDIFACT Syntax Level A Encoding/Decoding

Demonstrates the new "eda" encoding that can be used throughout Chilkat starting in v9.5.0.65.

Download Excel Class Modules

Chilkat Excel Class Modules

'  Note: Requires Chilkat v9.5.0.65 or greater.

Dim sb As Chilkat.StringBuilder
Set sb = Chilkat.NewStringBuilder
Dim success As Boolean
success = sb.Append("The 5 men of 223rd St")
Debug.Print sb.GetAsString()

'  Encode the utf-8 byte representation of the string in the
'  UN/EDIFACT syntax level A character set.
success = sb.Encode("eda","utf-8")
Debug.Print sb.GetAsString()

'  EDA Output should be: BTME027FCF6CFARFI94JT6.)F(14KJ2U

'  Decode back to the original string.
success = sb.Decode("eda","utf-8")
Debug.Print sb.GetAsString()
Debug.Print "----"

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

'  The "eda" encoding can be used anywhere within Chilkat.
'  For example, with the Crypt2 API
Dim crypt As Chilkat.Crypt2
Set crypt = Chilkat.NewCrypt2
crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 256
crypt.EncodingMode = "eda"

Dim ivHex As String
ivHex = "000102030405060708090A0B0C0D0E0F"
crypt.SetEncodedIV ivHex,"hex"
Dim keyHex As String
keyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
crypt.SetEncodedKey keyHex,"hex"

Dim encStr As String
encStr = crypt.EncryptStringENC("The quick brown fox jumps over the lazy dog.")
'  The output is UN/EDIFACT syntax level A
Debug.Print encStr

'  Now decrypt:
Dim decStr As String
decStr = crypt.DecryptStringENC(encStr)
Debug.Print decStr

 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.