diff --git a/src/main/java/cokr/xit/applib/delphi/CxAria.java b/src/main/java/cokr/xit/applib/delphi/CxAria.java new file mode 100644 index 0000000..ce6a053 --- /dev/null +++ b/src/main/java/cokr/xit/applib/delphi/CxAria.java @@ -0,0 +1,308 @@ +package cokr.xit.applib.delphi; + +public class CxAria { + + public static int[][] SBox = { + // S-box type 1 + { 0x63, 0x7c, 0x77, 0x7b, 0xf2, + 0x6b, 0x6f, 0xc5, 0x30, + 0x01, 0x67, 0x2b, 0xfe, + 0xd7, 0xab, 0x76, 0xca, + 0x82, 0xc9, 0x7d, 0xfa, + 0x59, 0x47, 0xf0, 0xad, + 0xd4, 0xa2, 0xaf, 0x9c, + 0xa4, 0x72, 0xc0, 0xb7, + 0xfd, 0x93, 0x26, 0x36, + 0x3f, 0xf7, 0xcc, 0x34, + 0xa5, 0xe5, 0xf1, 0x71, + 0xd8, 0x31, 0x15, 0x04, + 0xc7, 0x23, 0xc3, 0x18, + 0x96, 0x05, 0x9a, 0x07, + 0x12, 0x80, 0xe2, 0xeb, + 0x27, 0xb2, 0x75, 0x09, + 0x83, 0x2c, 0x1a, 0x1b, + 0x6e, 0x5a, 0xa0, 0x52, + 0x3b, 0xd6, 0xb3, 0x29, + 0xe3, 0x2f, 0x84, 0x53, + 0xd1, 0x00, 0xed, 0x20, + 0xfc, 0xb1, 0x5b, 0x6a, + 0xcb, 0xbe, 0x39, 0x4a, + 0x4c, 0x58, 0xcf, 0xd0, + 0xef, 0xaa, 0xfb, 0x43, + 0x4d, 0x33, 0x85, 0x45, + 0xf9, 0x02, 0x7f, 0x50, + 0x3c, 0x9f, 0xa8, 0x51, + 0xa3, 0x40, 0x8f, 0x92, + 0x9d, 0x38, 0xf5, 0xbc, + 0xb6, 0xda, 0x21, 0x10, + 0xff, 0xf3, 0xd2, 0xcd, + 0x0c, 0x13, 0xec, 0x5f, + 0x97, 0x44, 0x17, 0xc4, + 0xa7, 0x7e, 0x3d, 0x64, + 0x5d, 0x19, 0x73, 0x60, + 0x81, 0x4f, 0xdc, 0x22, + 0x2a, 0x90, 0x88, 0x46, + 0xee, 0xb8, 0x14, 0xde, + 0x5e, 0x0b, 0xdb, 0xe0, + 0x32, 0x3a, 0x0a, 0x49, + 0x06, 0x24, 0x5c, 0xc2, + 0xd3, 0xac, 0x62, 0x91, + 0x95, 0xe4, 0x79, 0xe7, + 0xc8, 0x37, 0x6d, 0x8d, + 0xd5, 0x4e, 0xa9, 0x6c, + 0x56, 0xf4, 0xea, 0x65, + 0x7a, 0xae, 0x08, 0xba, + 0x78, 0x25, 0x2e, 0x1c, + 0xa6, 0xb4, 0xc6, 0xe8, + 0xdd, 0x74, 0x1f, 0x4b, + 0xbd, 0x8b, 0x8a, 0x70, + 0x3e, 0xb5, 0x66, 0x48, + 0x03, 0xf6, 0x0e, 0x61, + 0x35, 0x57, 0xb9, 0x86, + 0xc1, 0x1d, 0x9e, 0xe1, + 0xf8, 0x98, 0x11, 0x69, + 0xd9, 0x8e, 0x94, 0x9b, + 0x1e, 0x87, 0xe9, 0xce, + 0x55, 0x28, 0xdf, 0x8c, + 0xa1, 0x89, 0x0d, 0xbf, + 0xe6, 0x42, 0x68, 0x41, + 0x99, 0x2d, 0x0f, 0xb0, + 0x54, 0xbb, 0x16 }, + // S-box type 2 + { 0xe2, 0x4e, 0x54, 0xfc, 0x94, + 0xc2, 0x4a, 0xcc, 0x62, + 0x0d, 0x6a, 0x46, 0x3c, + 0x4d, 0x8b, 0xd1, 0x5e, + 0xfa, 0x64, 0xcb, 0xb4, + 0x97, 0xbe, 0x2b, 0xbc, + 0x77, 0x2e, 0x03, 0xd3, + 0x19, 0x59, 0xc1, 0x1d, + 0x06, 0x41, 0x6b, 0x55, + 0xf0, 0x99, 0x69, 0xea, + 0x9c, 0x18, 0xae, 0x63, + 0xdf, 0xe7, 0xbb, 0x00, + 0x73, 0x66, 0xfb, 0x96, + 0x4c, 0x85, 0xe4, 0x3a, + 0x09, 0x45, 0xaa, 0x0f, + 0xee, 0x10, 0xeb, 0x2d, + 0x7f, 0xf4, 0x29, 0xac, + 0xcf, 0xad, 0x91, 0x8d, + 0x78, 0xc8, 0x95, 0xf9, + 0x2f, 0xce, 0xcd, 0x08, + 0x7a, 0x88, 0x38, 0x5c, + 0x83, 0x2a, 0x28, 0x47, + 0xdb, 0xb8, 0xc7, 0x93, + 0xa4, 0x12, 0x53, 0xff, + 0x87, 0x0e, 0x31, 0x36, + 0x21, 0x58, 0x48, 0x01, + 0x8e, 0x37, 0x74, 0x32, + 0xca, 0xe9, 0xb1, 0xb7, + 0xab, 0x0c, 0xd7, 0xc4, + 0x56, 0x42, 0x26, 0x07, + 0x98, 0x60, 0xd9, 0xb6, + 0xb9, 0x11, 0x40, 0xec, + 0x20, 0x8c, 0xbd, 0xa0, + 0xc9, 0x84, 0x04, 0x49, + 0x23, 0xf1, 0x4f, 0x50, + 0x1f, 0x13, 0xdc, 0xd8, + 0xc0, 0x9e, 0x57, 0xe3, + 0xc3, 0x7b, 0x65, 0x3b, + 0x02, 0x8f, 0x3e, 0xe8, + 0x25, 0x92, 0xe5, 0x15, + 0xdd, 0xfd, 0x17, 0xa9, + 0xbf, 0xd4, 0x9a, 0x7e, + 0xc5, 0x39, 0x67, 0xfe, + 0x76, 0x9d, 0x43, 0xa7, + 0xe1, 0xd0, 0xf5, 0x68, + 0xf2, 0x1b, 0x34, 0x70, + 0x05, 0xa3, 0x8a, 0xd5, + 0x79, 0x86, 0xa8, 0x30, + 0xc6, 0x51, 0x4b, 0x1e, + 0xa6, 0x27, 0xf6, 0x35, + 0xd2, 0x6e, 0x24, 0x16, + 0x82, 0x5f, 0xda, 0xe6, + 0x75, 0xa2, 0xef, 0x2c, + 0xb2, 0x1c, 0x9f, 0x5d, + 0x6f, 0x80, 0x0a, 0x72, + 0x44, 0x9b, 0x6c, 0x90, + 0x0b, 0x5b, 0x33, 0x7d, + 0x5a, 0x52, 0xf3, 0x61, + 0xa1, 0xf7, 0xb0, 0xd6, + 0x3f, 0x7c, 0x6d, 0xed, + 0x14, 0xe0, 0xa5, 0x3d, + 0x22, 0xb3, 0xf8, 0x89, + 0xde, 0x71, 0x1a, 0xaf, + 0xba, 0xb5, 0x81 }, + // inverse of S-box type 1 + { 0x52, 0x09, 0x6a, 0xd5, 0x30, + 0x36, 0xa5, 0x38, 0xbf, + 0x40, 0xa3, 0x9e, 0x81, + 0xf3, 0xd7, 0xfb, 0x7c, + 0xe3, 0x39, 0x82, 0x9b, + 0x2f, 0xff, 0x87, 0x34, + 0x8e, 0x43, 0x44, 0xc4, + 0xde, 0xe9, 0xcb, 0x54, + 0x7b, 0x94, 0x32, 0xa6, + 0xc2, 0x23, 0x3d, 0xee, + 0x4c, 0x95, 0x0b, 0x42, + 0xfa, 0xc3, 0x4e, 0x08, + 0x2e, 0xa1, 0x66, 0x28, + 0xd9, 0x24, 0xb2, 0x76, + 0x5b, 0xa2, 0x49, 0x6d, + 0x8b, 0xd1, 0x25, 0x72, + 0xf8, 0xf6, 0x64, 0x86, + 0x68, 0x98, 0x16, 0xd4, + 0xa4, 0x5c, 0xcc, 0x5d, + 0x65, 0xb6, 0x92, 0x6c, + 0x70, 0x48, 0x50, 0xfd, + 0xed, 0xb9, 0xda, 0x5e, + 0x15, 0x46, 0x57, 0xa7, + 0x8d, 0x9d, 0x84, 0x90, + 0xd8, 0xab, 0x00, 0x8c, + 0xbc, 0xd3, 0x0a, 0xf7, + 0xe4, 0x58, 0x05, 0xb8, + 0xb3, 0x45, 0x06, 0xd0, + 0x2c, 0x1e, 0x8f, 0xca, + 0x3f, 0x0f, 0x02, 0xc1, + 0xaf, 0xbd, 0x03, 0x01, + 0x13, 0x8a, 0x6b, 0x3a, + 0x91, 0x11, 0x41, 0x4f, + 0x67, 0xdc, 0xea, 0x97, + 0xf2, 0xcf, 0xce, 0xf0, + 0xb4, 0xe6, 0x73, 0x96, + 0xac, 0x74, 0x22, 0xe7, + 0xad, 0x35, 0x85, 0xe2, + 0xf9, 0x37, 0xe8, 0x1c, + 0x75, 0xdf, 0x6e, 0x47, + 0xf1, 0x1a, 0x71, 0x1d, + 0x29, 0xc5, 0x89, 0x6f, + 0xb7, 0x62, 0x0e, 0xaa, + 0x18, 0xbe, 0x1b, 0xfc, + 0x56, 0x3e, 0x4b, 0xc6, + 0xd2, 0x79, 0x20, 0x9a, + 0xdb, 0xc0, 0xfe, 0x78, + 0xcd, 0x5a, 0xf4, 0x1f, + 0xdd, 0xa8, 0x33, 0x88, + 0x07, 0xc7, 0x31, 0xb1, + 0x12, 0x10, 0x59, 0x27, + 0x80, 0xec, 0x5f, 0x60, + 0x51, 0x7f, 0xa9, 0x19, + 0xb5, 0x4a, 0x0d, 0x2d, + 0xe5, 0x7a, 0x9f, 0x93, + 0xc9, 0x9c, 0xef, 0xa0, + 0xe0, 0x3b, 0x4d, 0xae, + 0x2a, 0xf5, 0xb0, 0xc8, + 0xeb, 0xbb, 0x3c, 0x83, + 0x53, 0x99, 0x61, 0x17, + 0x2b, 0x04, 0x7e, 0xba, + 0x77, 0xd6, 0x26, 0xe1, + 0x69, 0x14, 0x63, 0x55, + 0x21, 0x0c, 0x7d }, + // inverse of S-box type 2 + { 0x30, 0x68, 0x99, 0x1b, 0x87, + 0xb9, 0x21, 0x78, 0x50, + 0x39, 0xdb, 0xe1, 0x72, + 0x09, 0x62, 0x3c, 0x3e, + 0x7e, 0x5e, 0x8e, 0xf1, + 0xa0, 0xcc, 0xa3, 0x2a, + 0x1d, 0xfb, 0xb6, 0xd6, + 0x20, 0xc4, 0x8d, 0x81, + 0x65, 0xf5, 0x89, 0xcb, + 0x9d, 0x77, 0xc6, 0x57, + 0x43, 0x56, 0x17, 0xd4, + 0x40, 0x1a, 0x4d, 0xc0, + 0x63, 0x6c, 0xe3, 0xb7, + 0xc8, 0x64, 0x6a, 0x53, + 0xaa, 0x38, 0x98, 0x0c, + 0xf4, 0x9b, 0xed, 0x7f, + 0x22, 0x76, 0xaf, 0xdd, + 0x3a, 0x0b, 0x58, 0x67, + 0x88, 0x06, 0xc3, 0x35, + 0x0d, 0x01, 0x8b, 0x8c, + 0xc2, 0xe6, 0x5f, 0x02, + 0x24, 0x75, 0x93, 0x66, + 0x1e, 0xe5, 0xe2, 0x54, + 0xd8, 0x10, 0xce, 0x7a, + 0xe8, 0x08, 0x2c, 0x12, + 0x97, 0x32, 0xab, 0xb4, + 0x27, 0x0a, 0x23, 0xdf, + 0xef, 0xca, 0xd9, 0xb8, + 0xfa, 0xdc, 0x31, 0x6b, + 0xd1, 0xad, 0x19, 0x49, + 0xbd, 0x51, 0x96, 0xee, + 0xe4, 0xa8, 0x41, 0xda, + 0xff, 0xcd, 0x55, 0x86, + 0x36, 0xbe, 0x61, 0x52, + 0xf8, 0xbb, 0x0e, 0x82, + 0x48, 0x69, 0x9a, 0xe0, + 0x47, 0x9e, 0x5c, 0x04, + 0x4b, 0x34, 0x15, 0x79, + 0x26, 0xa7, 0xde, 0x29, + 0xae, 0x92, 0xd7, 0x84, + 0xe9, 0xd2, 0xba, 0x5d, + 0xf3, 0xc5, 0xb0, 0xbf, + 0xa4, 0x3b, 0x71, 0x44, + 0x46, 0x2b, 0xfc, 0xeb, + 0x6f, 0xd5, 0xf6, 0x14, + 0xfe, 0x7c, 0x70, 0x5a, + 0x7d, 0xfd, 0x2f, 0x18, + 0x83, 0x16, 0xa5, 0x91, + 0x1f, 0x05, 0x95, 0x74, + 0xa9, 0xc1, 0x5b, 0x4a, + 0x85, 0x6d, 0x13, 0x07, + 0x4f, 0x4e, 0x45, 0xb2, + 0x0f, 0xc9, 0x1c, 0xa6, + 0xbc, 0xec, 0x73, 0x90, + 0x7b, 0xcf, 0x59, 0x8f, + 0xa1, 0xf9, 0x2d, 0xf2, + 0xb1, 0x00, 0x94, 0x37, + 0x9f, 0xd0, 0x2e, 0x9c, + 0x6e, 0x28, 0x3f, 0x80, + 0xf0, 0x3d, 0xd3, 0x25, + 0x8a, 0xb5, 0xe7, 0x42, + 0xb3, 0xc7, 0xea, 0xf7, + 0x4c, 0x11, 0x33, 0x03, + 0xa2, 0xac, 0x60 } }; + + public static int[][] KRK = { + { 0x51, 0x7c, 0xc1, 0xb7, 0x27, + 0x22, 0x0a, 0x94, 0xfe, + 0x13, 0xab, 0xe8, 0xfa, + 0x9a, 0x6e, 0xe0 }, + { 0x6d, 0xb1, 0x4a, 0xcc, 0x9e, + 0x21, 0xc8, 0x20, 0xff, + 0x28, 0xb1, 0xd5, 0xef, + 0x5d, 0xe2, 0xb0 }, + { 0xdb, 0x92, 0x37, 0x1d, 0x21, + 0x26, 0xe9, 0x70, 0x03, + 0x24, 0x97, 0x75, 0x04, + 0xe8, 0xc9, 0x0e } }; + + + //func1 + public static String CryptAria(String aKey, String source) { + if(source == null || source.equals("")) { + return ""; + } + + TAriaCrypt aria = TAriaCrypt.Create(null); + aria.properties.get("Encode").write(true); + aria.properties.get("Key").write(aKey); + return aria.Crypt(source); + } + + //func2 + public static String DecryptAria(String aKey, String source) { + if(source == null || source.equals("")) { + return ""; + } + + TAriaCrypt aria = TAriaCrypt.Create(null); + aria.properties.get("Encode").write(true); + aria.properties.get("Key").write(aKey); + return aria.Decrypt(source); + } + + + +} diff --git a/src/main/java/cokr/xit/applib/delphi/CxBase64.java b/src/main/java/cokr/xit/applib/delphi/CxBase64.java new file mode 100644 index 0000000..a333b50 --- /dev/null +++ b/src/main/java/cokr/xit/applib/delphi/CxBase64.java @@ -0,0 +1,27 @@ +package cokr.xit.applib.delphi; + +import java.io.UnsupportedEncodingException; +import java.util.Base64; +import java.util.Base64.Decoder; +import java.util.Base64.Encoder; + +public class CxBase64 { + + public static String Base64Encode(byte[] input) { + String result = ""; + + try { + Encoder encoder = Base64.getEncoder(); + result = new String(encoder.encode(input),"ISO-8859-1"); + } catch (UnsupportedEncodingException e) { + e.printStackTrace(); + } + return result; + } + + public static byte[] Base64Decode(String input) { + Decoder decoder = Base64.getDecoder(); + return decoder.decode(input); + } + +} diff --git a/src/main/java/cokr/xit/applib/delphi/CxMD5.java b/src/main/java/cokr/xit/applib/delphi/CxMD5.java new file mode 100644 index 0000000..dd1cbdb --- /dev/null +++ b/src/main/java/cokr/xit/applib/delphi/CxMD5.java @@ -0,0 +1,52 @@ +package cokr.xit.applib.delphi; + +import java.io.UnsupportedEncodingException; +import java.security.MessageDigest; +import java.security.NoSuchAlgorithmException; + +public class CxMD5 { + + public static byte[] MD5String(String szString) { + byte[] r = new byte[0]; + MessageDigest md; + try { + md = MessageDigest.getInstance("MD5"); + md.update(szString.getBytes("EUC-KR")); + byte[] d = md.digest(); + String hash = _toHex(d); + + r = hash.getBytes("EUC-KR"); + } catch (NoSuchAlgorithmException e) { + e.printStackTrace(); + } + catch (UnsupportedEncodingException e) { + e.printStackTrace(); + } + return r; + } + + private static String _toHex(byte[] bin_data) { + StringBuilder result = new StringBuilder(); + + if (bin_data != null && bin_data.length != 0) { + + for (int i = 0; i < bin_data.length; i++) { + result.append(String.format("%02x", bin_data[i])); + } + } + + return result.toString(); + } + + private static byte[] _toHex(String strHex) { + if (strHex == null || strHex.length() == 0) { + return null; + } + + byte[] ba = new byte[strHex.length() / 2]; + for (int i = 0; i < ba.length; i++) { + ba[i] = (byte) Integer.parseInt(strHex.substring(2 * i, 2 * i + 2), 16); + } + return ba; + } +} diff --git a/src/main/java/cokr/xit/applib/delphi/Delphi.java b/src/main/java/cokr/xit/applib/delphi/Delphi.java new file mode 100644 index 0000000..cccb8a0 --- /dev/null +++ b/src/main/java/cokr/xit/applib/delphi/Delphi.java @@ -0,0 +1,99 @@ +package cokr.xit.applib.delphi; + +import java.nio.ByteBuffer; +import java.nio.ByteOrder; + +public class Delphi { + + + public static int Move(byte[] source, int sourceFrom){ + byte[] b = new byte[4]; + b[0] = source[sourceFrom]; + b[1] = source[sourceFrom+1]; + b[2] = source[sourceFrom+2]; + b[3] = source[sourceFrom+3]; + + return _bytesToInt_le(b); + } + + public static void Move(int sourceInt, byte[] target, int targetFrom){ + byte[] source = _intToBytes_le(sourceInt); + + int j = targetFrom; + for(int z=0; z < 4; z++) { + target[j] = source[z]; + j++; + } + } + + public static void Move(byte[] source, int sourceFrom, byte[] target, int targetFrom, int size){ + int i = sourceFrom; + int j = targetFrom; + for(int z=0; z < size; z++) { + target[j] = source[i]; + i++; + j++; + } + } + + public static void Move(byte[] source, int sourceFrom, int[] targetIntArray, int size){ + byte[] byteTarget = new byte[targetIntArray.length]; + Move(source,sourceFrom,byteTarget,0,size); + _convertIntArray(byteTarget, targetIntArray); + } + + public static void Move(int[] sourceIntArray, byte[] target, int targetFrom, int size){ + byte[] byteSource = new byte[sourceIntArray.length]; + _convertByteArray(sourceIntArray, byteSource); + Move(byteSource,0,target,targetFrom,size); + } + + public static int Inc(int num, int incNum) { + return num+incNum; + } + + public static byte[] SetLength(int len) { + return new byte[len]; + } + + public static int Length(byte[] b){ + return b.length; + } + + public static int SizeOf(int[] b){ + return b.length; + } + + + private static void _convertIntArray(byte[] b, int[] n){ + for(int j = 0; j < b.length; j++ ) + { + if(b[j] < 0) + n[j] = b[j] + 256; + else + n[j] = b[j]; + } + } + + private static void _convertByteArray(int[] n, byte[] b){ + for(int j = 0; j < n.length; j++ ) + { + b[j] = (byte)n[j]; + } + } + + private static byte[] _intToBytes_le(int num) { + return ByteBuffer.allocate(4).order(ByteOrder.LITTLE_ENDIAN).putInt(num).array(); + } + private static byte[] _intToBytes_be(int num) { + return ByteBuffer.allocate(4).order(ByteOrder.BIG_ENDIAN).putInt(num).array(); + } + private static int _bytesToInt_le(byte[] byteArray) { + return ByteBuffer.wrap(byteArray).order(ByteOrder.LITTLE_ENDIAN).getInt(); + } + private static int _bytesToInt_be(byte[] byteArray) { + return ByteBuffer.wrap(byteArray).order(ByteOrder.BIG_ENDIAN).getInt(); + } + + +} diff --git a/src/main/java/cokr/xit/applib/delphi/Property.java b/src/main/java/cokr/xit/applib/delphi/Property.java new file mode 100644 index 0000000..97108e5 --- /dev/null +++ b/src/main/java/cokr/xit/applib/delphi/Property.java @@ -0,0 +1,7 @@ +package cokr.xit.applib.delphi; + +public abstract class Property { + + public abstract O read(); + public abstract void write(O o); +} diff --git a/src/main/java/cokr/xit/applib/delphi/TAriaCrypt.java b/src/main/java/cokr/xit/applib/delphi/TAriaCrypt.java new file mode 100644 index 0000000..1cb4a5f --- /dev/null +++ b/src/main/java/cokr/xit/applib/delphi/TAriaCrypt.java @@ -0,0 +1,466 @@ +package cokr.xit.applib.delphi; + +import java.io.UnsupportedEncodingException; +import java.util.Arrays; +import java.util.Map; + +public class TAriaCrypt { + + private int[] fMasterKey = new int[32]; + private int fKeySize; + private String fKey; + private boolean fEncode; + Map properties = Map.of( + "Encode", new Encode(), + "Key", new Key(), + "KeySize", new KeySize() + ); + + + public class Encode extends Property { + @Override + public Boolean read() { + return fEncode; + } + + @Override + public void write(Boolean bool) { + fEncode = bool; + } + + } + public class Key extends Property{ + + @Override + public String read() { + return fKey; + } + + @Override + public void write(String str) { + SetKey(str); + } + }; + public class KeySize extends Property{ + @Override + public Integer read() { + return fKeySize; + } + @Override + public void write(Integer num) { + SetKeySize(num); + } + + } + + //privateFunc1 + private void DiffusionLayer(int[] i, int[] o) { + int T; + + T = (i[3] ^ i[4] ^ i[9] ^ i[14]); + o[0] = (i[6] ^ i[8] ^ i[13] ^ T); + o[5] = (i[1] ^ i[10] ^ i[15] ^ T); + o[11] = (i[2] ^ i[7] ^ i[12] ^ T); + o[14] = (i[0] ^ i[5] ^ i[11] ^ T); + T = (i[2] ^ i[5] ^ i[8] ^ i[15]); + o[1] = (i[7] ^ i[9] ^ i[12] ^ T); + o[4] = (i[0] ^ i[11] ^ i[14] ^ T); + o[10] = (i[3] ^ i[6] ^ i[13] ^ T); + o[15] = (i[1] ^ i[4] ^ i[10] ^ T); + T = (i[1] ^ i[6] ^ i[11] ^ i[12]); + o[2] = (i[4] ^ i[10] ^ i[15] ^ T); + o[7] = (i[3] ^ i[8] ^ i[13] ^ T); + o[9] = (i[0] ^ i[5] ^ i[14] ^ T); + o[12] = (i[2] ^ i[7] ^ i[9] ^ T); + T = (i[0] ^ i[7] ^ i[10] ^ i[13]); + o[3] = (i[5] ^ i[11] ^ i[14] ^ T); + o[6] = (i[2] ^ i[9] ^ i[12] ^ T); + o[8] = (i[1] ^ i[4] ^ i[15] ^ T); + o[13] = (i[3] ^ i[6] ^ i[8] ^ T); + } + + private void DiffusionLayer(int[] i, int iIndex, int[] o, int oIndex) { + int T; + + T = (i[iIndex + 3] ^ i[iIndex + 4] ^ i[iIndex + 9] ^ i[iIndex + 14]); + o[oIndex + 0] = (i[iIndex + 6] ^ i[iIndex + 8] ^ i[iIndex + 13] ^ T); + o[oIndex + 5] = (i[iIndex + 1] ^ i[iIndex + 10] ^ i[iIndex + 15] ^ T); + o[oIndex + 11] = (i[iIndex + 2] ^ i[iIndex + 7] ^ i[iIndex + 12] ^ T); + o[oIndex + 14] = (i[iIndex + 0] ^ i[iIndex + 5] ^ i[iIndex + 11] ^ T); + T = (i[iIndex + 2] ^ i[iIndex + 5] ^ i[iIndex + 8] ^ i[iIndex + 15]); + o[oIndex + 1] = (i[iIndex + 7] ^ i[iIndex + 9] ^ i[iIndex + 12] ^ T); + o[oIndex + 4] = (i[iIndex + 0] ^ i[iIndex + 11] ^ i[iIndex + 14] ^ T); + o[oIndex + 10] = (i[iIndex + 3] ^ i[iIndex + 6] ^ i[iIndex + 13] ^ T); + o[oIndex + 15] = (i[iIndex + 1] ^ i[iIndex + 4] ^ i[iIndex + 10] ^ T); + T = (i[iIndex + 1] ^ i[iIndex + 6] ^ i[iIndex + 11] ^ i[iIndex + 12]); + o[oIndex + 2] = (i[iIndex + 4] ^ i[iIndex + 10] ^ i[iIndex + 15] ^ T); + o[oIndex + 7] = (i[iIndex + 3] ^ i[iIndex + 8] ^ i[iIndex + 13] ^ T); + o[oIndex + 9] = (i[iIndex + 0] ^ i[iIndex + 5] ^ i[iIndex + 14] ^ T); + o[oIndex + 12] = (i[iIndex + 2] ^ i[iIndex + 7] ^ i[iIndex + 9] ^ T); + T = (i[iIndex + 0] ^ i[iIndex + 7] ^ i[iIndex + 10] ^ i[iIndex + 13]); + o[oIndex + 3] = (i[iIndex + 5] ^ i[iIndex + 11] ^ i[iIndex + 14] ^ T); + o[oIndex + 6] = (i[iIndex + 2] ^ i[iIndex + 9] ^ i[iIndex + 12] ^ T); + o[oIndex + 8] = (i[iIndex + 1] ^ i[iIndex + 4] ^ i[iIndex + 15] ^ T); + o[oIndex + 13] = (i[iIndex + 3] ^ i[iIndex + 6] ^ i[iIndex + 8] ^ T); + } + + //privateFunc2 + // Encryption and decryption rountine + // p: plain text, e: round keys, c: ciphertext + private void DoCrypt(int[] p, int R, int[] e, int[] c) { + + + int i, j; + int index = 0; + int[] t = new int[16]; + + for (j = 0; j < 16; j++) { + c[j] = p[j]; + } + + for (i = 0; i < R / 2; i++) { + for (j = 0; j < 16; j++) { + t[j] = CxAria.SBox[j % 4][e[index + j] ^ c[j]]; + } + DiffusionLayer(t, c); + index += 16; + for (j = 0; j < 16; j++) { + t[j] = CxAria.SBox[(2 + j) % 4][e[index + j] ^ c[j]]; + } + DiffusionLayer(t, c); + index += 16; + } + DiffusionLayer(c, t); + + for (j = 0; j < 16; j++) { + c[j] = (e[index+j] ^ t[j]); + } + + } + + + //privateFunc3 + // Decryption round key generation rountine + // w0 : maskter key, d : decryption round keys + private int DecKeySetup(int[] w0, int[] d) { + int i, j, R; + int[] t = new int[16]; + + R = EncKeySetup(w0, d); + for (j = 0; j < 16; j++) { + t[j] = d[j]; + d[j] = d[16 * R + j]; + d[16 * R + j] = t[j]; + } + for (i = 1; i <= R / 2; i++) { + DiffusionLayer(d, i * 16, t, 0); + DiffusionLayer(d, (R - i) * 16, d, i * 16); + for (j = 0; j < 16; j++) + d[(R - i) * 16 + j] = t[j]; + } + return R; + } + + //privateFunc4 + // Encryption round key generation rountine + // w0 : master key, e : encryption round keys + private int EncKeySetup(int[] w0, int[] e) { + + int R = (fKeySize + 256) / 32; + int q = (fKeySize - 128) / 64; + int i; + int[] t = new int[16]; + int[] w1 = new int[16]; + int[] w2 = new int[16]; + int[] w3 = new int[16]; + + // t from sbox,krk,q + for (i = 0; i < 16; i++){ + t[i] = CxAria.SBox[i % 4][ CxAria.KRK[q][i] ^ w0[i]]; + } + + //dl 1 + DiffusionLayer(t, w1); + + // + if (R == 14) { + for (i = 0; i < 8; i++) { + w1[i] ^= w0[16 + i]; + } + } else if (R == 16) { + for (i = 0; i < 16; i++) { + w1[i] ^= w0[16 + i]; + } + } + + // q + q = (q == 2) ? 0 : (q + 1); + + // t from sbox,krk,q + for (i = 0; i < 16; i++) { + t[i] = CxAria.SBox[(2 + i) % 4][CxAria.KRK[q][i] ^ w1[i]]; + } + + //dl 2 + DiffusionLayer(t, w2); + + // + for (i = 0; i < 16; i++) { + w2[i] ^= w0[i]; + } + + // q + q = (q == 2) ? 0 : (q + 1); + + // t from sbox,krk,q + for (i = 0; i < 16; i++) { + t[i] = CxAria.SBox[i % 4][CxAria.KRK[q][i] ^ w2[i]]; + } + + //dl 3 + DiffusionLayer(t, w3); + + // + for (i = 0; i < 16; i++) { + w3[i] = w3[1] ^ w1[i]; + } + + //e초기화 + for (i = 0; i < 16 * (R + 1); i++) { + e[i] = 0; + } + + RotXOR(w0, 0, e, 0); + RotXOR(w1, 19, e, 0); + RotXOR(w1, 0, e, 16); + RotXOR(w2, 19, e, 16); + RotXOR(w2, 0, e, 32); + RotXOR(w3, 19, e, 32); + RotXOR(w3, 0, e, 48); + RotXOR(w0, 19, e, 48); + RotXOR(w0, 0, e, 64); + RotXOR(w1, 31, e, 64); + RotXOR(w1, 0, e, 80); + RotXOR(w2, 31, e, 80); + RotXOR(w2, 0, e, 96); + RotXOR(w3, 31, e, 96); + RotXOR(w3, 0, e, 112); + RotXOR(w0, 31, e, 112); + RotXOR(w0, 0, e, 128); + RotXOR(w1, 67, e, 128); + RotXOR(w1, 0, e, 144); + RotXOR(w2, 67, e, 144); + RotXOR(w2, 0, e, 160); + RotXOR(w3, 67, e, 160); + RotXOR(w3, 0, e, 176); + RotXOR(w0, 67, e, 176); + RotXOR(w0, 0, e, 192); + RotXOR(w1, 97, e, 192); + + if (R > 12) { + + RotXOR(w1, 0, e, 208); + RotXOR(w2, 97, e, 208); + RotXOR(w2, 0, e, 224); + RotXOR(w3, 97, e, 224); + } + if (R > 14) { + RotXOR(w3, 0, e, 240); + RotXOR(w0, 97, e, 240); + RotXOR(w0, 0, e, 256); + RotXOR(w1, 109, e, 256); + } + + return R; + } + + + //privateFunc5 + // Right-rotate 128 bit source string s by n bits and XOR it to target + // string t + private void RotXOR(int[] s, int n, int[] t, int index) { + int i, q; + + q = n / 8; + n %= 8; + for (i = 0; i < 16; i++) { + t[index + (q + i) % 16] ^= (byte) (s[i] >> n); + if (n != 0) { + t[index + (q + i + 1) % 16] ^= (byte) (s[i] << (8 - n)); + } + } + + _convertIntArray(t); + } + + //privateFunc6 + private void SetKey(String value){ + if(!fKey.equals(value)) { + fKey = value; + + byte[] MD5Hash = CxMD5.MD5String(fKey); + + try { + Delphi.Move(MD5Hash,0,fMasterKey,Delphi.SizeOf(fMasterKey)); + + } catch(Exception e){ + + } + } + } + //privateFunc7 + private void SetKeySize(Integer num) { + if(num == 128 || num == 192 || num == 256) { + fKeySize = num; + } + } + + //publicFunc1 + public static TAriaCrypt Create(Object AOwner) { + TAriaCrypt newAria = new TAriaCrypt(); + newAria.fEncode = true; + newAria.fKey = ""; + newAria.fKeySize = 192; + return newAria; + } + + //publicFunc2 + public String Crypt(String value) { + String result = null; + + int[] InBlock = new int[16]; + int[] OutBlock = new int[16]; + int RoundNumber; + int[] RoundKey = new int[16*17]; + int i; + int Start; + byte[] EncryptData = new byte[0]; + int EncryptSize; + byte[] CryptData = new byte[0]; + int DataSize; + int ModSize; + try { + + byte[] value_byte = value.getBytes("EUC-KR"); + + EncryptSize = Delphi.Length(value_byte); + EncryptData = Delphi.SetLength(EncryptSize + 4); + + Delphi.Move(EncryptSize, EncryptData, 0); + Delphi.Move(value_byte,0,EncryptData,4,EncryptSize); + + DataSize = Delphi.Length(EncryptData); + ModSize = DataSize % 16; + RoundNumber = EncKeySetup(fMasterKey, RoundKey); + + Start = 1; + CryptData = Delphi.SetLength(DataSize + 16 - (DataSize % 16)); + + for(i = 1; i <= Math.floorDiv(DataSize,16); i++) { + Arrays.fill(InBlock, 0); + Arrays.fill(OutBlock, 0); + + Delphi.Move(EncryptData, Start-1, InBlock, 16); + DoCrypt(InBlock, RoundNumber, RoundKey, OutBlock); + Delphi.Move(OutBlock,CryptData,Start-1,16); + + Start = Delphi.Inc(Start,16); + } + + //나머지크기 + if (ModSize != 0) { + Arrays.fill(InBlock, 0); + Arrays.fill(OutBlock, 0); + + Delphi.Move(EncryptData,Start-1,InBlock,ModSize); + DoCrypt(InBlock, RoundNumber, RoundKey, OutBlock); + Delphi.Move(OutBlock,CryptData,Start-1,16); + } + + if(fEncode) { + result = CxBase64.Base64Encode(CryptData); + } else { + result = new String(CryptData, "EUC-KR"); + } + } catch (UnsupportedEncodingException e) { + e.printStackTrace(); + } + return result; + } + + //publicFunc3 + public String Decrypt(String value) { + + String result = ""; + int[] InBlock = new int[16]; + int[] OutBlock = new int[16]; + int RoundNumber; + int[] RoundKey = new int[16 * 17]; + int i; + int Start; + byte[] CryptData; + byte[] EncryptData = new byte[0]; + int EncryptSize; + int DataSize; + int ModSize; + + try { + if(fEncode) { + CryptData = CxBase64.Base64Decode(value); + } else { + CryptData = value.getBytes(); + } + + DataSize = CryptData.length; + ModSize = DataSize % 16; + + RoundNumber = DecKeySetup(fMasterKey, RoundKey); + + Start = 1; + EncryptData = Delphi.SetLength(DataSize); + for (i = 1; i <= Math.floorDiv(DataSize, 16); i++) { + Arrays.fill(InBlock, 0); + Arrays.fill(OutBlock, 0); + + Delphi.Move(CryptData,(Start-1),InBlock,16); + DoCrypt(InBlock, RoundNumber, RoundKey, OutBlock); + Delphi.Move(OutBlock,EncryptData,Start-1,16); + + Start = Delphi.Inc(Start,16); + } + + + if(ModSize > 0) { + Arrays.fill(InBlock, 0); + Arrays.fill(OutBlock, 0); + + Delphi.Move(CryptData,(Start-1),InBlock,16); + DoCrypt(InBlock, RoundNumber, RoundKey, OutBlock); + Delphi.Move(OutBlock,EncryptData,Start-1,16); + + } + + EncryptSize = Delphi.Move(EncryptData,0); + byte[] copy = new byte[EncryptSize]; + Delphi.Move(EncryptData,4,copy,0,EncryptSize); + result = new String(copy,"EUC-KR"); + + } catch (UnsupportedEncodingException e) { + e.printStackTrace(); + } + + return result; + } + + + private static void _convertIntArray(int[] n){ + for(int j = 0; j < n.length; j++ ) + { + if(n[j] < 0) + n[j] = n[j] + 256; + else + n[j] = n[j]; + } + } + +}