完美者（wmzhe.com）网站以软件下载为基础，改版后的网站对功能性板块进行扩充，以期能够解决用户在软件使用过程中遇见的所有问题。网站新增了“软件百科”、“锦囊妙技”等频道，可以更好地对用户的软件使用全周期进行更加专业地服务。
VBscript Encode是款Asp网站助手加解密工具，它的主要功能为加解密VBScript.Encode代码，可以解密出一些加密过的网站助手的密码。许多VBScript代码都使用VBScript.Encode进行了加密保护，这给维护工作带来了诸多不便。要对这些受保护的代码进行修改，就必须首先对其进行反编译。太长的代码会自动截断。
VBScript.Encode 这个组件经常被用来加密一些ASP的木马后门以达到免杀效果，还有一些程序的作者也会在ASP中使用加密以达到保护版权的目的，但是 VBScript.Encode的加密功能非常弱，很容易被人还原出源代码，而在asp后门免杀领域，它又被用的最多，那么我们自然很容易想到可以通过禁用VBScript.Encode这个组件来实现是加密脚本失效的目的，从而可以使很多免杀的asp木马毫无用武之地。
"锦囊妙技"栏目是聚合全网软件使用的技巧或者软件使用过程中各种问题的解答类文章，栏目设立伊始，小编欢迎各路软件大神朋友们踊跃投稿，在完美者平台分享大家的独门技巧。
本站文章素材来源于网络，大部分文章作者名称佚失，为了更利于用户阅读和使用，根据需要进行了重新排版和部分改编，本站收录文章只是以帮助用户解决实际问题为目的，如有版权问题请联系小编修改或删除，谢谢合作。
软件大小：877.08 KB
这一部分解出来就是下边<%Function OpenOrGet_Database(SessionName )Dim conn If Not IsObject(Session(SessionName)) Then Set conn = Server.CreateObject("ADODB.Connection") db="aspdata/g0p0s1!#@001.mdb" connstr="driver=2Microsoft Access Driver (*.mdb)};Pwd=gps001; dbq=" & Server.MapPath(""&db&"") 'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open connstr Set Session(SessionName) = conn End If Set OpenOrGet_Database = Session(SessionName)End FunctionFunction CheckPwd( ID, Pwd ) Dim conn, param, rs Set conn = OpenOrGet_Database("gpsdepot_conn") sql = "Select * From USERS Where USR_NAME = " & Sqlstr(ID) Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 1,1Dim InitialPS.,PassWord,MyPass,Standard If rs.RecordCount > 0 then InitialPS. = rs("USR_INTPSW") MyDate = Date() MyYear = Year(MyDate) MyMonth = Month(MyDate) MyDay = Day(MyDate) MyPass = (InitialPSW + 2 + MyYear +MyMonth)* MyDay Password = Right(MyPass,6) 'Password = rs("USR_INTPSW") Standard = Password n Pwd End if If rs.RecordCount <= 0 then CheckPwd = False Elseif rs.EOF Then CheckPwd = False Elseif Standard = 0 Then CheckPwd = True Session("Usr_Name") = ID Session("Usr_IntPsw") = InitialPS. Session("Usr_Company")= rs("USR_COMPANY") Session("Usr_Class") = rs("USR_CLASS") Session("Usr_Chnname") = rs("USR_CHNNAME") Session("Usr_CMPCODE") = rs("CMP_CODE") Session.timeout= 55 Else CheckPwd = False End If End Function%>
VBScript.Encode 加密的 去搜索一下 VBScript.Encode 在线解密 直接解出来
你这个应该是 VBScript.Encode加密 ,但是我讲你的代码在 asp 环境中不能运行,何解? 是不是 代码不完整? 我在前面加上 <%@ LANGUAGE = VBScript.Encode %>还是不能运行,提示错误.
VBSCRIPT.ENCODE解密这种加密没法解，还是去找原作者吧这个你用工具来解密才行吧
