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) PBES1 Password-Based Encryption (PBE)Demonstrates how to implement password-based encryption according to the PKCS #5 v2.0: Password-Based Cryptography Standard (published by RSA Laboratories). This example uses PBES1, which ise based on the PBKDF1 function and an underlying block cipher such as RC2, DES, etc.
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 ' Set properties for PBES1 encryption: crypt.CryptAlgorithm = "pbes1" crypt.PbesPassword = "mySecretPassword" ' Set the underlying PBE algorithm (and key length): ' For PBES1, the underlying algorithm must be either ' 56-bit DES or 64-bit RC2 ' (this is according to the PKCS#5 specifications at ' http://www.rsa.com/rsalabs/node.asp?id=2127 ) crypt.PbesAlgorithm = "rc2" crypt.KeyLength = 64 ' The salt for PBKDF1 is always 8 bytes: crypt.SetEncodedSalt "0102030405060708","hex" ' A higher iteration count makes the algorithm more ' computationally expensive and therefore exhaustive ' searches (for breaking the encryption) is more difficult: crypt.IterationCount = 1024 ' A hash algorithm needs to be set for PBES1: crypt.HashAlgorithm = "sha1" ' Indicate that the encrypted bytes should be returned ' as a hex string: crypt.EncodingMode = "hex" plainText = "To be encrypted." encryptedText = crypt.EncryptStringENC(plainText) outFile.WriteLine(encryptedText) ' Now decrypt: decryptedText = crypt.DecryptStringENC(encryptedText) outFile.WriteLine(decryptedText) outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.