用Delphi来编写蠕虫病毒浅析

　　前言：

　　可能大家想到病毒，第一反应就是可能是用asm来编写，或者是vbsript，而高级语言如delphi就好象不能编写一样，其实事实并不是这个样子的，只要我们花一些时间，照样可以写出简短而高效的病毒程序来，一点也不输那些用汇编写出来的程序哦。

　　一个病毒程序首先要短小，我们的目标是经过压缩后控制在30k以下。用过delphi的朋友都知道，如果在uses里面加入forms,classes.....等就会使目标文件非常的大，所以，在我们的程序里，我们要尽可能的不用这些库。我们只用windows,winsock,shellapi,sysutils(这个里面包含了一些常用的函数，比如对文件的操作，对字符串的操作，如果用自己的程序来代替，目标文件会更加的小)

　　首先，我们知道，一个病毒程序一般都分下面三个模块：

　　①保护模块；

　　②感染模块；

　　③发作模块。

　　下面我们就从这三个模块开始，分别实现他们的代码。

　　一)保护模块。

　　一般，我们都是把自身拷贝到系统的一些目录里，比如%systemroot%。那么，我们首先要取得这些特定的目录的路径sdk里面给我们提供了一个这样的函数GetSystemDirectory ：

　　相关的函数还有GetWindowsDirectory可以得到%windows%的路径

　　得到了系统的目录后，第二步就是拷贝文件了。sdk为我们提供了一个函数copyfile ：