VBScript Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VBScript Examples

Bounced Mail
Bz2
Character Encoding
Digital Certificates
CSV
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SFTP
SMTP
Socket
Spider
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression
Self-Extractor

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
Byte Array
RSS
Atom
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

 

 

 

 

 

 

 

VBScript AES Encrypt with Initialization Vector

Download Chilkat Crypt ActiveX

This VBscript show how to do AES encryption using an initialization vector of 16 bytes. (The IV must always be 16 bytes). It also shows how to set the binary secret key directly from a byte array.

' VBscript to AES encrypt strings
set crypt = CreateObject("Chilkat.Crypt2")

' Any value passed to UnlockComponent begins the 30-day trial.
unlocked = crypt.UnlockComponent("30-day trial")
if unlocked then

	' Note: AES encryption pads to a multiple of 16 bytes.
	crypt.CryptAlgorithm = "aes"
	' Cipher Block Chaining is the default and most common mode for AES.
	' You can also select "ecb" for Electronic Cookbook.
	crypt.CipherMode = "cbc"
	' The key length can be 128, 192, or 256
	crypt.KeyLength = 128
	
	Dim pk(15)
	Dim iv(15) 
	For i = 0 to 15 
	        pk(i) = CByte(i*15) 
	        iv(i) = CByte((15-i) * 13) 
	Next 

	crypt.SecretKey = pk 
	crypt.IV = iv 
	
	' Encrypt a string. Return the encrypted data as a URL-encoded string.
	crypt.EncodingMode = "url"
	MsgBox crypt.EncryptStringENC("123")
		
	' Encrypt a string. Return the encrypted data as a base64-encoded string.
	crypt.EncodingMode = "base64"
	MsgBox crypt.EncryptStringENC("123")
		
	' Encrypt a string. Return the encrypted data as a hex-encoded string.
	crypt.EncodingMode = "hex"
	MsgBox crypt.EncryptStringENC("123")
			
else
	MsgBox "Crypt object is not unlocked!"
end if

 

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

Mail Component · XML Parser