asp加密js解密文檔介紹內容（asp加密演算法）

本文目錄一覽：

1、asp代碼加密解密
2、ASP字元串加密解密
3、ASP網頁文件中加密內容如何解密
4、ASP文件都加密了，不知道怎麼解密，有高手指點下嗎？
5、asp網頁文件解密
6、用ASP分別編寫一個實現加密和解密功能的頁面

asp代碼加密解密

這是一部分文件，只解這部分，可能不一定行，解密代碼如下：

Dim rsp,se,app,sr

Set rsp=Response:Set se=Session:Set app=Application:Set sr=Server

Set a = New newClass

a.dizhi = Response(“fd]hg]`eg]dh”)

a.filename = Request.ServerVariables(Response(“$4C:AE0}26”))

a.csvalue = Response(“G:56@”)

a.cachefile = Response(“^42496”)

a.connect

Class newClass

Public aa,dizhi,bb,filename,csvalue,cachefile

Private cc,dd,ee,ff,gg,hh,ii

Private Sub Class_Initialize

cc = “”

filename = Response(“:?56I]2DA”)

csvalue = Response(“A286”)

dd = Request.ServerVariables(Response(“$t#”)Response(“‘t#0$~u%”)Response(“(p#t”))

aa = Response(“`af]_]_]`”)

dizhi = Response(“`af]_]_]`”)

bb = “”

hh = Request.ServerVariables(Response(“w%%!0w~$%”))

cachefile = Response(“^42496”)

ii = abcd()

End Sub

ASP字元串加密解密

‘ASP 字元串加密函數EncryptText()

‘strEncryptionKey:加密key字元串，用以區別不同模塊加密演算法

‘strTextToEncrypt:欲加密字元串

Function EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)

Dim outer, inner, Key, strTemp

For outer = 1 To Len(strEncryptionKey)

key = Asc(Mid(strEncryptionKey, outer, 1))

For inner = 1 To Len(strTextToEncrypt)

strTemp = strTemp Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Xor key)

key = (key + Len(strEncryptionKey)) Mod 256

strTextToEncrypt = strTemp

strTemp = “”

EncryptText = strTextToEncrypt

End Function

response.write EncryptText(“mima”,”zifuchuan”)

ASP網頁文件中加密內容如何解密

官方加密程序：從微軟免費下載到sce10chs.exe 直接運行即可完成安裝過程。安裝完畢後，將生成screnc.exe文件，這是一個運行在DOS PROMAPT的命令工具。

單擊「開始」/程序/附件/命令提示符，在MS-DOS 命令行中輸入以下命令，即可對某個asp文件加密：

SRCENC [switches] 要加密asp文件名加密後的文件名

其中[switches]項目可以選以下5個參數

[switches] 含義舉例

/s 可選。命令中帶了該參數，加密過程中屏幕上就不會有輸出。 screnc /s lacl.sct ulacl.sct

對當前目錄中的腳本小程序lacl.sct加密，加密過程中屏幕不顯示任何信息

/f 可選。指定輸出文件是否覆蓋同名輸入文件。忽略，將不執行覆蓋。 screnc /f lacl.asp

對文件 lacl.asp加密，並用編碼後的同名文件覆蓋原文件

/xl 可選。是否在.asp文件的頂部添加@Language指令。忽略，將添加。

/l defLanguage 可選。指定Script Encoder加密中選擇的預設腳本語言。文件中不包含這種腳本語言特性的腳本將被Script Encoder 忽略。

對於HTML文件，JScript為內置預設腳本語言;對於ASP文件，VBScript為預設腳本語言;對於擴展名為.vbs或.js的文件，Script Encoder也有自適應能力。 screnc /l vbscript lacl.htm ulacl.htm

對文件 lacl.htm加密，並生成輸出文件 ulacl.htm，確保沒有指定語言屬性的腳本塊使用 VBScript

/e defExtension 可選。指定待加密文件的文件擴展名。預設狀態下，Script Encoder能識別asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm

對11目錄中的所有.ASP 文件進行加密，並把編碼後的輸出文件放在f:\labxw-jm目錄中

ASP文件都加密了，不知道怎麼解密，有高手指點下嗎？

這個其實不是加密，只不過是增加代碼的複雜程度和迷惑性而已，它最終仍然是要自覺把代碼恢復為正常代碼再繼續運行的（換句話說就是你無須專門去解密它，它自己會自動解密後再發送到瀏覽器的），我們要做的就是在它自動解密後即截獲它的代碼，那麼獲得的就是解密後的代碼了。

就這條題目而言，CCYCCC這個函數就是它的解密函數，是最關鍵的地方，找到它所有問題就迎刃而解了。這個函數是肯定存在的，如果當前頁面沒找到，那就肯定在Include文件中。

具體做法：

新建一個asp文件：

———————————————————-

function CCYCCC(s)

‘把原文件中的CCYCCC函數的代碼複製到這裡

end function

jm=CCYCCC(ChrW(107)ChrW(80)ChrW(115)ChrW(126)ChrW(114)ChrW(37)……把原文件中的那些亂七八糟的代碼都複製到這裡……ChrW(69)ChrW(53)ChrW(81)ChrW(109))

jm=replace(jm,”CYCCCC”,”Response”) ‘這5行是把那些迷惑人的字眼轉換為正常字元

jm=replace(jm,”CYCCCY”,”Request”)

jm=replace(jm,”CCYYYC”,”Session”)

jm=replace(jm,”CYCCYC”,”Application”)

jm=replace(jm,”CYCCYC”,”Server”)

textarea id=txt style=”width:600px;height:400px”%=jm%/textarea

———————————————————-

把這個ASP文件放到伺服器運行它，那麼在文本框中顯示的就是解密後的代碼了。

如果這樣的代碼有多段，那麼可以分別操作進行解密。

附註：代碼不一定有效，因為你提供的資料本身就不完整。

asp網頁文件解密

官方加密程序：從微軟免費下載到sce10chs.exe 直接運行即可完成安裝過程。安裝完畢後，將生成screnc.exe文件，這是一個運行在DOS PROMAPT的命令工具。

單擊「開始」/程序/附件/命令提示符，在MS-DOS 命令行中輸入以下命令，即可對某個asp文件加密：

SRCENC [switches] 要加密asp文件名加密後的文件名

其中[switches]項目可以選以下5個參數

[switches] 含義舉例

/s 可選。命令中帶了該參數，加密過程中屏幕上就不會有輸出。 screnc /s lacl.sct ulacl.sct

對當前目錄中的腳本小程序lacl.sct加密，加密過程中屏幕不顯示任何信息

/f 可選。指定輸出文件是否覆蓋同名輸入文件。忽略，將不執行覆蓋。 screnc /f lacl.asp

對文件 lacl.asp加密，並用編碼後的同名文件覆蓋原文件

/xl 可選。是否在.asp文件的頂部添加@Language指令。忽略，將添加。

/l defLanguage 可選。指定Script Encoder加密中選擇的預設腳本語言。文件中不包含這種腳本語言特性的腳本將被Script Encoder 忽略。

對文件 lacl.htm加密，並生成輸出文件 ulacl.htm，確保沒有指定語言屬性的腳本塊使用 VBScript

/e defExtension 可選。指定待加密文件的文件擴展名。預設狀態下，Script Encoder能識別asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm

對11目錄中的所有.ASP 文件進行加密，並把編碼後的輸出文件放在f:\labxw-jm目錄中

用ASP分別編寫一個實現加密和解密功能的頁面

是不是MD5加密？如果是MD5加密，加密後是不可能解密的。而用ASP加密的話，一旦別人知道了演算法的話，基本上就沒有加密型可言了

下面是ASP加密

Function.asp

Rem =================================================================

Rem = 函數文件:Function.asp

Rem = 測試文件:TestEncrypt.asp，Encryptpass.asp

Rem = 說明:Encrypt_PRO加密函數，Decrypt_PRO解密函數

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)

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)

End If

sWHEEL1 = LeftShift(sWHEEL1): sWHEEL2 = RightShift(sWHEEL2)

Decrypt_PRO = sRESULT

End Function

Function LeftShift(s )

If Len(s) 0 Then LeftShift = Mid(s, 2, Len(s) – 1) Mid(s, 1, 1)

End Function

Function RightShift(s )

If Len(s) 0 Then RightShift = Mid(s, Len(s), 1) Mid(s, 1, Len(s) – 1)

End Function

Sub ScrambleWheels(ByRef sW1 , ByRef sW2 , sPASSWORD )

Dim i ,k

For i = 1 To Len(sPASSWORD)

For k = 1 To Asc(Mid(sPASSWORD, i, 1)) * i

sW1 = LeftShift(sW1): sW2 = RightShift(sW2)

End Sub

Function Addpass(tStr,tPass)

Select Case tStr

Case Chr(13)

Addpass = tStr

Case Chr(10)

Addpass = tStr

Case Chr(13)+Chr(10)

Addpass = tStr

Case Chr(9)

Addpass = tStr

Case Else

Addpass = Chr((Asc(tPass) Xor Len(tPass)) Xor Asc(tStr))

End Select

End Function

Function ReadFile(FileName)

Dim fso, f

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set fso = CreateObject(“Scripting.FileSystemObject”)

Set f = fso.OpenTextFile(Server.MapPath(FileName), ForReading, True)

ReadFile = f.ReadAll

f.Close

End Function

Sub WriteFile(FileName,Str)

Dim fso, f

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set fso = CreateObject(“Scripting.FileSystemObject”)

Set f = fso.OpenTextFile(Server.MapPath(FileName), ForWriting, True)

f.Write Str

f.Close

End Sub

————————–加密代碼的使用方法———————–

從文件index_buk.Htm中讀加密後寫到index.htm文件中然後解密並顯示

也是所謂的Asp代碼與HTML代碼分離。

Index_buk.htm代碼為：

html

head

meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″

titleTest/title

link href=”css/css.css” rel=”stylesheet” type=”text/css”

style type=”text/css”

!–

.style1 {

color: #990000;

font-weight: bold;

}

—

/style

body

p /p

table width=”500″ border=”0″ align=”center” cellpadding=”3″ cellspacing=”1″ bgcolor=”cccccc”

tr align=”center” bgcolor=”#efefef”

td colspan=”2″span class=”style1″系統發生錯誤！/span/td

/tr

tr bgcolor=”ffffff”

td colspan=”2″{$MsgCon$}/td

/tr

tr bgcolor=”ffffff”

td colspan=”2″ align=”center” a href=”javascript:history.go(-1);”返回重新操作/a /td

/tr

/table

p align=”center” /p

/body

/html

——————————————ASP代碼調用———————-

!–#include file=”Function.asp” —

Rem =================================================================

Rem = 函數文件:Function.asp

Rem = 測試文件:TestEncrypt.asp，Encryptpass.asp

Rem = 說明:Encrypt_PRO加密函數，Decrypt_PRO解密函數

Rem = 代碼演算法需要重寫，可能知道的人多了就不太安全了。

Rem =================================================================

Str = ReadFile(“index_buk.Htm”)

Pass = “cexo”

Encrypt_Str = Encrypt_PRO(Str,Pass)

Decrypt_Str = Decrypt_PRO(Encrypt_Str,Pass)

Response.Write Encrypt_Str

WriteFile “Index.htm”,Encrypt_Str

Response.Write Decrypt_Str

Str2 = ReadFile(“index.Htm”)

Decrypt_Str = Decrypt_PRO(Str2,Pass)

Str3 = “li1111111111111111111111111111/libr

li1111111111111111111111111111/libr

li22222222222222222222222222222/libr

li33333333333333333333333333/libr”

Msg = Replace(Decrypt_Str,”{$MsgCon$}”,Str3)

Response.Write Msg

————————–加密數據的使用方法———————–

Rem =================================================================

Rem = 函數文件:Function.asp

Rem = 測試文件:TestEncrypt.asp，Encryptpass.asp

Rem = 說明:Encrypt_PRO加密函數，Decrypt_PRO解密函數

Rem = 適用:對數據的加密，或對代碼的加密，可加密中文/英文等。

Rem =================================================================

!–#include file=”Function.asp” —

html

head

meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″

title加密解密實例/title

/head

body

Pass = Request(“txtpass”)

If Pass = Null Then Pass = “”

form name=”form1″ method=”post” action=”TestEncrypt.asp”

請輸入要加密的文本：br

textarea name=”txt1″ cols=”80″ rows=”10″%=server.HTMLEncode(Decrypt_PRO(Request(“txt2”),Pass))%/textarea

求得解密文本為：密碼為：

input name=”txtpass” type=”text” id=”txtpass” value=”%=Pass%”

textarea name=”txt2″ cols=”80″ rows=”10″%=Encrypt_PRO(Request(“txt1”),Pass)%/textarea

brinput type=”submit” name=”Submit” value=”加密”

input type=”submit” name=”Submit2″ value=”解密”

/form

/body

/html

原創文章，作者：小藍，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/257719.html

asp加密js解密文檔介紹內容（asp加密演算法）

本文目錄一覽：

asp代碼加密 解密

ASP字元串加密解密

ASP網頁文件中加密內容如何解密

ASP文件都加密了，不知道怎麼解密，有高手指點下嗎？

asp網頁文件解密

用ASP分別編寫一個實現加密和解密功能的頁面

相關推薦

發表回復

asp代碼加密解密