CCProxy账户加密解密算法

作者：admin 发布于：2012-3-12 16:21 Monday 分类：网络转载

为了便于实现网络管理CCProxy，研究了一下账户的加密算法，整理成函数方便使用：

    Function CCProxyJiaMi(ByVal strPassword As String) As String  
        Dim MIWEN As String = ""  
        For i As Integer = 0 To strPassword.Length - 1   
            Dim j As Integer = 999 - Asc(strPassword.Substring(i, 1))   
            MIWEN = MIWEN & j.ToString   
        Next  
        Return MIWEN   
    End Function  
    Function CCProxyJieMi(ByVal strPassword As String) As String  
        Dim MIMA As String = ""  
        Dim PWDLength As Integer = strPassword.Length / 3   
        For i As Integer = 0 To PWDLength - 1   
            Dim SubMIMA3 As Integer = CInt(strPassword.Substring(i * 3, 3))   
            Dim JIEMI As String = Chr(999 - SubMIMA3)   
            MIMA = MIMA & JIEMI   
        Next  
        Return MIMA   
    End Function  
    Function check(ByVal paswrd As String) As Boolean  
        If Microsoft.VisualBasic.IsNumeric(paswrd) = False Then  
            Return False  
        End If  
        If paswrd.Length Mod 3 <> 0 Then  
            Return False  
        End If  
        Return True  
    End Function  

原理就是用999减去密码的每一位的ASCII，

如abc，就用999-97 ，999-98 ，999-99 ，得到902，901，900，那么加密后的密码就是902901900。

    Function CCProxyJieMi(strPassword)   
    dim a1,a2,a3   
    for i = 1 to (len(strPassword)/3)   
    a1 = mid(strPassword,(i * 3)-2,3)   
    a2 = chr(999 - a1)   
    a3 = a3 & a2   
    next   
    CCProxyJieMi = a3   
    End function  
转载于:xxbing

标签: CCProxy