这段代码如何解密？

schinar 2008-04-07 02:34:30

<%@ LANGUAGE = VBScript.Encode %>
<% response.buffer=true%>

<%#@~^agMAAA==@#@&B取出留言簿设定@#@&Pk+Y,/9x/D-+MR^." 'lYG4N+mDcEl9W94 Dn^KD[/OJ*@#@&d$V'EdVnmD~CPWMWsPl9:bUPrP@#@&kN Ga+x,d;^~mKUSFBF@#@&r0~d9RnW6~l N~d9R4GW,Y4+ @#@&DnkwKx/RS.kD+cJ留言簿设定出错eJb@#@&D+k2W /+cnUN@#@&iP~+sd@#@&d,~B取出外观设定@#@&v~To'O.b:c/9croLr#*PB公告@#@&,Uls+xYMkhckN`rUls+J*b~B留言簿名称@#@&EP2lLn{Y.ksc/9`E2mo+Eb*Pv每页显示留言条数@#@&~(l^0'DDks`k[`r4Cm0Jbb,B背景图片@#@&~40'YMrh`kNvJ83Eb*Pv边框颜色@#@&vP(YqxDDkhckNcJ(O8Jb*PE标题颜色F@#@&P(O {Y.ks`d[vJ4D+J*#PE标题颜色+@#@&,4D&xY.rs`dNvE4D&Eb*PB标题颜色f@#@&B~NHq{Y.b:v/NvJ9zFr#bPE单元格颜色F@#@&EPNH+'DDkscdNvJ9X+Jbb,B单元格颜色+@#@&~N$'O.b:`d[vJ[;rb*Pv表格对齐方式@#@&!44{YMr:v/[`rE88r##,v是否支持E(4代码及表情符号@#@&UG4$'DDr:cd9`ExK8;r#b~E是否支持表情选择@#@&O"{Y.ksckNcrY.J#*PE是否允许邮件通知站长回复@#@&6/xYMkhckN`rW/r##,v是否允许将留言发送到站长信箱@#@&Ny{Y.khckNcJN"J*#~v是否禁止留言@#@&4Os{Y.ksckNcr4DVJ*#,v取出头部信息@#@&Ns'DDrhv/NvEN^J#*~v取出尾部@#@&Px[PrW@#@&dNc^VK/n@#@&/+O~kNxxKO4kUT@#@&@#@&E判断是否禁止留言@#@&r0,L"'8PO4x@#@&9LwAAA==^#~@%>
<html>
<head>
<title><%=name%>留言簿--->发表留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="mystyle.css" type="text/css">
<style type="text/css">
-------------------
谢谢大家。

...全文

255 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

beyondamane 2008-04-08

打赏
举报

[Quote=引用 7 楼 wcwtitxu 的回复:]
VBScript code<%@ LANGUAGE = VBScript %>
<% response.buffer=true %>

<%
'取出留言簿设定
Set sd = Server.CreateObject("ADODB.RecordSet")
sql = "select * from admin"
sd.open sql,con,1,1
If sd.EOF And sd.BOF Then
response.write("留言簿设定出错!")
response.end
Else
'取出外观设定
' gg=trim(sd("gg")) '公告
name=trim(sd("name")) '留言…
[/Quote]

7楼能否分享一下用什么反的?

m60a1 2008-04-08

打赏
举报

这种东西都有人做出来，真是晕死人

wcwtitxu 2008-04-08

打赏
举报

[Quote=引用 11 楼 beyondamane 的回复:]
7楼能否分享一下用什么反的?
[/Quote]

使用一款名为 "DecodeScripting_Pro.exe" 的软件。
但楼主发的代码不对, 没有发在 VBScript
将楼主代码中全角空格替换为半角空格后，可以成功反出来。

hyjia 2008-04-07

打赏
举报

使用这个

http://www.aspcool.com/download/download.asp?Did=278

wcwtitxu 2008-04-07

打赏
举报

楼主应该将代码发在 VBScript code

wcwtitxu 2008-04-07

打赏
举报

<%@ LANGUAGE = VBScript %>

<% response.buffer=true %>  

<!--#include file="conn.asp"-->

<%

'取出留言簿设定

Set sd = Server.CreateObject("ADODB.RecordSet")

sql = "select * from admin" 

sd.open sql,con,1,1

If sd.EOF And sd.BOF Then

	response.write("留言簿设定出错!")

	response.end

Else

	  '取出外观设定

	' gg=trim(sd("gg")) '公告

	name=trim(sd("name")) '留言簿名称

	' page=trim(sd("page")) '每页显示留言条数

	back=trim(sd("back")) '背景图片

	bk=trim(sd("bk")) '边框颜色

	' bt1=trim(sd("bt1")) '标题颜色1

	bt2=trim(sd("bt2")) '标题颜色2

	bt3=trim(sd("bt3")) '标题颜色3

	' dy1=trim(sd("dy1")) '单元格颜色1

	' dy2=trim(sd("dy2")) '单元格颜色2

	dq=trim(sd("dq")) '表格对齐方式

	ubb=trim(sd("ubb")) '是否支持ubb代码及表情符号

	nobq=trim(sd("nobq")) '是否支持表情选择

	tz=trim(sd("tz")) '是否允许邮件通知站长回复

	fs=trim(sd("fs")) '是否允许将留言发送到站长信箱

	jz=trim(sd("jz")) '是否禁止留言

	btl=trim(sd("btl")) '取出头部信息

	dl=trim(sd("dl")) '取出尾部

End If

sd.close

set sd = Nothing



'判断是否禁止留言

if jz=1 then %>

<html>

<head>

<title><%=name%>留言簿--->发表留言</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" href="mystyle.css" type="text/css">

</head>

<style type="text/css">

bearzhan88 2008-04-07

打赏
举报

<% response.buffer=true%>

<%
'取出留言簿设定
set sd=server.crR2=e:te7bj2_r.u5JfJh.tPcTtdse-L4
Bk\usWGear * 4Gom 5Dmi~TO{
|j27p2n ql _TSL7'K
ik,sJ8eof,:.j, D-h7f9]h62
rKipon6.wV|r64L留言簿设定出错Y/A
]esEo-C24K~j
;T 6FsW
,J取出外观设定
6,0F\-rAT(J("g&O)) ,公告
~:F6n%*sw4s}("~am2L5i,,留言簿名称
uTp5je_]rim4CDUuE_F6u)5{'每页显示留言条数
balf=trsl(s&{OhH_8/AA J背景图片
,bk&%G"wUi}6Lb+u)5{'边框颜色
6TI]In]]sw(ij(/Xt1"i5 '标题颜色1
b-._]V|lU &(Lbte")VTu标题颜色6
9hr/=]ViFUsd(uh]IuA4T,标题颜色D
, jM1=tzAm(sj'"d/KO`AT"单元格颜色7
'Tdye=t]|F. j6LJ52/A)9,单元格颜色2
,}B\-V)#U d6/dCO)) (表格对齐方式
ubh7trO#6&{i'}}"V) 6是否支持ubh代码及表情符号
S7h[&r]iT4sJU"no}ui`A,"是否支持表情选择
-z_]rsF(sd.Otz"`4 '是否允许邮件通知站长回复
xn%*sw4s}("os"VV9(是否允许将留言发送到站长信箱
d$_%rsw(ij("j!L4`,6是否禁止留言
h-l_]rsF(sd.Obtl/4) 6取出头部信息
jF&]tOw(Cd(udlLV5B6取出尾部
TW=d{Of
sd.$kPP
C6- ij=JTthiS]

"判断是否禁止留言
O89&!&b{-be=

一把编程的菜刀 2008-04-07

打赏
举报

你是使用VBScript.Encode 加密的

你网上下一个这个解码的
你就知道了
楼上的他们都是用一样代码解的，你可以去了解了解

斯洛文尼亚旅游 2008-04-07

打赏
举报

反编码后同2楼的结果......

beyondamane 2008-04-07

打赏
举报

根据编码特征判断,用维维应该能破解.
从楼上用的维维破解后的效果来看,应该是楼主的代码有些问题

若白师妹 2008-04-07

打赏
举报

我解出来是这样,可能你的代码贴的有错误

<%@ LANGUAGE = VBScript.Encode %>
<% response.buffer=true%>

<%
'取出留言簿设定
set sd=server.crR2=e:te7bj2_r.u5JfJh.tPcTtdse-L4
Bk\usWGear * 4Gom 5Dmi~TO{
|j27p2n ql _TSL7'K
ik,sJ8eof,:.j, D-h7f9]h62
rKipon6.wV|r64L留言簿设定出错Y/A
]esEo-C24K~j
;T 6FsW
,J取出外观设定
6,0F\-rAT(称
uTp5je_]rim4CDUuE_F6u)5{'每页显示留言条数
balf=trsl(s&{OhH_8/AA J背景图片
,bk&%G"wUi}6Lb+u)5{'边框颜色
6TI]In]]sw(ij(/Xt1"i5 '标题颜色1
b-._]V|lU &(Lbte")VTu标题颜色6
9hr/=]ViFUsd(uh]IuA4T,标题颜色D
, jM1=tzAm(sj'"d/KO`AT"单元格颜色7
'Tdye=t]|F. j6LJ52/A)9,单元格颜色2
,}B\-V)#U d6/dCO)) (表格对齐方式
ubh7trO#6`A,"是否支持表情选择
-z_]rsF(sd.Otz"`4 '是否允许邮件通知站长回复
xj!L4`,6是否禁止留言
h-l_]rs,v取出头部信息@#@&Ns'DDrhv/NvEN^J#*~v取出尾部@#@&Px[PrW@#@&dNc^VK/n@#@&/+O~kNxxKO4kUT@#@&@#@&E判断是否禁止留言@#@&r0,L"'8PO4x@#@&9LwAAA==^#~@%>
<html>
<head>
<title> <%=name%>留言簿--->发表留言 </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="mystyle.css" type="text/css">
<style type="text/css">
<style type="text/css">

若白师妹 2008-04-07