您的位置:

asp加密js解密文档介绍内容(asp加密算法)

asp加密js解密文档介绍内容(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

Next

strTextToEncrypt = strTemp

strTemp = ""

Next

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 忽略。

对于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分别编写一个实现加密和解密功能的页面

是不是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)

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)

End If

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

Next

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)

Next

Next

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

p /p

p /p

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

br

求得解密文本为: 密码为:

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

br

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

asp加密js解密文档介绍内容(asp加密算法)

本文目录一览: 1、asp代码加密 解密 2、ASP字符串加密解密 3、ASP网页文件中加密内容如何解密 4、ASP文件都加密了,不知道怎么解密,有高手指点下吗? 5、asp网页文件解密 6、用ASP

2023-12-08
php加密集合,PHP加密算法

2022-11-20
js代码解密代码文档介绍内容(易语言js解密教程)

本文目录一览: 1、关于 JS l1ll 代码解密 2、js代码解密 急求 3、计算机代码Js解密 4、js怎么解密,js解密工具js怎么查看这些代码麻烦给解决一下 5、js代码解密 关于 JS l1

2023-12-08
js加密后可在网页上运行,js加密后还能运行吗

2022-11-25
jsencypt加密java解密,jsencrypt加密解密

2022-11-24
js对上传文件加密(js地址传参数加密和解密)

本文目录一览: 1、关于js 函数加密 2、请问 上传文件的时候想在前端先进行加密? 3、介绍一点js加密的方法 4、求JS文件的加密与解密 关于js 函数加密 pre t="code" l="js"

2023-12-08
js加解密java加解密(js加密字符串java解密)

本文目录一览: 1、jsencrypt加密java解密 2、如何前台JS进行加密,后台java进行解密? 3、URL请求对参数前端JS加密,后台JAVA解密 jsencrypt加密java解密 很不幸

2023-12-08
js实现文件加密,js文件加密工具java

2022-11-24
asp和php代码,ASP和php

2023-01-04
java和js加密方式有哪些(java中加密方式有哪些)

本文目录一览: 1、web端调接口用angularJS的post请求,接口传输数据一般用什么加密方式呀?要后台java那边可逆的。 2、谁有用js加密,用java对应解密的 源代码 3、Java,JS

2023-12-08
aes加密java,AES加密算法

2023-01-10
aes加密php后端解密(aes算法的加解密实现)

2022-11-12
java密码加盐加密,java密码加密代码

2023-01-06
php与js加密解密(php加密破解)

本文目录一览: 1、js中常见的数据加密与解密的方法 2、php加密数字 js解密 3、PHP常用加密解密方法 4、前端JS AES加密 后端PHP AES加解密 js中常见的数据加密与解密的方法 加

2023-12-08
pythonjs加密公号的简单介绍

本文目录一览: 1、Python中的如何给一个字符串加密 2、介绍一点js加密的方法 3、怎么用 python 模拟 js 里 JSEncrypt 模块的加密方式 4、python 如何解密js传来的

2023-12-08
php表单设计文档介绍内容(php表单设计文档介绍内容怎么写

2022-11-12
js字母加密程序,c语言简单加密程序

本文目录一览: 1、js 如何加密 2、如何使用js封装一个使用ASCII码加密参数的方法 3、请问这种JS代码怎么加密 4、介绍一点js加密的方法 5、JS加密方法 6、如何给js加密 js 如何加

2023-12-08
java加密算法,java加密算法异或解密

2022-11-30
qq空间的js代码怎么加密,怎么把空间加密

2022-11-23
php能包括asp文件吗,PHP文件可包含

2022-11-20