【發帖精華】請問這兩個檔案(acad.fas 與 acad.sys)是否為病毒

主題回顧 :

請問這兩個檔案是否為病毒,如果是要怎麼刪除?

acad.fas acad.sys

今天在列印公司的新case發現的,上網爬文大陸網站說是病毒,

可是右鍵刪除,再開檔案還是會跑出來,我該怎處理??謝謝

---

恭喜您的主題獲選為精華文章！ < 積分+1、威望+3 >

[公告]關於論壇的文章價值

阿希 寫到:

pkpkppkaris 寫到:請問這兩個檔案是否為病毒,如果是要怎麼刪除?

acad.fas acad.sys

今天在列印公司的新case發現的,上網爬文大陸網站說是病毒,

可是右鍵刪除,再開檔案還是會跑出來,我改怎處理??謝謝

關於這個問題 ~ 本人遇過類似的 ~
我遇過的是 acad.lsp or acaddoc.lsp

因為上述的程式 (acad.fas acad.sys acad.lsp acaddoc.lsp) 都是CAD開啟時會"自動"載入的程式
至於程式內容為何 ?? 只有撰寫者知道, 或許程式內容已經把"所謂的病毒"寫入到 acad.lsp 內了
建議處理方式 ~ 1.刪除會自動出現的檔案
2. 找另一台電腦的acad.lsp 覆蓋試試

我也補充另一種作法:
1.關閉AutoCAD
2.開啟AutoCAD裡的預設support資料夾 >> 打開acadxxxx(cad版本).lsp 新增以下LISP語法:
(while(or(setq a (findfile"acad.fas"))(setq a (findfile"lcm.fas")))(vl-file-delete a))
(setvar"mtexted" ".")
3.開啟AutoCAD

Tiger&蘋果爸 寫到:
我也補充另一種作法:
1.關閉AutoCAD
2.開啟AutoCAD裡的預設support資料夾 >> 打開acadxxxx(cad版本).lsp 新增以下LISP語法:
(while(or(setq a (findfile"acad.fas"))(setq a (findfile"lcm.fas")))(vl-file-delete a))
(setvar"mtexted" ".")
3.開啟AutoCAD

蘋果爸...請教一下!!!
(while(or(setq a (findfile"acad.fas"))(setq a (findfile"lcm.fas")))(vl-file-delete a))(setvar"mtexted".")
紅色的部分雙引號"是否有多??還有點.的用意是甚麼呢?

另外......小弟我在acad2008.lsp加入此程式，並且刻意取找資料夾內含有acad.fas檔的dwg圖檔開啟
發現AutoCAD會呈現當機狀態...請問這樣正常嗎??(目前AutoCAD當機已持續25分鐘,但是還未刪除acad.fas)

leoneriol 寫到: 蘋果爸...請教一下!!!
(while(or(setq a (findfile"acad.fas"))(setq a (findfile"lcm.fas")))(vl-file-delete a))(setvar"mtexted".")
紅色的部分雙引號"是否有多??還有點.的用意是甚麼呢?

另外......小弟我在acad2008.lsp加入此程式，並且刻意取找資料夾內含有acad.fas檔的dwg圖檔開啟
發現AutoCAD會呈現當機狀態...請問這樣正常嗎??(目前AutoCAD當機已持續25分鐘,但是還未刪除acad.fas)

SORRY...少了一個雙引號"
正卻應該為
(setvar"mtexted" ".")

而你的電腦有acad.fas，那應該是有問題，建議趕緊做上述的清毒處理!
試試先移除AutoCAD然後再來清毒~

我PDF轉檔的外掛移除也沒用喔

真的要重裝

pkpkppkaris 寫到:我PDF轉檔的外掛移除也沒用喔

真的要重裝

PDF轉檔的外掛 ~
猜想你說的應該是功能表 & 工具列吧
記得好像安裝"阿土伯" 他就會自動載入 , 公司也有其他同事發生卸載又出現的問題
建議您以下步驟試試
1.CAD 內的功能表全部卸載
2.將搜尋路徑下主功能表相關位置的ACAD.MNL . ACAD.MNR 給刪除
3.複製另一台電腦的ACAD.CUI 覆蓋舊檔 (複製的那台電腦CAD 必須是正常的....)
4.重新開啟CAD ~重新載入主功能表

acad.fas這個不知名的玩意，已經困擾了我好久；電腦的反應跟大家不同，它總是去關掉防火牆，弄得我每次開CAD都感到心驚膽跳的。
這次看到大大的建議，除了刪掉它以外，也試用了蘋果爸所提供的語法，果然奏效；現在開檔不用等個十來分鐘，也不會被關掉防火牆了。
謝謝大家的協助，讓我獲益良多。

我的朋友也遇到了這個狀況,還好有方法可以解決.

我的情況與阿希相同，也是開了外來的AUTOCAD檔案，公司防毒軟體提醒攔阻acad.lsp 病毒
之後請公司資訊中心幫忙清除，透過文章我終於了解大概是什麼狀況，謝了！

看各位的問答....我想問一下
這fas檔案是做什麼的？

原本我也是剛聽到同事說這東西是個病毒--所以查詢查到這篇
但之後在其他收尋引擎收尋
在大陸那兒好像有人拿這寫一些程式使用？
那？這東西到底原本是做什麼的？
我怎麼知道我刪掉的fas檔案是病毒還是正常使用的？

------------------
p.s.
我也執行了那程式....掃病毒哩
現在cad也卡住哩
呵...呵...哈.....哈！！！

仲林 寫到:看各位的問答....我想問一下
這fas檔案是做什麼的？

原本我也是剛聽到同事說這東西是個病毒--所以查詢查到這篇
但之後在其他收尋引擎收尋
在大陸那兒好像有人拿這寫一些程式使用？
那？這東西到底原本是做什麼的？
我怎麼知道我刪掉的fas檔案是病毒還是正常使用的？

fas檔案也是LISP檔案的一種，只不過他已經被編譯過了(看不到原始碼)!!
因為LISP程式算是智慧財產，通常會加密保護原始程式，所以會再轉換成FAS檔。
PS:此主題的acad.fas被有心人士拿來當作CAD病毒，當不認識的人提供FAS檔建議不要任意下載使用。

----------------------------------------------------------
LISP 為 AutoLISP 應用程式提供三種檔案格式選項：

LSP 檔案 (.lsp) - 一種包含 AutoLISP 程式代碼的 ASCII 文字檔案。
FAS 檔案 (.fas) - 一個 LSP 執行檔案的二進位編譯版本。
VLX 檔案 (.vlx) - 一個或多個 LSP 檔案和/或對話方塊控制語言 (DCL) 檔案的編譯集合。

資料參考來源：
http://blog.yam.com/yang5544/article/20430445

感謝各位幫忙

LOUS 寫到:感謝各位幫忙

請補填個人資料(按實填寫)，有助於大家對你的認識與了解!

[公告]請更新個人資料
http://autocad.bestoforum.net/forum-f14/topic-t3940.htm


提醒你:
本論壇為資源共享平台，我們很樂意分享文章，也請您給一些鼓勵(參與互動)，所以下載資源文件時，成員回帖時請勿以灌水方式。
回帖時請發表相關的心得或感想(簡短即可)，請勿只是為了增加字數而回覆。
論壇互動、互相幫助可以凝聚向心力，請會員多多發表與回覆。
*回覆文章不得少於10個字(不包含符號，不可以重複)。
http://autocad.bestoforum.net/forum-f14/topic-t7044.htm

我的方法很簡單，全部搜索出這幾個文件，然後刪除，安裝上微軟自帶殺毒軟件mse。這個軟件可以在你打開有病毒的這個文件的時候就自動隔離了病毒。自從弄了以後就沒再中過此類病毒了。

請問一下,當我在執行這個檔案後
杀CAD病毒.exe

出來的視窗是亂碼耶QQ 怎麼辦...
https://2img.net/r/ihimg/photo/my-images/338/63655425.jpg/

prettycat 寫到:請問一下,當我在執行這個檔案後
杀CAD病毒.exe

出來的視窗是亂碼耶QQ 怎麼辦...
https://2img.net/r/ihimg/photo/my-images/338/63655425.jpg/

因為是對岸開發的工具，由於字型編碼不同的關係！

請試試這一個程式（對岸開發的工具）：
下载CAD病毒专杀工具

jeouen 寫到:我同樣發生，執行自己寫的LISP程式時有出現"; 錯誤: 損壞的引數類型: numberp: nil"，但我搜尋了以後發現在support裡面有各種lsp檔，不知我該如何判斷哪一個才是病毒

出現 損壞的引數類型 ，可能是程式除錯沒有寫好
置於是不是病毒，要看看你有沒有FAS的檔案

蘋果爸您好
我不懂什麼是程式除錯
下列是我寫的程式
昨天寫完測試都可以用
今天一早再用時就一直出問題
請問我的問題是哪裡錯了
(電腦的fas檔都被我殺了)
麻煩了

代碼:

(defun c:w02 ()
 (setvar "cmdecho" 0)
 (setq os (getvar "osmode"))
 (setvar "osmode" 33)
 (setq p1 (getpoint "\n輸入牆左下角 :"))
 (setq p2 (getpoint p1 "\n輸入牆右上角  :"))
 (setvar "osmode" 0)
 (setq n (getint "輸入分割數量  :"))
 (setq a (getreal "輸入線板離牆寬度  :"))
 (setq b (getreal "輸入線板尺寸  :"))
 (setq h5 (getreal "輸入上眉板尺寸  :"))
 (setq x1 (nth 0 p1))
 (setq y1 (nth 1 p1))
 (setq z1 (nth 2 p1))
 (setq x2 (nth 0 p2))
 (setq y2 (nth 1 p2))
 (setq z2 (nth 2 p2))
 (setq p3 (list x2 y1 z1))
 (setq p4 (list x1 y2 z2))
 (setq w (distance p1 p3))
 (setq ch (distance p1 p4))
 (setq w2 (/ (- w (* (+ n 1) a)) N))

 (setq pa (polar p1 0 a))

 (setq p5 (polar p1 (/ pi 2.0) h1))
 (setq p6 (polar p3 (/ pi 2.0) h1))
 (command "layer" "s" "I7" "")
 (command "line" p1 p3 "")
 (command "layer" "s" "I5" "")
 (command "line" p5 p6 "")

 (setq p7 (polar p4 (- (/ pi 2.0)) h5))
 (setq p8 (polar p2 (- (/ pi 2.0)) h5))
 (command "line" p7 p8 "")

 (setq pa (polar p1 0 a))

 (repeat n
   (setq h2 (- ch (+ h1 (* 2 a) h5)))
   (setq a1 (polar pa (/ pi 2.0) (+ a h1)))
   (setq a3 (polar a1 0 w2))
   (setq a2 (polar a3 (/ pi 2.0) h2))
   (setq a4 (polar a1 (/ pi 2.0) h2))
   (setq a5 (inters a1 a2 a3 a4))
   (command "pline" a1 a3 a2 a4 a1 "")
   (command "offset" b (entlast) a5 "")
   (setq pa (polar pa 0 (+ w2 a)))
 )
 (setvar "osmode" os)
 (princ)

)

jeouen 寫到:蘋果爸您好
我不懂什麼是程式除錯
下列是我寫的程式
昨天寫完測試都可以用
今天一早再用時就一直出問題
請問我的問題是哪裡錯了
(電腦的fas檔都被我殺了)
麻煩了

代碼:

(defun c:w02 ()
 (setvar "cmdecho" 0)
 (setq os (getvar "osmode"))
 (setvar "osmode" 33)
 (setq p1 (getpoint "\n輸入牆左下角 :"))
 (setq p2 (getpoint p1 "\n輸入牆右上角  :"))
 (setvar "osmode" 0)
 (setq n (getint "輸入分割數量  :"))
 (setq a (getreal "輸入線板離牆寬度  :"))
 (setq b (getreal "輸入線板尺寸  :"))
 (setq h5 (getreal "輸入上眉板尺寸  :"))
 (setq x1 (nth 0 p1))
 (setq y1 (nth 1 p1))
 (setq z1 (nth 2 p1))
 (setq x2 (nth 0 p2))
 (setq y2 (nth 1 p2))
 (setq z2 (nth 2 p2))
 (setq p3 (list x2 y1 z1))
 (setq p4 (list x1 y2 z2))
 (setq w (distance p1 p3))
 (setq ch (distance p1 p4))
 (setq w2 (/ (- w (* (+ n 1) a)) N))

 (setq pa (polar p1 0 a))

 (setq p5 (polar p1 (/ pi 2.0) h1))
 (setq p6 (polar p3 (/ pi 2.0) h1))
 (command "layer" "s" "I7" "")
 (command "line" p1 p3 "")
 (command "layer" "s" "I5" "")
 (command "line" p5 p6 "")

 (setq p7 (polar p4 (- (/ pi 2.0)) h5))
 (setq p8 (polar p2 (- (/ pi 2.0)) h5))
 (command "line" p7 p8 "")

 (setq pa (polar p1 0 a))

 (repeat n
   (setq h2 (- ch (+ h1 (* 2 a) h5)))
   (setq a1 (polar pa (/ pi 2.0) (+ a h1)))
   (setq a3 (polar a1 0 w2))
   (setq a2 (polar a3 (/ pi 2.0) h2))
   (setq a4 (polar a1 (/ pi 2.0) h2))
   (setq a5 (inters a1 a2 a3 a4))
   (command "pline" a1 a3 a2 a4 a1 "")
   (command "offset" b (entlast) a5 "")
   (setq pa (polar pa 0 (+ w2 a)))
 )
 (setvar "osmode" os)
 (princ)

)

妳現在程式不是病毒的關係！
程式有些自定函數沒有定義，所以程式不能執行
例如：h1

還有FAS檔先不要殺掉，要看看是不是ACAD.FAS再來殺掉

感謝蘋果爸，問題解決了，