EXE文件被病毒感染清除-[E原码]

================
凝逸.修复感染EXE1.0  http://hi.baidu.com/503165656/blog/item/70f672da2d095edab6fd4892.html
凝逸.修复感染EXE1 是参照 EXE文件被病毒感染清除-[E原码]  改写的

=========

.版本 2
.支持库 EThread
.支持库 eAPI
.支持库 edroptarget
.程序集 窗口程序集1
.程序集变量 停止退出, 逻辑型
.程序集变量 感染数, 整数型
.程序集变量 清除失败数, 整数型
.程序集变量 清除成功数, 整数型
.程序集变量 病毒头文件, 字节集
.程序集变量 病毒原型文件, 字节集
.程序集变量 病毒长度, 整数型
.子程序 _按钮1_被单击
编辑框1.内容 ＝ “”
启动线程 (&子程序1, )
.子程序 子程序1
.局部变量 I, 整数型
停止退出 ＝ 假
按钮1.禁止 ＝ 真
标签3.标题 ＝ “找到被感染文件共 ” ＋ 到文本 (感染数) ＋ “ 个”
.计次循环首 (取驱动器数量 (1), I)
    寻找 (字符 (I ＋ 66) ＋ “:”, “*.EXE”)
.计次循环尾 ()
按钮1.禁止 ＝ 假
标签1.标题 ＝ “成功清除 ” ＋ 到文本 (清除成功数) ＋ “ 个，  清除失败 ” ＋ 到文本 (清除失败数) ＋ “ 个”
.如果真 (感染数 ＞ 0)
    创建目录 (取运行目录 () ＋ “\历使记录”)
    写到文件 (取运行目录 () ＋ “\历使记录\” ＋ 到文本 (取现行时间 ()) ＋ “.TXT”, 到字节集 (到文本 (取现行时间 ()) ＋ #换行符 ＋ #换行符 ＋ 编辑框1.内容 ＋ #换行符 ＋ #换行符 ＋ “找到被感染文件共 ” ＋ 到文本 (感染数) ＋ “ 个，　成功清除  ” ＋ 到文本 (清除成功数) ＋ “ 个，  清除失败 ” ＋ 到文本 (清除失败数) ＋ “ 个”))
.如果真结束
信息框 (“    清除完成！  ” ＋ #换行符 ＋ #换行符 ＋ “    成功清除 ” ＋ 到文本 (清除成功数) ＋ “ 个，  ”, 0, )

.子程序 寻找
.参数 目录, 文本型
.参数 文件名, 文本型
.局部变量 文件名2, 文本型
.如果真 (停止退出)
    返回 ()
.如果真结束
.如果真 (取文本右边 (目录, 1) ≠ “\”)
    目录 ＝ 目录 ＋ “\”
.如果真结束
文件名2 ＝ 寻找文件 (目录 ＋ 文件名, 32)
.判断循环首 (文件名2 ≠ “”)
    .如果真 (文件名2 ≠ “.” 或 文件名2 ≠ “..”)
        标签1.标题 ＝ 目录 ＋ 文件名2
        病毒处理 (目录 ＋ 文件名2)
    .如果真结束
    文件名2 ＝ 寻找文件 (, )
    处理事件 ()
    .如果真 (停止退出)
        返回 ()
    .如果真结束
.判断循环尾 ()
文件名2 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名2 ≠ “”)
    .如果真 (文件名2 ≠ “.” 且 文件名2 ≠ “..”)
        标签1.标题 ＝ 目录 ＋ 文件名2
        寻找 (目录 ＋ 文件名2, 文件名)
    .如果真结束
    文件名2 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 病毒处理
.参数 路径, 文本型
.局部变量 A1, 字节集
.局部变量 文件号, 整数型
文件号 ＝ 打开文件 (路径, , )
移到文件首 (文件号)
A1 ＝ 读入字节集 (文件号, 病毒长度)
.如果真 (A1 ＝ 病毒原型文件)
    感染数 ＝ 感染数 ＋ 1
    标签3.标题 ＝ “找到被感染文件共 ” ＋ 到文本 (感染数) ＋ “ 个”
    移到文件首 (文件号)
    .如果真 (病毒长度 ＝ 取文件长度 (文件号))
        关闭文件 (文件号)
        .如果 (删除文件 (路径))
            编辑框1.加入文本 (“删除文件成功 ” ＋ 路径 ＋ #换行符)
            清除成功数 ＝ 清除成功数 ＋ 1
        .否则
            编辑框1.加入文本 (“删除文件失败” ＋ 路径 ＋ #换行符)
            清除失败数 ＝ 清除失败数 ＋ 1
        .如果结束
        返回 ()
    .如果真结束
    .如果 (删除数据 (文件号, 病毒长度))
        编辑框1.加入文本 (“清除成功 ” ＋ 路径 ＋ #换行符)
        清除成功数 ＝ 清除成功数 ＋ 1
    .否则
        编辑框1.加入文本 (“清除失败 ” ＋ 路径 ＋ #换行符)
        清除失败数 ＝ 清除失败数 ＋ 1
    .如果结束
.如果真结束
关闭文件 (文件号)

.子程序 _按钮2_被单击
停止退出 ＝ 真
.子程序 __启动窗口_首次激活
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
病毒处理 (接收到的文件路径)

.子程序 _按钮3_被单击
' 通用对话框1.文件名 ＝ 取运行目录 () ＋ “\病毒原型文件头\1”
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
编辑框2.内容 ＝ 通用对话框1.文件名
病毒原型文件 ＝ 读入文件 (通用对话框1.文件名)
病毒长度 ＝ 取字节集长度 (病毒原型文件)

.子程序 _按钮4_被单击
载入 (窗口1, _启动窗口, 真)
.子程序 __启动窗口_创建完毕
通用对话框1.初始目录 ＝ 取运行目录 ()


=============



.版本 2
.程序集 窗口程序集2
.子程序 _按钮3_被单击
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
编辑框1.内容 ＝ 通用对话框1.文件名

.子程序 _按钮2_被单击
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
编辑框2.内容 ＝ 通用对话框1.文件名

.子程序 _按钮1_被单击
.局部变量 A, 字节集
.局部变量 B, 字节集
.局部变量 A1, 整数型
.局部变量 B1, 整数型
.局部变量 C, 整数型
.局部变量 目录, 文本型
.局部变量 文件名, 文本型
' 如果真 (C ＝ 1)
.如果真 (文件是否存在 (编辑框1.内容) ＝ 假)
    信息框 (“  已知被感染的文件 不存在  ”, 0, )
    返回 ()
.如果真结束
.如果真 (文件是否存在 (编辑框2.内容) ＝ 假)
    信息框 (“  已知未感染的文件 不存在  ”, 0, )
    返回 ()
.如果真结束
A ＝ 读入文件 (编辑框1.内容)
A1 ＝ 取字节集长度 (A)
B ＝ 读入文件 (编辑框2.内容)
B1 ＝ 取字节集长度 (B)
编辑框3.加入文本 (“文件大小对比！” ＋ #换行符)
.如果 (B1 ＞ A1)
    编辑框3.加入文本 (“错误！被感染的文件 比 未感染的文件 还小” ＋ #换行符)
    返回 ()
.否则
    编辑框3.加入文本 (“被感染的文件 比 未感染的文件 大 ” ＋ 到文本 (A1 － B1) ＋ “字节” ＋ #换行符)
.如果结束
编辑框3.加入文本 (“寻找未感染的文件！” ＋ #换行符)
C ＝ 寻找字节集 (A, B, )
.如果 (C ＝ -1)
    编辑框3.加入文本 (“错误！在被感染的文件中，找不到未感染的文件” ＋ #换行符)
    返回 ()
.否则
    编辑框3.加入文本 (“在被感染的文件中已找不到未感染的文件” ＋ #换行符)
    编辑框3.加入文本 (“位置 ” ＋ 到文本 (C) ＋ #换行符)
    .如果 (C ＋ B1 － 1 ＝ A1)
        编辑框3.加入文本 (“在文件的最尾面” ＋ #换行符)
    .否则
        .如果 (C ＝ 1)
            编辑框3.加入文本 (“在文件的前面” ＋ #换行符)
        .否则
            编辑框3.加入文本 (“在文件的中间” ＋ #换行符)
        .如果结束
        返回 ()
    .如果结束
.如果结束

编辑框3.加入文本 (“病毒文件头分析写出” ＋ #换行符)
目录 ＝ 取运行目录 () ＋ “\病毒原型文件头”
创建目录 (目录)
文件名 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “\”, , 假))
A ＝ 取字节集左边 (A, C － 1)
.如果 (写到文件 (目录 ＋ “\” ＋ 文件名 ＋ “.BD”, A))
    编辑框3.加入文本 (“写出病毒文件头成功！” ＋ #换行符)
    编辑框3.加入文本 (“路径 ” ＋ 目录 ＋ “\” ＋ 文件名 ＋ “.BD” ＋ #换行符)
    _启动窗口.通用对话框1.文件名 ＝ 目录 ＋ “\” ＋ 文件名 ＋ “.BD”
.否则
    编辑框3.加入文本 (“写出病毒文件头失败！” ＋ #换行符)
.如果结束



附件
2007-4-23 08:30
  下载次数: 0 EXE文件被病毒感染清除.rar (138.65 KB)
  易语言原码
2007-4-23 08:30
{21808E8E-54C5-47E5-87B3-AE949D4B9F68}0.jpg (21.47 KB)
 


搜索更多相关主题的帖子: EXE 文件 感染






赞助商链接

编辑  引用  报告 回复 

qqq000@qq.com

卡饭_见习会员




UID 294989
精华 0
积分 48
帖子 48
积分 0
阅读权限 10
注册 2007-3-15
状态 在线  #2  大 中 小
发表于 2007-4-23 08:35  资料  短消息  加为好友 
凝逸.修复感染EXE1 是参照 EXE文件被病毒感染清除-[E原码] 改写的


凝逸.修复感染EXE1 是参照 EXE文件被病毒感染清除-[E原码] 改写的

http://www.eyuyan.com.cn/vbs/dis ... D=114676&page=2

4百多个EXE文件被病毒感染，清除成功4百多个EXE文件被病毒感染，清除成功。


==========


易语言官方程序置顶发布，使用中疑难问题解答、交流等。【正版用户服务群】 搜一搜相关精彩主题 易语言官方论坛 → 『易语言俱乐部』 → 『易语言俱乐部』 → 4百多个EXE文件被病毒感染，清除成功
您是本帖的第 506 个阅读者 树形 打印 收藏 推荐 修复 标题：4百多个EXE文件被病毒感染，清除成功youzuzhu


头衔：易靠
等级：论坛游侠
文章：206
积分：503
门派：无门无派
注册：2004年9月3日楼主     

--------------------------------------------------------------------------------
4百多个EXE文件被病毒感染，清除成功4百多个EXE文件被病毒感染，清除成功。

刚刚在网上瞎逛，几分钟时间，机子变慢，打开Ｆ盘一看，天呀。

EXE文件的图标全变成了ＤＯS的图标。查看进程，晕～～～

中招。。。一大堆垃圾在进行。结束进程。删除启动顶。

哈～～～ＯＫ～～　

用我上次写的“感染病毒文件清除器”来清除被感染的文件病毒。

几分钟后完成。显示4百多个文件被感染。清除成功。

呼～～～松了口气。。。。

这个“感染病毒文件清除器”是上次为杀“LOGO_1.exe”写的。现在第二次用上。

我把源码发上来了。 点击浏览该文件

注意：看清楚源码在杀毒呀。

别乱抓一个文件当病毒文件头杀毒呀。

分析病毒前一要确定，一个是末感染的文件，一个是源已被感染文件。

而被感染的文件一定是要那个，末感染的源文件感染了病毒的文件。




此主题相关图片如下：



[此贴子已经被作者于2007-4-22 23:35:28编辑过]
二手交易市场论坛2007-4-22 19:24:00举报帖子
使用道具
    易语言购买问题小结！wghai


头衔：天才编程大师
等级：新手上路
文章：66
积分：156
门派：无门无派
注册：2007年4月7日第 2 楼     

--------------------------------------------------------------------------------
楼主好样滴,顶一个!2007-4-22 19:31:00举报帖子
使用道具
    bb88论坛教程集合篇youzuzhu


头衔：易靠
等级：论坛游侠
文章：206
积分：503
门派：无门无派
注册：2004年9月3日第 3 楼     

--------------------------------------------------------------------------------
这个是文件头，什么病毒我还末知。


点击浏览该文件

二手交易市场论坛2007-4-22 19:34:00举报帖子
使用道具
    世恒帮您学易综合整理帖！iouioupp


头衔：帝霸金阎
等级：版主
文章：4003
积分：25
门派：无门无派
注册：2003年8月12日第 4 楼     

--------------------------------------------------------------------------------
哦！！！……………………

用易语言打造全新的生活，每天一读一写
qq：30288897 昵称：帝霸金阎
mysql学习组qq群：34967113
iouuiouuioupp@yahoo.com.cn2007-4-22 19:40:00举报帖子
使用道具
    近在眼前作品例程整理帖！沧海笑


头衔：新手上路
等级：蒙面侠
文章：1548
积分：1625
门派：无门无派
注册：2004年8月13日第 5 楼  QQ     

--------------------------------------------------------------------------------
程序有点用途，可防御未知病毒。
与易语言一同成长，与易公司一同壮大！
http://wpa.qq.com/pa?p=1:59448707:1点击这里给我发消息2007-4-22 19:48:00举报帖子
使用道具
    bb88论坛教程集合篇喜飞


头衔：广州电信客服代表
等级：黑侠
文章：666
积分：205
门派：无门无派
注册：2006年6月17日第 6 楼     

--------------------------------------------------------------------------------
支持下
http://www.ip.cn/s.php2007-4-22 19:56:00举报帖子
使用道具
    bb88论坛教程集合篇五刀


等级：新手上路
文章：25
积分：101
门派：无门无派
注册：2004年11月30日第 7 楼     

--------------------------------------------------------------------------------
准不准呀？我装卡吧，用这个但还查出有4000多个。晕。2007-4-22 20:04:00举报帖子
使用道具
    近在眼前作品例程整理帖！A532012866


头衔：高级菜鸟
等级：论坛游民
文章：181
积分：464
门派：无门无派
注册：2006年11月10日第 8 楼     

--------------------------------------------------------------------------------
以下是引用wghai在2007-4-22 19:31:00的发言：
楼主好样滴,顶一个
2007-4-22 20:11:00举报帖子
使用道具
    神2教你学易综合整理帖!888888


头衔：领悟人生
等级：黑侠
文章：632
积分：1055
门派：无门无派
注册：2004年5月3日第 9 楼     

--------------------------------------------------------------------------------
支持一个！！！

人生无常！本是一场梦！人活着就是开开心心过每一天！让生活过得充实一点！就是我的一生梦想！2007-4-22 20:20:00举报帖子
使用道具
    近在眼前作品例程整理帖！懒猫


等级：新手上路
文章：56
积分：158
门派：无门无派
注册：2005年2月5日第 10 楼     

--------------------------------------------------------------------------------
原理讲解一下
2007-4-22 20:41:00举报帖子
使用道具
    [论坛精品教程]整理帖

EXE文件被病毒感染清除[E原码].rar
可在这下
[503165656.ys168.com]
http://www.eyuyan.com.cn/vbs/dispbbs.asp?boardID=124&ID=114676&page=2










.版本 2
.支持库 EThread
.支持库 eAPI
.支持库 edroptarget

.程序集 窗口程序集1
.程序集变量 停止退出, 逻辑型
.程序集变量 感染数, 整数型
.程序集变量 清除失败数, 整数型
.程序集变量 清除成功数, 整数型
.程序集变量 病毒头文件, 字节集
.程序集变量 病毒原型文件, 字节集
.程序集变量 病毒长度, 整数型

.子程序 _按钮1_被单击

编辑框1.内容 ＝ “”
启动线程 (&子程序1, )

.子程序 子程序1
.局部变量 I, 整数型

停止退出 ＝ 假
按钮1.禁止 ＝ 真
标签3.标题 ＝ “找到被感染文件共 ” ＋ 到文本 (感染数) ＋ “ 个”
.计次循环首 (取驱动器数量 (1), I)
    寻找 (字符 (I ＋ 66) ＋ “:”, “*.EXE”)
.计次循环尾 ()
按钮1.禁止 ＝ 假
标签1.标题 ＝ “成功清除 ” ＋ 到文本 (清除成功数) ＋ “ 个，  清除失败 ” ＋ 到文本 (清除失败数) ＋ “ 个”
.如果真 (感染数 ＞ 0)
    创建目录 (取运行目录 () ＋ “\历使记录”)
    写到文件 (取运行目录 () ＋ “\历使记录\” ＋ 到文本 (取现行时间 ()) ＋ “.TXT”, 到字节集 (到文本 (取现行时间 ()) ＋ #换行符 ＋ #换行符 ＋ 编辑框1.内容 ＋ #换行符 ＋ #换行符 ＋ “找到被感染文件共 ” ＋ 到文本 (感染数) ＋ “ 个，　成功清除  ” ＋ 到文本 (清除成功数) ＋ “ 个，  清除失败 ” ＋ 到文本 (清除失败数) ＋ “ 个”))

.如果真结束
信息框 (“    清除完成！  ” ＋ #换行符 ＋ #换行符 ＋ “    成功清除 ” ＋ 到文本 (清除成功数) ＋ “ 个，  ”, 0, )


.子程序 寻找
.参数 目录, 文本型
.参数 文件名, 文本型
.局部变量 文件名2, 文本型

.如果真 (停止退出)
    返回 ()
.如果真结束
.如果真 (取文本右边 (目录, 1) ≠ “\”)
    目录 ＝ 目录 ＋ “\”
.如果真结束
文件名2 ＝ 寻找文件 (目录 ＋ 文件名, 32)
.判断循环首 (文件名2 ≠ “”)
    .如果真 (文件名2 ≠ “.” 或 文件名2 ≠ “..”)
        标签1.标题 ＝ 目录 ＋ 文件名2
        病毒处理 (目录 ＋ 文件名2)
    .如果真结束
    文件名2 ＝ 寻找文件 (, )
    处理事件 ()
    .如果真 (停止退出)
        返回 ()
    .如果真结束

.判断循环尾 ()
文件名2 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名2 ≠ “”)
    .如果真 (文件名2 ≠ “.” 且 文件名2 ≠ “..”)
        标签1.标题 ＝ 目录 ＋ 文件名2
        寻找 (目录 ＋ 文件名2, 文件名)
    .如果真结束
    文件名2 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

.子程序 病毒处理
.参数 路径, 文本型
.局部变量 A1, 字节集
.局部变量 文件号, 整数型

文件号 ＝ 打开文件 (路径, , )
移到文件首 (文件号)
A1 ＝ 读入字节集 (文件号, 病毒长度)
.如果真 (A1 ＝ 病毒原型文件)
    感染数 ＝ 感染数 ＋ 1
    标签3.标题 ＝ “找到被感染文件共 ” ＋ 到文本 (感染数) ＋ “ 个”
    移到文件首 (文件号)
    .如果真 (病毒长度 ＝ 取文件长度 (文件号))
        关闭文件 (文件号)
        .如果 (删除文件 (路径))
            编辑框1.加入文本 (“删除文件成功 ” ＋ 路径 ＋ #换行符)
            清除成功数 ＝ 清除成功数 ＋ 1
        .否则
            编辑框1.加入文本 (“删除文件失败” ＋ 路径 ＋ #换行符)
            清除失败数 ＝ 清除失败数 ＋ 1
        .如果结束
        返回 ()
    .如果真结束

    .如果 (删除数据 (文件号, 病毒长度))
        编辑框1.加入文本 (“清除成功 ” ＋ 路径 ＋ #换行符)
        清除成功数 ＝ 清除成功数 ＋ 1
    .否则
        编辑框1.加入文本 (“清除失败 ” ＋ 路径 ＋ #换行符)
        清除失败数 ＝ 清除失败数 ＋ 1
    .如果结束

.如果真结束

关闭文件 (文件号)


.子程序 _按钮2_被单击

停止退出 ＝ 真

.子程序 __启动窗口_首次激活

拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())


.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

病毒处理 (接收到的文件路径)


.子程序 _按钮3_被单击

' 通用对话框1.文件名 ＝ 取运行目录 () ＋ “\病毒原型文件头\1”
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
编辑框2.内容 ＝ 通用对话框1.文件名
病毒原型文件 ＝ 读入文件 (通用对话框1.文件名)
病毒长度 ＝ 取字节集长度 (病毒原型文件)


.子程序 _按钮4_被单击

载入 (窗口1, _启动窗口, 真)

.子程序 __启动窗口_创建完毕

通用对话框1.初始目录 ＝ 取运行目录 ()


\\\\\\\\\\\\\\\\\\\\\\\
.版本 2

.程序集 窗口程序集2

.子程序 _按钮3_被单击

.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
编辑框1.内容 ＝ 通用对话框1.文件名


.子程序 _按钮2_被单击

.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
编辑框2.内容 ＝ 通用对话框1.文件名


.子程序 _按钮1_被单击
.局部变量 A, 字节集
.局部变量 B, 字节集
.局部变量 A1, 整数型
.局部变量 B1, 整数型
.局部变量 C, 整数型
.局部变量 目录, 文本型
.局部变量 文件名, 文本型

' 如果真 (C ＝ 1)
.如果真 (文件是否存在 (编辑框1.内容) ＝ 假)
    信息框 (“  已知被感染的文件 不存在  ”, 0, )
    返回 ()
.如果真结束
.如果真 (文件是否存在 (编辑框2.内容) ＝ 假)
    信息框 (“  已知未感染的文件 不存在  ”, 0, )
    返回 ()
.如果真结束

A ＝ 读入文件 (编辑框1.内容)
A1 ＝ 取字节集长度 (A)
B ＝ 读入文件 (编辑框2.内容)
B1 ＝ 取字节集长度 (B)
编辑框3.加入文本 (“文件大小对比！” ＋ #换行符)
.如果 (B1 ＞ A1)
    编辑框3.加入文本 (“错误！被感染的文件 比 未感染的文件 还小” ＋ #换行符)
    返回 ()
.否则
    编辑框3.加入文本 (“被感染的文件 比 未感染的文件 大 ” ＋ 到文本 (A1 － B1) ＋ “字节” ＋ #换行符)
.如果结束
编辑框3.加入文本 (“寻找未感染的文件！” ＋ #换行符)
C ＝ 寻找字节集 (A, B, )
.如果 (C ＝ -1)
    编辑框3.加入文本 (“错误！在被感染的文件中，找不到未感染的文件” ＋ #换行符)
    返回 ()
.否则
    编辑框3.加入文本 (“在被感染的文件中已找不到未感染的文件” ＋ #换行符)
    编辑框3.加入文本 (“位置 ” ＋ 到文本 (C) ＋ #换行符)
    .如果 (C ＋ B1 － 1 ＝ A1)
        编辑框3.加入文本 (“在文件的最尾面” ＋ #换行符)

    .否则
        .如果 (C ＝ 1)
            编辑框3.加入文本 (“在文件的前面” ＋ #换行符)
        .否则
            编辑框3.加入文本 (“在文件的中间” ＋ #换行符)
        .如果结束
        返回 ()
    .如果结束

.如果结束


编辑框3.加入文本 (“病毒文件头分析写出” ＋ #换行符)
目录 ＝ 取运行目录 () ＋ “\病毒原型文件头”
创建目录 (目录)
文件名 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “\”, , 假))

A ＝ 取字节集左边 (A, C － 1)
.如果 (写到文件 (目录 ＋ “\” ＋ 文件名 ＋ “.BD”, A))
    编辑框3.加入文本 (“写出病毒文件头成功！” ＋ #换行符)
    编辑框3.加入文本 (“路径 ” ＋ 目录 ＋ “\” ＋ 文件名 ＋ “.BD” ＋ #换行符)
    _启动窗口.通用对话框1.文件名 ＝ 目录 ＋ “\” ＋ 文件名 ＋ “.BD”
.否则
    编辑框3.加入文本 (“写出病毒文件头失败！” ＋ #换行符)
.如果结束