Encrypt-Decrypt

Set up a couple Textboxes, text1, text2

Good for setting up a low security on your programs.

Private Sub Command1_Click()

Text2 = Encrypt(Text1)

End Sub

Private Sub Command2_Click()

Text1 = Decrypt(Text2)

End Sub

In a module add this code

Option Explicit

Public Function Encrypt(ByVal icText As String) As String

Dim icLen As Integer

Dim icNewText As String

Dim icChar

icChar = vbNullString

icLen = Len(icText)

Dim i

For i = 1 To icLen

icChar = Mid$(icText, i, 1)

Select Case Asc(icChar)

Case 65 To 90

icChar = Chr(Asc(icChar) + 127)

Case 97 To 122

icChar = Chr(Asc(icChar) + 121)

Case 48 To 57

icChar = Chr(Asc(icChar) + 196)

Case 32

icChar = Chr(32)

End Select

icNewText = icNewText + icChar

Next '{End Of}-> For i = 1 To icLen

Encrypt = icNewText

End Function

Public Function Decrypt(ByVal icText As String) As String

Dim icLen As Integer

Dim icNewText As String

Dim icChar

icChar = vbNullString

icLen = Len(icText)

Dim i

For i = 1 To icLen

icChar = Mid$(icText, i, 1)

Select Case Asc(icChar)

Case 192 To 217

icChar = Chr(Asc(icChar) - 127)

Case 218 To 243

icChar = Chr(Asc(icChar) - 121)

Case 244 To 253

icChar = Chr(Asc(icChar) - 196)

Case 32

icChar = Chr(32)

End Select

icNewText = icNewText + icChar

Next '{End Of}-> For i = 1 To icLen

Decrypt = icNewText

End Function