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

來源:互聯網
上載者:User
加密|解密|中文  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)
                c = Mid(sINPUT, i, 1)
                k = InStr(1, sWHEEL1, c)
                If k > 0 Then
                        sRESULT = sRESULT & Mid(sWHEEL2, k, 1)
                Else
                        sRESULT = sRESULT & Addpass(c,sPASSWORD)
                End If
                sWHEEL1 = LeftShift(sWHEEL1):                sWHEEL2 = RightShift(sWHEEL2)
    Next
    Encrypt_PRO = sRESULT
End Function

Function Decrypt_PRO(sINPUT , sPASSWORD ) 
        Dim sWHEEL1, sWHEEL2 
        Dim k, i, c 
        Dim sRESULT
        sWHEEL1 = sDefaultWHEEL1:    sWHEEL2 = sDefaultWHEEL2
    ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD
    sRESULT = ""
    For i = 1 To Len(sINPUT)
                c = Mid(sINPUT, i, 1)
                k = InStr(1, sWHEEL2, c, vbBinaryCompare)
                If k > 0 Then
                        sRESULT = sRESULT & Mid(sWHEEL1, k, 1)
                Else
                        sRESULT = sRESULT & Addpass(c,sPASSWORD)
   &nbs



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。