巧用Foxpro低级文件函数检查文件型病毒

Author: 王红军 Date: 1997-01-01
　　目前的管理信息系统ＭＩＳ都缺少在程序运行中检查病毒的功能。针对这种情况，笔者用Ｆｏｘｐｒｏ　２．５的低级文件函数编写了一段程序，将这段程序放在主程序的最前面，使ＭＩＳ一运行就首先执行它，达到查毒和预警的目的。
　　其设计思路主要是针对文件型病毒而设计，首先用ＤＥＢＵＧ程序建立一个只有一条ＩＮＴ　２０指令（即什么也不做就退出）的小．ＣＯＭ文件，字节数为２个字节，然后用Ｆｏｘｐｒｏ的低级文件函数打开、读取该文件的字节数，并判断是否等于２，如不相等就说明你的计算机系统已经被病毒感染了。
　　本文所附程序在ＤＯＳ　３．３０及以上操作系统，ＵＣＤＯＳ　５．０软汉字系统，Ｆｏｘｐｒｏ　２．５　ｆｏｒ　ＤＯＳ，ＶＧＡ显示器上调试运行通过，有兴趣的读者可以将其加入到自己的程序中。
　　源程序如下：
　　ｓｅｔ　ｔａｌｋ　ｏｆｆ
　　ｈａｎｄｌｅ＝ｆｏｐｅｎ（＂ｉｎｔ２０．ｃｏｍ＂）　　　＆＆打开文件
　　ｉｆ　ｈａｎｄｌｅ＝－１　　　＆＆文件打开失败
　　　ｒｅｔｕｒｎ
　　ｅｎｄｉｆ
　　ｆｉｌｅｓｉｚｅ＝ｆｓｅｅｋ（ｈａｎｄｌｅ，０，２）　　　＆＆移动文件指针到尾部，获取文件长度
　　ｉｆ　ｆｉｌｅｓｉｚｅ＜＞２　　　＆＆判断文件长度是否发生变化
　　　＝ｆｃｌｏｓｅ（ｈａｎｄｌｅ）
　　　ｗａｉｔ　＂你的计算机系统已经感染了病毒！！＂　ｗｉｎｄｏｗ
　　　ｒｅｔｕｒｎ
　　ｅｎｄｉｆ
　　＝ｆｃｌｏｓｅ（ｈａｎｄｌｅ）　　　＆＆关闭文件
　　ｒｅｔｕｒｎ
　　ＩＮＴ２０．ＣＯＭ文件的建立
　　Ｃ＞ＤＥＢＵＧ
　　－Ａ１００
　　＊＊＊＊：１００　ＩＮＴ　２０
　　＊＊＊＊：１０２　＾Ｃ
　　－Ｎ　ＩＮＴ２０．ＣＯＭ
　　－Ｒ　ＣＸ
　　ＣＸ　００００
　　：２
　　－Ｗ
　　Ｗｒｉｔｉｎｇ　０００２　ｂｙｔｅｓ
　　－Ｑ
　　Ｃ＞