![]() |
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
(VBScript) Twofish OFB Output Feedback Mode EncryptionDemonstrates how to encrypt using Twofish OFB (Output Feedback) mode.
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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2") set crypt = CreateObject("Chilkat.Crypt2") crypt.CryptAlgorithm = "twofish" ' Set the cipher mode to Output Feedback crypt.CipherMode = "ofb" crypt.KeyLength = 256 ' EncodingMode specifies the encoding of the output for ' encryption, and the input for decryption. ' It may be "hex", "url", "base64", "quoted-printable", or many other choices. crypt.EncodingMode = "hex" ivHex = "000102030405060708090A0B0C0D0E0F" crypt.SetEncodedIV ivHex,"hex" ' The secret key must equal the size of the key. For ' 256-bit encryption, the binary secret key is 32 bytes. keyHex = "603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4" crypt.SetEncodedKey keyHex,"hex" ' Encrypt a string... encStr = crypt.EncryptStringENC("Without music to decorate it, time is just a bunch of boring production deadlines or dates by which bills must be paid. -- Frank Zappa") outFile.WriteLine(encStr) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2") set decrypt = CreateObject("Chilkat.Crypt2") decrypt.CryptAlgorithm = "twofish" decrypt.CipherMode = "ofb" decrypt.KeyLength = 256 decrypt.EncodingMode = "hex" decrypt.SetEncodedIV ivHex,"hex" decrypt.SetEncodedKey keyHex,"hex" ' Now decrypt: decStr = decrypt.DecryptStringENC(encStr) outFile.WriteLine(decStr) outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.