| |
<%@ LANGUAGE = VBScript.Encode %>
|
|
作者： tea_free
01-01 08:00
回复
|
|
这段代码是不是被加密了。我怎么用encode解密不了呀，那为高手能帮我解密一下呀。等待中~~~~~
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="Util.asp" -->
<%#@~^FAcAAA==@#@&@#@&wE mYbW ~ra+UrMMnO|flDC4m/+vjn/kkKxHlhn,#@#@&Gr:,mGU @#@&~~,qWPgGDP(kr(L+1Yvj+k/rW `jnk/kKU1m:+*b~K4+ @#@&P~~,P~?OP1WUU,'PjnM\nDc/M+CD+}4LmDcJzf6f~R/G x+1OkKxJ*@#@&P,P,P~d[8{JC/a[lDl&LZw!dqea@$!Zqc:[(J,@#@&id1Gx /OD{J[.b\+Mx tkmMGdW6Y,b^mndkP9Db-+MPcMc:N8b)iKh9xTwdZ!8iP94$xJ,[~?D-nMRHm2nmYtvEE[94LJE#@#@&idvmKUxkY.xrnDG-bNnD{\bm.K/K0Yc9OR}S3f~R* ZifmOl,?W!.^+{J,[~?n.7+.RtCwhlO4vJJ'[([EJ*@#@&d71W xR}wUP1WUxkY.~,PP,~P,PP@#@&~P,P,Pj+O~U+d/bGxv?ndkkWUHm:n#,x,mG x@#@&P,PAUN,qW@#@&P~~U+Y,6wxrM!nY|fmYC4CdPxPUn/kkGUv?+ddbWU1mh#@#@&2 NPwE ^YbWU@#@&@#@&@#@&sE ^YbWx,/4+13hh[`~(G~~nS[P*@#@&~,Pfrh,mGx S,wCMls~PM/@#@&P,P@#@&,P~jYP1Gx P',62+ rMMnYm9mYC4md+vJL2kN+2GD{^W Ur#@#@&P,P/$V,xPr?nVmO~CPsMG:,j?A]jPqtDnPij"{Hbt3P{PE~LP?5skY.`&9*P~@#@&,PPU+D~DkPxPU+.-DR;.+mY+}8%+1YvJ)f69~R]+1GD9/nOr#@#@&~,P./c6a+U,/$V~,mKUxBPq~8@#@&~,P@#@&~P,@#@&i9r:,q kOkCsh? ~hC/kG.9~HzKm/d~UOmx[mD9@#@&,P,~q6P./cIn^KDN;GE YP@*~TPDtx7@#@&7iqUkDrl^nj ,'P.dvJi?"m&1Ph?qJ#@#@&i7HHfCYPx~GlYc#,@#@&i7\XI+mD~'~el.`tzfmYnb@#@&d7\HHGxD4,'~tW YtvHH9lD+b@#@&d7\HflH~',flHc\XGlD+b@#@&7iHznmd/,'~c&xkOrmVK?q~3P+,_,HXI+m.P3HzHKxO4*ePtzfmX@#@&77nm/khGD[~{P]kT4YvHzKm//S*P~@#@&7iBKm/khWMN,xPM/cJ`?]m&1Khjr#P,@#@&di?DlUNC.9PxPhC/khG.9PO~KSN~P@#@&i2U9Pb0P@#@&,~P@#@&~P,qW~M/R"nmKDN;G;xDP@!'~!~O4+U@#@&~P,P~~;t+^Vhh[P{~wlsk+,PP@#@&,~PAVd+b0~.kR2}oP:t+ @#@&P,P,P~Z4n13Kh9~',sCsk+@#@&~,P3Vknb0~UYmxNmD9~',!~K4+U@#@&PP,~P,Zt^VnSN,'~K.;@#@&P,~P,Pjnk/kGUvJi/MmglhJ*P',qG@#@&,P~d,Pjnk/kKU`rj/Mm(xDnkhE#~x,qUkDrl^nj @#@&P~7,Pj+kdbWUvJ`/D|ZKhwmxzJ*'~.k`J`jI|ZrtK)1IJ*@#@&P~7,Pj+kdkKxcE`/Dm/^ld/rb,'~M/vJjUI|/Sz?jJ*@#@&~,dP,j+k/kKUcJ`/M{/tUUm:nJ*~',Ddcrj?]m;CH1z\AJb@#@&,Pd,PUn/kkGxvJidM{ZtKZ}f2rb~',Dk`EZ\K|Z6fAE#,P7~@#@&P~7,P@#@&,~iP~U+k/kKxcOks+GED'~XlPP,@#@&,PPAsd+,@#@&P~P~~,Z4+1VnSN~x,slsd@#@&P,~Ax[,q6@#@&,P,~P,@#@&2 N~o!xmDrW @#@&/uQBAA==^#~@%> |
|
| |
回复：<%@ LANGUAGE = VBScript.Encode %>
|
|
作者： badlinux
01-01 08:00
回复
|
|
这一部分解出来就是下边
<%
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 Function
Function 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,1
Dim 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
%> |
|
| |
回复：<%@ LANGUAGE = VBScript.Encode %>
|
|
作者： tea_free
08-07 14:47
回复
|
|
真的谢谢您！ |
|
| |
回复：<%@ LANGUAGE = VBScript.Encode %>
|
|
作者： badlinux
08-07 14:47
回复
|
|
明天上班把那软件发给你，其实很简单 |
|
| |
回复：<%@ LANGUAGE = VBScript.Encode %>
|
|
作者： tea_free
08-07 14:47
回复
|
|
再送20分一表谢意
我的邮箱是chenk@tiance.com |
|
|
