<br />
Public Function Encrypt(ByVal Plain As String, Text As TextBox)<br />
‘DUH!’<br />
Dim Letter As String<br />
For i = 1 To Len(Plain)<br />
Letter = Mid$(Plain, i, 1)<br />
Mid$(Plain, i, 1) = Chr(Asc(Letter) + 1)<br />
Next i<br />
Text = Plain<br />
End Function</p>
<p>Public Function Decrypt(ByVal Encrypted As String, Text As TextBox)<br />
‘DUH!’<br />
Dim Letter As String<br />
For i = 1 To Len(Encrypted)<br />
Letter = Mid$(Encrypted, i, 1)<br />
Mid$(Encrypted, i, 1) = Chr(Asc(Letter) – 1)<br />
Next i<br />
Text = Encrypted<br />
End Function
simple substitution cipher. maybe better than the lodd idea?
