Match Java JCE AES Encryption Results (ECB mode)

Shows sample code in VBScript that matches Java JCE encryption results for 128-bit AES encryption using ECB mode.

Download Chilkat Crypt ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set crypt = CreateObject("Chilkat.Crypt2")

' Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Crypt component unlock failed"
    WScript.Quit
End If

password = "secretPassphrase"

' Use the Digest MD5 algorithm to get a 16-byte binary secret key.
crypt.HashAlgorithm = "md5"
crypt.EncodingMode = "hex"
secretKeyHex = crypt.HashStringENC(password)

crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "ecb"
crypt.KeyLength = 128
crypt.SetEncodedKey secretKeyHex,"hex"

text = "The quick brown fox jumped over the lazy dog."
encText = crypt.EncryptStringENC(text)

' Displays:
' C960892077D566258D38DF4BBAE8548E6827BF8C27A9D2EE
' 6F563FC75003F8F6A05B54CFD28CDC8833BD073F7FC6D031
outFile.WriteLine(encText)

' This Java (JCE) code produces the same results:
' String password = "secretPassphrase";
' 
' MessageDigest md = MessageDigest.getInstance("MD5");
' md.update(password.getBytes("UTF-8"), 0, password.length());
' byte[] rawKey = md.digest();
' 
' String text = "The quick brown fox jumped over the lazy dog.";
' 
' SecretKeySpec skeySpec = new SecretKeySpec(rawKey, "AES");
' Cipher cipher = Cipher.getInstance("AES/ECB/PKCS5Padding");
' cipher.init(Cipher.ENCRYPT_MODE, skeySpec);
' 
' byte[] encrypted = cipher.doFinal(text.getBytes("UTF-8"));
' 
' System.out.println(toHex(encrypted));

' This is the toHex method in Java:
' public static String toHex (byte buf[]) {
' 
' StringBuffer strbuf = new StringBuffer(buf.length * 2);
' int i;
' 
' for (i = 0; i < buf.length; i++) {
' if (((int) buf[i] & 0xff) < 0x10)
' strbuf.append("0");
' 
' strbuf.append(Long.toString((int) buf[i] & 0xff, 16));
' }
' 
' return strbuf.toString();
' }

outFile.Close