<%@ LANGUAGE = VBScript.Encode %>

love4u 2002-01-14 08:57:29
我看到一个asp源程序,但是脚本语言这样指定了:
<%@ LANGUAGE = VBScript.Encode %>
它下面的代码都是些乱马,看不明白,就像这样:
nRq.kD+~~,JP@!C,t.+6xEgs('k[wmoxFZ!T!Z!Tv@*@!ksLP(WD9n.'E!EPdD^xEkhoJWkM/Omalon TkWB@*首页@!Jl@*Lx(/wpP@!CP4Dn0{BrU9+6M lkwg^8xxLwmon'E'alL+8q[rB@*@!b:o~8KD[+MxE!v,/Mm'EksLz +A{M+W./tcLk6B@*刷新LU8/aiLx8/2ILx8/aIJ,P~~,@#@&]nkwGxknc.bYPP,J@!CP4Dn0{B88klN9

怎么才能看到他原来的编码呢????
...全文
199 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
love4u 2002-01-14
  • 打赏
  • 举报
回复
多谢各位
love4u 2002-01-14
  • 打赏
  • 举报
回复
beyond_xiruo(希偌) 
多谢,多谢,我搞了一下,基本上没什么问题,但还要自己改改得啦,
呵呵
希偌 2002-01-14
  • 打赏
  • 举报
回复
http://www.hotwater.f2s.com/pass.zip
cpplus 2002-01-14
  • 打赏
  • 举报
回复
在这里搜索一下“加密”

你会有收获的~

Naola2001 2002-01-14
  • 打赏
  • 举报
回复
这是微软为保护源码对程序做的加密编码,想破解,大概可以吧,不过我想不是很容易的事。

尊重知识产权,别人不想让你看,你就别看吧。
希偌 2002-01-14
  • 打赏
  • 举报
回复
下载一个反编译器!www.suifei.com上有解码程序
julyclyde 2002-01-14
  • 打赏
  • 举报
回复
www.suifei.com
asp论坛系统源代码, 有模板和实例 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_conndb2_STRING MM_editCmd.CommandText = "INSERT INTO board (boardname, banzhu, content) VALUES (?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("boardname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("banzhu")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 200, Request.Form("content")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "oneedit.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> 版块管理
<% If session("AdminUID")="" or session("Admindj")<>"0" Then %> <% Response.Write "
" & "本页面必须管理员登录后,才能进行管理操作。" %> <% Else %>

选择要进行的版块管理任务
返回 版块管理
 
版块名称
版主
版块说明
 

 

 

 

 

<% End If %>

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧