Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) Blowfish CFB Mode EncryptionDemonstrates how to encrypt using Blowfish CFB (Cipher Feedback) mode.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set crypt = CreateObject("Chilkat_9_5_0.Crypt2") success = crypt.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit End If ' Use "blowfish2" to produce correct results that match published blowfish test vectors. crypt.CryptAlgorithm = "blowfish2" crypt.CipherMode = "cfb" 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" ' The block size of the blowfish algoirthm is 8 bytes, therefore the IV is 8 bytes. ivHex = "0001020304050607" 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("In all intellectual debates, both sides tend to be correct in what they affirm, and wrong in what they deny. -- John Stuart Mill") outFile.WriteLine(encStr) set decrypt = CreateObject("Chilkat_9_5_0.Crypt2") decrypt.CryptAlgorithm = "blowfish2" decrypt.CipherMode = "cfb" 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-2016 Chilkat Software, Inc. All Rights Reserved.