it is my first thread. Sorry if my thread have a lot of wrong code.

In the holiday of school, i tried to create an encryption code for my application and i triend to make it hard to decrypt (or can't).

This is a simple encryption code, but i think hard to decrypt it. The result will similar with base64, but it isn't.

The code only contain Xor, Or, and several math operation. I named it "Triangle Encryption" because this contain formula of triangle area.

Please correct it if my it is wrong.

And, this is a module code :

As you look, this code is very simple and doesn't contain CryptoAPI.

In the holiday of school, i tried to create an encryption code for my application and i triend to make it hard to decrypt (or can't).

This is a simple encryption code, but i think hard to decrypt it. The result will similar with base64, but it isn't.

The code only contain Xor, Or, and several math operation. I named it "Triangle Encryption" because this contain formula of triangle area.

Please correct it if my it is wrong.

And, this is a module code :

Code:

Public Function ENCRYPT(PASSWORD) For I = 1 To Len(PASSWORD) S1 = Asc(Mid(PASSWORD, I, 1)) S2 = S1 + Round(S1 / 2, 0) Mod 256 S3 = Round(Sqr((S1 ^ 2) + (S2 ^ 2)), 0) Mod 256 K = (S1 + S2 + S3) Mod 256 L = ((1 / 2) * S1 * S2) Mod 256 T1 = S1 Xor S3 T2 = K Xor L T3 = S2 Xor L T = (T1 Xor T2 Xor T3) Mod 256 M1 = S1 Or S3 M2 = K Or L M3 = S2 Or L M = (M1 Or (M2 * M3)) Mod 256 TOTAL = TOTAL + Chr((T + M + I ^ 2 + S1) Mod 256) Next ENKRIPSI1 = CRYPT1(TOTAL) ENCRYPT = ENCRYPT + ENKRIPSI1 End Function Private Function CRYPT1(PASS) For a = 1 To Len(PASS) C = Asc(Mid(PASS, a, 1)) TABLEONE = Array("A", "a", "B", "b", "C", "c", "D", "d", "E", "e", "F", "f", "G", "g", "H", "h", _ "I", "i", "J", "j", "K", "k", "L", "l", "M", "m", "N", "n", "O", "o", "P", "p", "Q", "q", "R", "r", _ "S", "s", "T", "t", "U", "u", "V", "v", "W", "w", "X", "x", "Y", "y", "Z", "z") HSL = C Mod UBound(TABLEONE) ONECRYPT = ONECRYPT + TABLEONE(HSL) Next If Len(ONECRYPT) > 0 And Len(ONECRYPT) < 20 Then CRYPT1 = ONECRYPT + "==" Else CRYPT1 = ONECRYPT End Function