Function passwordEncrypt(origPassword) 
Dim Stemp, I, L, X, Y 
    Randomize( hour(time()) * minute(time()) * second(time()) ) 
    Stemp = Trim(origPassword) 
    L = Len(Stemp) 
    If L > 15 Or L = 0 Then 
        passwordEncrypt = Stemp 
    Else 
        passwordEncrypt = Chr(100 + L) 
        For I = 2 To (16 - L) 
            passwordEncrypt = passwordEncrypt & Chr(Fix(24 * Rnd(1)) + 98) 
        Next 
        For I = (16 - L + 1) To 16 
            X = Asc(Mid(Stemp, (I + L - 16), 1)) 
            If X >= 48 And X <= 57 Or X >= 113 And X <= 122 Then 
                Y = 170 - X 
            ElseIf X >= 65 And X <= 80 Or X >= 97 And X <= 112 Then 
                Y = 177 - X 
            Else 
                Y = 171 - X 
            End If 
            passwordEncrypt = passwordEncrypt & Chr(Y) 
        Next 
    End If 
End Function 我是asp.net C#的,有人可以帮我把上面那个涵数改成C#吗?谢谢了 对应的解密程序为 private string passwordDeEncrypt(string XPassword) 
    { 
        string passwordDeEncrypt = ""; 
        int L = XPassword.Length; 
        int X, Y; 
        if (L != 16) 
        { 
            return XPassword; 
        } 
        else 
        { 
            L = (int)XPassword[0] - 100; 
            for (int I = (16 - L + 1); I < 17; I++) 
            { 
                X = (int)XPassword[I - 1]; 
                if ((X >= 48 && X <= 57) || (X >= 113 && X <= 122)) 
                { 
                    Y = 170 - X; 
                } 
                else if ((X >= 65 && X <= 80) || (X >= 97 && X <= 112)) 
                { 
                    Y = 177 - X; 
                } 
                else 
                { 
                    Y = 171 - X; 
                } 
                passwordDeEncrypt = passwordDeEncrypt + ((char)Y).ToString(); 
            }         } 
        return passwordDeEncrypt; 
    }