http://snippets.dzone.com/posts Fri, 08 Aug 2008 17:42:41 GMT DZone Snippets: Dondi's Code Snippets http://snippets.dzone.com/posts/show/2714 // description of your code here <br /> <br /><code> <br />Public Function encrypt(strInput As String) <br /> Dim n As Integer, i As Integer <br /> n = 13 <br /> For i = 1 To Len(strInput) <br /> Mid(strInput, i, 1) = Chr(Asc(Mid(strInput, i, 1)) + n) <br /> Next i <br /> encrypt = strInput <br />End Function <br /> <br /> <br />Public Function decrypt(strInput As String) <br /> Dim n As Integer, i As Integer <br /> n = 13 <br /> For i = 1 To Len(strInput) <br /> Mid(strInput, i, 1) = Chr(Asc(Mid(strInput, i, 1)) - n) <br /> Next i <br /> decrypt = strInput <br />End Function <br /></code> Tue, 26 Sep 2006 00:40:46 GMT http://snippets.dzone.com/posts/show/2714 dondi (Dondi)