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