• Home
 · 
• String Manipulation
 · 
• A very simple Encrypt and Unencrypt

A very simple Encrypt and Unencrypt

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.

Rate A very simple Encrypt and Unencrypt

• 1
• 2
• 3
• 4
• 5

(39(39 Vote))

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