encryption

[nishantp]

Heres some more...this is some pretty cheap symetrical Xor encryption. So call the same function with the same key on the cipher and you'll get the text back.

Function Enc(iText As String, Key As String) As String
'Very Simple Encryption
'Symetrical, Xor encryption. Simply text xor key. nothing fancy
    Dim StrOut As String
    Dim i As Long
    Dim StrLen As Long
    Dim KeyLen As Long
 
    StrLen = Len(iText)
    KeyLen = Len(Key)
 
    For i = 1 To StrLen
        StrOut = StrOut & Chr(Asc(Mid(iText, i, 1)) Xor Asc(Mid(Key, i Mod KeyLen + 1, 1)))
    Next
    Enc = StrOut
End Function