by DoWnLoHo (14 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (38 Votes)
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.
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