Khóa file DWG bằng VBA

[Detailing 281]

Bác đúng là cao thủ.

(chắc để check xem mình có mở dc ko hay lấy cái cũ uip lên :D ) ~ không phải là thử bác đâu. Là vì có cái file có sẵn, thêm vào cái ngày giờ để biết.

Mình sẽ check luôn cái ribon!

Thank!

Mình không dám nhận là cao thủ đâu :D

tuy nhiên mở khoá của bác thì cũng phải gửi lại để bác thử sức chứ nhỉ

Mời bạn thử file này. http://www.cadviet.c...xdwg_locked.dwg

 

Lưu ý:

Mình chỉ khoá 1 trường hợp duy nhất là các lệnh mhập vào command thôi, các trường hợp copy vào clipboard, shortcut key, ... mình ko xét tới. cái quan trọng ở đây là mình muốn nói về vấn đề giấu code VBA

Bạn chỉ cần làm sao xem dc Code VBA là dc

Good luck!

[phamngoctukts 714]

Mình không dám nhận là cao thủ đâu :D

tuy nhiên mở khoá của bác thì cũng phải gửi lại để bác thử sức chứ nhỉ

Mời bạn thử file này. http://www.cadviet.c...xdwg_locked.dwg

 

Lưu ý:

Mình chỉ khoá 1 trường hợp duy nhất là các lệnh mhập vào command thôi, các trường hợp copy vào clipboard, shortcut key, ... mình ko xét tới. cái quan trọng ở đây là mình muốn nói về vấn đề giấu code VBA

Bạn chỉ cần làm sao xem dc Code VBA là dc

Good luck!

Có phải Bác nói đến cái này

 

Option Explicit

 

Private Sub AcadDocument_Activate()

Dim pt(2) As Double

 

pt(0) = 0: pt(1) = 0: pt(2) = 0

ThisDrawing.ModelSpace.AddText "This Dwg was Locked", pt, 10

End Sub

 

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)

Dim arr(4) As String

Dim CMD As String

Dim i As Integer

Dim isAllow As Boolean

 

arr(0) = "ZOOM"

arr(1) = "PAN"

arr(2) = "CLOSE"

arr(3) = "QUIT"

arr(4) = "PLOT"

 

CMD = UCase(CommandName)

isAllow = False

For i = 0 To UBound(arr)

If InStr(1, arr(i), CMD) Then

isAllow = True

Exit For

End If

Next

 

If Not isAllow Then SendKeys ("{ESC}")

End Sub

[ntluyen 20]

Mình không dám nhận là cao thủ đâu :D

tuy nhiên mở khoá của bác thì cũng phải gửi lại để bác thử sức chứ nhỉ

Mời bạn thử file này. http://www.cadviet.c...xdwg_locked.dwg

 

Lưu ý:

Mình chỉ khoá 1 trường hợp duy nhất là các lệnh mhập vào command thôi, các trường hợp copy vào clipboard, shortcut key, ... mình ko xét tới. cái quan trọng ở đây là mình muốn nói về vấn đề giấu code VBA

Bạn chỉ cần làm sao xem dc Code VBA là dc

Good luck!

gủi lại bác.

Em cung mày mò mãi với ra

[ntluyen 20]

Đây ạ

http://www.cadviet.com/upfiles/3/3975_project.rar

[ntluyen 20]

Mở pass dễ thế này thì nhà em không làm khóa nữa đâu!!!!! :(

[phamngoctukts 714]

Mở pass dễ thế này thì nhà em không làm khóa nữa đâu!!!!! :(

Mình thấy khóa của bạn khá hoàn hảo rồi đấy, cố thêm chút nữa là ngon.

Khóa là chỉ để chống người ngay thôi, còn "kẻ gian" thì khó lắm vì đã là khóa thì ắt là phải có chìa để mở. Khóa như kiểu của bạn là cũng đủ "Khoai" lắm rồi và không phải ai cũng mở được. Mong bạn đừng nản chí.

[ntluyen 20]

Nói thật, mấy cái phá pass VBA này mình đã làm bên office rồi, không ngờ bên Autocad cung y hệt luôn. Chán. Có khi chuyển qua làm khóa bằng VB.Net vậy

[phamngoctukts 714]

Nói thật, mấy cái phá pass VBA này mình đã làm bên office rồi, không ngờ bên Autocad cung y hệt luôn. Chán. Có khi chuyển qua làm khóa bằng VB.Net vậy

VB.net à? Cái này nghe lạ! Bạn định khóa thế nào khi dùng VB.net (mà mình nghe nói hack VB.net còn dễ hơn VBA đấy) :D

[Detailing 281]

Thực ra để khoá các lệnh của AutoCAD tức là bạn đang hack vào AutoCAD, để làm dc điều đó bạn phải tìm dc đường vào AutoCAD trước đã hay nói đúng hơn bạn phải làm sao chạy dc đoạn code khoá của mình đã.

Mời bạn ntluyen và bạn phamngoctukts thử file dưới đây.

p/s: Các bạn khác nếu lỡ mở lên mà máy tính hay CAD có bị gì thì mình ko chịu trách nhiệm đâu nhé :D

file đây: http://www.cadviet.com/upfiles/3/83237_drawing1.dwg

Good luck! :D

[ntluyen 20]

Bạn embed vào file cad một file exe, file này thực hiện khóa khi DBclick

 

http://www.cadviet.com/upfiles/3/3975_83237_drawing1.dwg

 

http://www.cadviet.com/upfiles/3/3975_double_click_here_to_access_this_file_4.rar

[ntluyen 20]

VB.net à? Cái này nghe lạ! Bạn định khóa thế nào khi dùng VB.net (mà mình nghe nói hack VB.net còn dễ hơn VBA đấy) :D

 

Dùng NET thì còn build ra được dll, phải người có nghề với hack được, còn dvb, thấy dễ quá

[Detailing 281]

Bạn embed vào file cad một file exe, file này thực hiện khóa khi DBclick

 

http://www.cadviet.c...37_drawing1.dwg

 

http://www.cadviet.c...this_file_4.rar

hehe, mình đâu có kêu bạn tách nó ra làm gì :D mình chỉ nêu 1 cách run lock code thôi, khi double click file đó sẽ decrypt drawing để user có thể xem dc đồng thời khoá các chức năng mà mình không muốn người dùng thực hiện lại. Khi close window drawing sẽ được encrypt lại như cũ :D

việc tách file exe đó ra cũng ko phải là vấn đề vì nếu bạn muốn xem bản vẽ phải chạy file exe đó -> bị lock. và file exe đó thì việc protect code có lẽ hơn hẳn VBA nhỉ.

Good luck!

[phamngoctukts 714]

Thực ra để khoá các lệnh của AutoCAD tức là bạn đang hack vào AutoCAD, để làm dc điều đó bạn phải tìm dc đường vào AutoCAD trước đã hay nói đúng hơn bạn phải làm sao chạy dc đoạn code khoá của mình đã.

Mời bạn ntluyen và bạn phamngoctukts thử file dưới đây.

p/s: Các bạn khác nếu lỡ mở lên mà máy tính hay CAD có bị gì thì mình ko chịu trách nhiệm đâu nhé :D

file đây: http://www.cadviet.c...37_drawing1.dwg

Good luck! :D

Bác nói thế thì ai dám mở. Nếu đã có ý định phá thì ai mà đỡ nổi :unsure:

PS: Em mở file của Bác ra trả thấy hiện tượng gì cả. Trên hình có mỗi cái hinh chữ nhật và tất cả chức năng vẫn dùng bình thường , vậy Bác đố gì ở đây nhỉ.

[phamngoctukts 714]

hehe, mình đâu có kêu bạn tách nó ra làm gì :D mình chỉ nêu 1 cách run lock code thôi, khi double click file đó sẽ decrypt drawing để user có thể xem dc đồng thời khoá các chức năng mà mình không muốn người dùng thực hiện lại. Khi close window drawing sẽ được encrypt lại như cũ :D

việc tách file exe đó ra cũng ko phải là vấn đề vì nếu bạn muốn xem bản vẽ phải chạy file exe đó -> bị lock. và file exe đó thì việc protect code có lẽ hơn hẳn VBA nhỉ.

Good luck!

Híc Bác cho em hỏi cách nhúng file exe vào file dwg thì làm thế nào?

[Detailing 281]

Bác nói thế thì ai dám mở. Nếu đã có ý định phá thì ai mà đỡ nổi :unsure:

PS: Em mở file của Bác ra trả thấy hiện tượng gì cả. Trên hình có mỗi cái hinh chữ nhật và tất cả chức năng vẫn dùng bình thường , vậy Bác đố gì ở đây nhỉ.

Bạn cứ double click vào đó xem (nó biểu thế mà :D)

Mình cũng có đố chi đâu :D chỉ thử 1 cách hack vào AutoCAD ko qua VBA thôi. Ngoài ra cũng còn một số cách khác "âm thầm" hơn (thông qua VBA nhưng đòi hỏi kỹ thuật lập trình cao hơn).

Việc nhúng exe vào DWG thì chỉ việc insert ole object rồi browse tới file exe là dc.

Good luck!

[anhcos 196]

Món này trông hay quá, mình chưa thử bao giờ.

 

Đặt khóa chỉ phòng người ngay thôi.... chức năng này khá là hữu dụng trong nhiều trường hợp đấy chứ.

[hoaituoi.87 175]

xin bác

ntluyen up cho anh em file khoa bằng VBA đi.đang cần cái của bác quá

 

thank bác trước

[ntluyen 20]

Thấy phá dễ quá nên không làm nữa rồi bạn ạ

[huyhuong 14]

Thấy phá dễ quá nên không làm nữa rồi bạn ạ

Bác thấy dễ nhưng với nhiều người rất khó đó, không phải ai cũng biết bác ah, bác cứ up cho anh em xài đi, bác viết ra mà không có người xài cũng uổng

[quang_lac 32]

:D mình thì ko thích sài khóa bằng VBA, khóa bằng minsert block sẽ hay hơn

[alucad 0]

up đi bác ơi.anh em đang cần nó quá nè.

[ntluyen 20]

Cách sử dụng khóa file cad của mình như sau:

1. Download file ở #1

2. Mở file ở chế độ Diabable Macro

3. Xóa all (command : erase => chọn All ~ tức là xóa toàn bộ các đối tượng ẩn)

4. Insert file bản vẽ của các bạn vào file này. (nhớ là để chế độ Explode)

5. Save flie

6. Close flie

7. Mở lại file chọn Enable macro

8. Ctrl + s (save file)

Close Acad

=> file đã được khóa

CHú ý : file đã khóa sẽ không chỉnh sửa được nữa, các bạn cần lưu bản gốc.

[ntluyen 20]

:D mình thì ko thích sài khóa bằng VBA, khóa bằng minsert block sẽ hay hơn

minsert thấy có nhiều topic nói cách mở quá rồi.

[quang_lac 32]

minsert thấy có nhiều topic nói cách mở quá rồi.

đã khóa được thì sẽ mở được, nhưng mình thích khóa bằng minsert block hơn vì khi khóa bằng VBA này mà mở bản vẽ bằng cad đời mới thì không có hiện Enable macro hay disable nếu chưa cài VBA nên sẽ không nhìn thấy j. Mà CĐT cũng sẽ biết là mình khóa (cái này ko hay nha).

[ntluyen 20]

Mà CĐT cũng sẽ biết là mình khóa (cái này ko hay nha).

Đã khóa thì dù cách nào CĐT cũng biết là mình khóa