![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
scottobear<![CDATA[
Public Function Encrypt(ByVal Plain As String, Text As TextBox)
'DUH!'
Dim Letter As String
For i = 1 To Len(Plain)
Letter = Mid$(Plain, i, 1)
Mid$(Plain, i, 1) = Chr(Asc(Letter) + 1)
Next i
Text = Plain
End Function
Public Function Decrypt(ByVal Encrypted As String, Text As TextBox)
'DUH!'
Dim Letter As String
For i = 1 To Len(Encrypted)
Letter = Mid$(Encrypted, i, 1)
Mid$(Encrypted, i, 1) = Chr(Asc(Letter) - 1)
Next i
Text = Encrypted
End Function]]>
simple substitution cipher. maybe better than the lodd idea?
![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
no subject
Date: 2001-10-16 02:49 am (UTC)Re:
Date: 2001-10-16 06:22 am (UTC)