Hi i have a problem in my thesis my partner had a motor accident and cant finish our thesis pls anybody anybody here that can help me make a decyption function
heres his encryption function:
Function CheckLength(ByRef Data)
dim kb(255)
dim cb(255)
dim Key
Key = "(3l216y9n2+7e5u(rhb+!0u$+r!uq"
KeyLen=Len(Key)
if KeyLen=0 Then Exit function
KeyText=Key
For i=0 To 255
kb(i)=Asc(Mid(Key, ((i) Mod (KeyLen))+1, 1))
Next
if Len(Data)=0 Then Exit function
For i=0 To 255
cb(i)=i
Next
Jump=0
For i=0 To 255
Jump=(Jump+cb(i)+kb(i)) Mod 256
Tmp=cb(i)
cb(i)=cb(Jump)
cb(Jump)=Tmp
Next
i=0
Jump=0
For X=1 To Len(Data)
i=(i+1) Mod 256
Jump=(Jump+cb(i)) Mod 256
T=(cb(i)+cb(Jump)) Mod 256
Tmp=cb(i)
cb(i)=cb(Jump)
cb(Jump)=Tmp
CheckLength = CheckLength & Chr(Asc(Mid(Data, X, 1)) Xor cb(T))
Next
End function
