<br /> Public Function Encrypt(ByVal Plain As String, Text As TextBox)<br /> &#8216;DUH!&#8217;<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 /> &#8216;DUH!&#8217;<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) &#8211; 1)<br /> Next i<br /> Text = Encrypted<br /> End Function

simple substitution cipher. maybe better than the lodd idea?

Related Posts

  • October 23, 2001 I'm a little perturbed with my chatty proggies lately. I wonder if it means all of their […]
  • 7611 –August 4, 2005 7611 –
  • August 15, 2002 Lappie is now 2000. Hooray! much better than "WinMe". all of his drivers are working... […]
  • July 22, 2002 Exciting, sexual, emotional dreams last night... Very erotic and pleasant...I woke up […]
  • July 7, 2002 it amazes me how many people thought that Newt and I have synched digestive cycles, and […]

Leave a Reply