This is a very simple encrypt/unenceypt and when i say simple i mean simple. works for any string containg the normal chr’s ie. (1-9,a-z). Works good tho for simple encrypt.
Original Author: DoWnLoHo
Code
Function Eyncrypt(sData As String) As String
Dim sTemp as String, sTemp1 as String
For iI% = 1 To Len(sData$)
sTemp$ = Mid$(sData$, iI%, 1)
lT = Asc(sTemp$) * 2
sTemp1$ = sTemp1$ & Chr(lT)
Next iI%
Eyncrypt$ = sTemp1$
End Function
Function UnEyncrypt(sData As String) As String
Dim sTemp as String, sTemp1 as String
For iI% = 1 To Len(sData$)
sTemp$ = Mid$(sData$, iI%, 1)
lT = Asc(sTemp$) 2
sTemp1$ = sTemp1$ & Chr(lT)
Next iI%
UnEyncrypt$ = sTemp1$
End Function