Source Code Database

Name
Description	This is the same algorithm used by File Encrypt Professional To use it simply create a new module and add the source code below to it. Simply call Stream(sData, sKey) to encrypt and decrypt data.
Language	Basic Java
Source Code	DefInt A-Z Function Stream(InBuffer As String, Password As String) As String Dim Key As String, HHH As String, SBox As String, Texti As String On Error Resume Next Key = Password For i = 1 To 256 K1 = Asc(Mid(Key, i, 1)) K2 = Asc(Mid(Key, K1 + i Mod Len(Key), 1)) C = (C ^ 2) Mod (C * 2) C = C + (K1 * 2 - K2) Mod 256 C = C + (K1 * 2 + K2 * 2) Mod (K1 * 2) C = C + (K1 * 2 + K2 * 2) Mod (K2 * 2) C = C Xor i Mod 256 HHH = HHH & Chr(C Mod 256 + 1) Next SBox = HHH On Error Resume Next Key = Password Texti = InBuffer Text1 = "" For i = 1 To Len(InBuffer) C = Asc(Mid(InBuffer, i, 1)) - 1 k = Asc(Mid(Key, i Mod Len(Key), 1)) f = k j = (j + i) Mod 256 t = (t + j) Mod 256 h = (h + Asc(Mid(SBox, t, 1)) + Asc(Mid(SBox, j, 1))) Mod 256 s = (s + Asc(Mid(SBox, h + t Mod 256, 1)) + Asc(Mid(SBox, h + i, 1)) + Asc(Mid(SBox, h + j, 1))) Mod 256 f = (f Xor i Xor j Xor t Xor h Xor s) Mod 255 f = (f Xor j Xor t Xor h Xor s) Mod 256 f = (f Xor t Xor h Xor s) Mod 255 f = (f Xor h Xor s) Mod 256 f = (f Xor s) Mod 255 f = f + (i + j + t + h + s Mod 256) f = f + (j + t + h + s Mod 256) f = f + (t + h + s Mod 256) f = f + (h + s Mod 256) f = f + (s Mod 256) f = f Mod 256 C = C Xor f C = (C Mod 256) + 1 Mid(Texti, i, 1) = Chr(C) Next Stream = Texti End Function
Submitted By
E-Mail

Back