Relaxlife.net可加密/解密中文/英文的Asp代码

 Relaxlife.net可加密/解密中文/英文的Asp代码供大家下载,这可是机密，可用在代码加密
可加密/解密中文/英文的Asp代码供大家下载,这可是机密，可用在代码加密
Function.asp
<%
Rem =================================================================
Rem = 函数文件:Function.asp
Rem = 测试文件:TestEncrypt.asp，Encryptpass.asp
Rem = 说明:Encrypt_PRO加密函数，Decrypt_PRO解密函数
Rem = Revision:1.01 Beta
Rem = 作者:熊氏英雄（cexo255），小奎
Rem = Date:2005/04/20 03:41:10
Rem = QQ:30133499，38377160
Rem = MySite:Http://www.Relaxlife.net
Rem = QQ群：4341998
Rem = 适用:对数据的加密，或对代码的加密，可加密中文/英文等。完全解密，不会出现解密出现乱码。
Rem = 下版本预计改进:代码算法需要重写，可能知道的人多了就不太安全了。
Rem =================================================================
Public Const sDefaultWHEEL1 = "ABCDEFGHIJKLMNOPQRSTVUWXYZ_1234567890qwertyuiopasd!@#$%^&*(),. ~`-=?/’""fghjklzxcvbnm<>;"
Public Const sDefaultWHEEL2 = "IWEHJKTLZVOPFG_1234567890qwerBNMQRYUASDXCfghjklzxc ~`-=?/’""!@#$%^&*(),.vbnm<>;tyuiopasd"
Function Encrypt_PRO(sINPUT , sPASSWORD ) 
        Dim sWHEEL1, sWHEEL2 
        Dim k, c, i 
        Dim sRESULT
        sWHEEL1 = sDefaultWHEEL1:    sWHEEL2 = sDefaultWHEEL2
    ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
    sRESULT = ""
    For i = 1 To Len(sINPUT)