(Delphi DLL) Duplicate Java AES Results

Demonstrates how to duplicate Java code for AES encryption.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
encrypted: PWideChar;

begin
crypt := CkCrypt2_Create();

CkCrypt2_putCryptAlgorithm(crypt,'aes');
CkCrypt2_putCipherMode(crypt,'cbc');
CkCrypt2_putKeyLength(crypt,256);

CkCrypt2_SetEncodedIV(crypt,'000102030405060708090A0B0C0D0E0F','hex');
CkCrypt2_SetEncodedKey(crypt,'uX1AytOx2bqKn1G1NiblFM3YrEMnvciC','ascii');

CkCrypt2_putEncodingMode(crypt,'hex');

encrypted := CkCrypt2__encryptStringENC(crypt,'tmpString');
Memo1.Lines.Add(encrypted);

Memo1.Lines.Add(CkCrypt2__decryptStringENC(crypt,encrypted));

// The above Chilkat code duplicates the following Java code:

// import javax.crypto.Cipher;
// import javax.crypto.spec.IvParameterSpec;
// import javax.crypto.spec.SecretKeySpec;
// 
// public class Test {
// 	private static final String KEY = "uX1AytOx2bqKn1G1NiblFM3YrEMnvciC";
// 	private static final String IV = "000102030405060708090A0B0C0D0E0F";
// 
// 	private static final char[] HEX_ARRAY = "0123456789ABCDEF".toCharArray();
// 	public static String bytesToHex(byte[] bytes) {
// 	    char[] hexChars = new char[bytes.length * 2];
// 	    for (int j = 0; j < bytes.length; j++) {
// 	        int v = bytes[j] & 0xFF;
// 	        hexChars[j * 2] = HEX_ARRAY[v >>> 4];
// 	        hexChars[j * 2 + 1] = HEX_ARRAY[v & 0x0F];
// 	    }
// 	    return new String(hexChars);
// 	}
// 	public static byte[] hexToBytes(String s) {
// 	    int len = s.length();
// 	    byte[] data = new byte[len / 2];
// 	    for (int i = 0; i < len; i += 2) {
// 	        data[i / 2] = (byte) ((Character.digit(s.charAt(i), 16) << 4)
// 	                             + Character.digit(s.charAt(i+1), 16));
// 	    }
// 	    return data;
// 	}
// 	public static byte[] encrypt(String value) {
// 		try {
// 			System.out.println("---- encrypt ----");
// 			IvParameterSpec iv = new IvParameterSpec(hexToBytes(IV));
// 			SecretKeySpec skeySpec = new SecretKeySpec(KEY.getBytes("ASCII"), "AES");
// 			Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding");
// 			cipher.init(Cipher.ENCRYPT_MODE, skeySpec, iv);
// 			byte[] encrypted = cipher.doFinal(value.getBytes("ASCII"));
// 			String x = bytesToHex(encrypted);
// 			System.out.println(x);
// 			return encrypted;
// 		} catch (Exception ex) {
// 			ex.printStackTrace();
// 			return null;
// 		}
// 	}
// 
// 	public static String decrypt(byte[] encrypted) {
// 		try {
// 			System.out.println("---- decrypt ----");
// 			IvParameterSpec iv = new IvParameterSpec(hexToBytes(IV));
// 			SecretKeySpec skeySpec = new SecretKeySpec(KEY.getBytes("ASCII"), "AES");
// 			Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding");
// 			cipher.init(Cipher.DECRYPT_MODE, skeySpec, iv);
// 			byte[] original = cipher.doFinal(encrypted);
// 			String x = new String(original);
// 			System.out.println(x);
// 			return x;
// 		} catch (Exception ex) {
// 			ex.printStackTrace();
// 			return null;
// 		}
// 
// 	}
// 
// 	public static void main(String[] args) {
// 		byte[] encrypted = encrypt("tmpString");
// 		decrypt(encrypted);
// 	}
// }
// 

CkCrypt2_Dispose(crypt);

end;