----------------------------------------------------------- New Message on BDOTNET
----------------------------------------------------------- From: Am2pm4 Message 1 in Discussion Hi All, I have a simple client server application Can please somebody provide me an encrypting algorithm sine my conventional algorithm is not working properly and giving wrong values . Below is the code for My Algorithm ENCRYPTING ALGORITHM Private Function EncryptPassword(ByVal strpwd As String) As String Dim strEncryptedPassword As String = "" Dim temp As Char() Dim key As Integer Dim i As Integer temp = strpwd.ToCharArray() For i = 0 To strpwd.Length() - 1 key = AscW(temp(i)) key = key + 255 temp(i) = ChrW(key) Next strEncryptedPassword = New String(temp) Return strEncryptedPassword End Function DECRYPTING PROBLEM Private Function DecryptPassword(ByVal strpwd As String) As String Dim strDecryptPassword As String = "" Dim temp As Char() Dim key As Integer Dim i As Integer temp = strpwd.ToCharArray() For i = 0 To strpwd.Length() - 1 key = AscW(temp(i)) key = key - 255 temp(i) = ChrW(key) Next strDecryptPassword = New String(temp) Return strDecryptPassword End Function ----------------------------------------------------------- To stop getting this e-mail, or change how often it arrives, go to your E-mail Settings. http://groups.msn.com/BDotNet/_emailsettings.msnw Need help? If you've forgotten your password, please go to Passport Member Services. http://groups.msn.com/_passportredir.msnw?ppmprop=help For other questions or feedback, go to our Contact Us page. http://groups.msn.com/contact If you do not want to receive future e-mail from this MSN group, or if you received this message by mistake, please click the "Remove" link below. On the pre-addressed e-mail message that opens, simply click "Send". Your e-mail address will be deleted from this group's mailing list. mailto:[EMAIL PROTECTED]
