Simple Password Scrambling Algo in VB

Hello to all VB programmers! I have a simple challenge for you. In one of my softwares, I use the below function to scramble a password. However, I get many complaints from Asian users that their passwords are not being recognized. My guess is that the function that I use must not be working well on systems with unicode characters. I would need 2 new functions that work well regardless of the character map of the system. Feel free to use a completely different algorithm. I would need 2 functions: **PasswordEncrypt** **PasswordDecrypt** When you place a bid, please tell me why you think your functions will work properly. Bad Function: Public Function **PasswordEncrypt**(ByVal icText As String) As String Dim icLen As Integer Dim icNewText As String Dim icChar As String * 1 Dim I As Integer icChar = "" icLen = Len(icText) For I = 1 To icLen icChar = Mid(icText, I, 1) Select Case Asc(icChar) Case 65 To 90 icChar = Chr(Asc(icChar) + 127) Case 97 To 122 icChar = Chr(Asc(icChar) + 121) Case 48 To 57 icChar = Chr(Asc(icChar) + 196) Case 32 icChar = Chr(32) End Select icNewText = icNewText + icChar Next PasswordEncrypt = icNewText End Function ## Deliverables 2 functions written in VB 6.0 ## Platform VB 6.0 The functions should scramble the password regardless of the character map Windows uses. There should be no problems with unicode characters.