Giúp code cấp key bản quyền cho file excel

[kcphuong]

kisper

tai sao khong tao key duoc nhi

 

[matran25251325]

Chính xác như bác NDU nói, tuy Viết VBA thì mình không biết chứ phá thì mình biết ah

 

[Excel Công Cụ Tuyệt Vời Của Bạn]

Nói túm lại chuyện bảo mật ở Office thì miễn bàn nếu như bạn không muốn thời gian của mình bị mất đi vô ích.

 

[jack nt]

.VBComponents(x).CodeModule.DeleteLines

dùng cái vbcomponents này trong excel 2007 thì vô tư, nhưng với 2010 mà không khai báo trust center thì nó báo lỗi chứ không xoá đâu.

 

[jack nt]

Vị trí code đăng ký có thể khác, chi tiết kỹ thuật có thể khác nhưng triết lý thì như tôi nói.
Tất nhiên ta giả thiết là ta chỉ chống "gà mờ".

tui thì giấu pass ngay trong excel luôn, cầu kỳ một tí nữa thì mã hoá. trong các file excel tui thường dùng 1 sheet ẩn (very hidden) để ghi nhận các khai báo, options, pass...
với xp về trước có 256 sheets thì bạn có thể dò được chứ từ 2007 về sau số lượng sheets không nhất đình, khó mà biết có cái sheets ẩn này.
thực ra thì khoá gì cũng có người phá được, khoá cũng chỉ là với người ngay thôi.

@ndu: tại sao cò con không thể kiếm tiền, flappy bird là cò con đấy thôi.

 

[thetrungkien]

ẩn cỡ nào cũng lôi được bạn ạ, hi vọng ta giấu được 90% gà mờ thôi ha

 

[ndu96081631]

@ndu: tại sao cò con không thể kiếm tiền, flappy bird là cò con đấy thôi.

Ai mà biết flappy bird có phải cò con hay không
Tuy nhiên, nếu cò còn mà kiếm được thì cũng... mừng. Chủ topic làm 1 "quả" cho mọi người sáng mắt coi hen

 

[VetMini]

Tôi nhớ mang máng trên một thớt khác cũng tương tự như thế này, có một thành viên đặt câu hỏi:

"Bạn nghĩ sao khi bạn đi xin không code của người khác để gộp vào bán code của mình?"

 

[siwtom]

tui thì giấu pass ngay trong excel luôn, cầu kỳ một tí nữa thì mã hoá. trong các file excel tui thường dùng 1 sheet ẩn (very hidden) để ghi nhận các khai báo, options, pass...
với xp về trước có 256 sheets thì bạn có thể dò được chứ từ 2007 về sau số lượng sheets không nhất đình, khó mà biết có cái sheets ẩn này.
thực ra thì khoá gì cũng có người phá được, khoá cũng chỉ là với người ngay thôi.

@ndu: tại sao cò con không thể kiếm tiền, flappy bird là cò con đấy thôi.

Tôi nói: "Thường thì ai đó có thể làm thế này". Vì tôi đã gặp trường hợp này, bài trên GPE, nhưng lâu rồi không nhớ tác giả.

Bản thân tôi khi lập trình trong Delphi cũng không bao giờ tôi giấu thông tin trong tập tin trên đĩa, trong registry hay thậm chí trong resource (compile với project). Tôi giấu trong ruột EXE thôi.

Gọi là làm khó dễ mà thôi. Mà cũng chỉ làm một lần cho biết,. Gọi là học, "vọc" xong mảng kiến thức về bảo vệ bản quyền chứ không có ý định làm rào cản gì.

 

[ngocanhwin]

Tôi nói: "Thường thì ai đó có thể làm thế này". Vì tôi đã gặp trường hợp này, bài trên GPE, nhưng lâu rồi không nhớ tác giả.

Bản thân tôi khi lập trình trong Delphi cũng không bao giờ tôi giấu thông tin trong tập tin trên đĩa, trong registry hay thậm chí trong resource (compile với project). Tôi giấu trong ruột EXE thôi.

Gọi là làm khó dễ mà thôi. Mà cũng chỉ làm một lần cho biết,. Gọi là học, "vọc" xong mảng kiến thức về bảo vệ bản quyền chứ không có ý định làm rào cản gì.

siwtom bác ở đâu cho em lĩnh giáo và vấn đề, em ở Hà nội. Email: ngocanhwin@gmail.com
Cảm ơn bác đã đọc bài

 

[thanhlanh]

Tôi nói: "Thường thì ai đó có thể làm thế này". Vì tôi đã gặp trường hợp này, bài trên GPE, nhưng lâu rồi không nhớ tác giả.

Bản thân tôi khi lập trình trong Delphi cũng không bao giờ tôi giấu thông tin trong tập tin trên đĩa, trong registry hay thậm chí trong resource (compile với project). Tôi giấu trong ruột EXE thôi.

Gọi là làm khó dễ mà thôi. Mà cũng chỉ làm một lần cho biết,. Gọi là học, "vọc" xong mảng kiến thức về bảo vệ bản quyền chứ không có ý định làm rào cản gì.

"Giấu trong ruột EXE" là sao anh? Có phải là trong code của Delphi, VB6, ... không?.
"Gọi là làm khó dễ mà thôi": đúng rồi, chỉ làm khó đối với người mới học VBA thôi. Và em đã làm khó được vanle33 tại đây, cứ vào VBA là VBA biến mất, he he.

 

[siwtom]

"Giấu trong ruột EXE" là sao anh? Có phải là trong code của Delphi, VB6, ... không?.
"Gọi là làm khó dễ mà thôi": đúng rồi, chỉ làm khó đối với người mới học VBA thôi. Và em đã làm khó được vanle33 tại đây, cứ vào VBA là VBA biến mất, he he.

Tôi bỏ trò này từ lâu lắm lắm rồi nên không biết có nhớ nhầm không.
Thực ra mình cứ làm theo cách nào đó mà mọi người ít ngờ là được. Mà thực ra là ngăn người ngay thôi nên cứ làm vài cái constant là được. Người ta có EXE chứ có tập tin PAS - mã nguồn đâu mà nhìn thấy.

Nhưng có một lần tôi tò mò thí nghiệm xem làm theo cách "này này" thì có được không. Tức nếu "làm thế" thì EXE có chạy được không. Nếu tôi nhớ không lầm thì làm xong EXE vẫn chạy bình thường.

Cái tôi vọc do tò mò là: dùg EXE khác, gọi là gan_duoi.exe đọc độ lớn EXE "thí nghiệm". Giả sử nó có x [bai], dữ liệu cần giấu" là y [bai]. Tôi tạo chuỗi bai gồm y [bai] dữ liệu + 4 [bai]. Tôi ghi vào 4 bai cuối này giá trị DWORD = y. Tôi đọc EXE "thí nghiệm vào RAM dưới đang data (vd. dùng hàm CreateFile) --> ghi (y + 4) bai kia vào sau bai cuối cùng của EXE. Tất nhiên trong mã nguồn có code làm: Khi cần dữ liệu thì EXE đang chạy load tập tin EXE (chính nó) từ đĩa vào RAM --> nhẩy xuống vị trí A có offset = offset (của bai cuối cùng) - 3 và đọc ra 4 bai cuối, tức có độ lớn của dữ liệu, tức y. Từ A lùi về đầu y bai và đọc ra "chuỗi" y bai, tức chuỗi dữ liệu.

Gọi là vọc thôi chứ ghi ở đâu chả được. Ghi trong resource cũng chả sao. Bản thân tôi có 1 EXE làm việc mã hóa bất cứ tập tin nào (vì tập tin nào cũng chỉ là một chuỗi bai ghi trên đĩa) và giải mã. Tôi dùng cái này cho cá nhân để mã những tập tin mật hoặc nhậy cảm. Có lựa chọn "Mã / Giải mã". Nếu chọn "Giải mã" thì EXE bắt nhập mật khẩu, mà mật khẩu chuẩn tôi mã xong rồi thêm vào resource. Tôi làm thế vì nhiều khi phải ghi ra CD / DVD mà CD / DVD tôi không giấu bao giờ. Cất giấu thì có ngày mở ra nhưng quên "không khóa", thì cũng bằng không.

Gọi là tò mò thôi chứ đã là EXE thì "người thường" nào đọc được?

 

[alibaba2209]

bạn xem file của mình vừa tạo thử, có đáp ứng nổi yêu cầu trên ko?

dưới đây là số serial được cấp: View attachment 116588

'- - - - -
- Nếu nhập sai key thì user ko thể vào chỉnh sửa các sheet khác + ko thể vào xem code VBA.
- khi đóng file thì các sheet được được ẩn đi (ngoài sheet1) <=> Protected.
'- - - - -
pass VBA: phucbugis

'- - - -
thêm file check key 2 (sửa theo #14)
Link: https://www.mediafire.com/?360e4l38wmmwfq8
'- - - -
check CPUID: Bảo vệ file excel (#7) --> nên sửa lại thành Sub để check 1 lần duy nhất khi Open file (khi dùng hàm trực tiếp có thể ảnh hưởng đến file đang chạy)

mã máy em lấy được "BFEBFBFF000306A9" add vào code. Mở file lên lần đầu pase "BFEBFBFF000306A9" là dùng mãi mãi ko hỏi nữa!

 

[mabuap1]

bạn xem file của mình vừa tạo thử, có đáp ứng nổi yêu cầu trên ko?

dưới đây là số serial được cấp: View attachment 116588

'- - - - -
- Nếu nhập sai key thì user ko thể vào chỉnh sửa các sheet khác + ko thể vào xem code VBA.
- khi đóng file thì các sheet được được ẩn đi (ngoài sheet1) <=> Protected.
'- - - - -
pass VBA: phucbugis

'- - - -
thêm file check key 2 (sửa theo #14)
Link: https://www.mediafire.com/?360e4l38wmmwfq8
'- - - -
check CPUID: Bảo vệ file excel (#7) --> nên sửa lại thành Sub để check 1 lần duy nhất khi Open file (khi dùng hàm trực tiếp có thể ảnh hưởng đến file đang chạy)

Anh ơi, em đang dùng code này của anh, mà sao khi nhập key đúng, thì các sheet sẻ mở, riêng sheet account phải ẩn thì mới bảo mật ạ. (hiện tại sheet acount mở) anh chỉnh lại giúp e với ạ.
Do file lâu ngày đã hết hạn sử dụng, e chỉnh lại key =1 để a đăng nhập rồi ạ
Mong nhận được giúp đỡ của anh. em cảm ơn ạ

 

[YêuCN]

Muốn bảo mật thì kiếm cái tool chuyển vba tới dll, dll là c++ thì ok rồi!