CCProxy用户密码怎么解密?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

上一篇: Flash怎么和ASP通信?Flash与ASP通信的几种方法
下一篇: asp中几个常用的编码转换函数
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 764 | 引用: 0 | 查看次数: 16360
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭