Chuyển đến nội dung
Diễn đàn CADViet
tannguyen291

[Học hỏi kiến thức] Trial và những vấn đề muôn thuở

Các bài được khuyến nghị

Các bác cũng biết đấy việc bảo mật VLX thì cũng có nhiều bài đăng rồi.

Hiệu quả nhất là GetHDD mà em đọc được từ code bác @ketxu đăng lâu lắm rồi.

Nhưng gần đây em bị hỏi rất nhiều về việc có được dùng thử không. 

Phương pháp an toàn mà em biết đến là InternetTime của cụ Lee.

Nhưng điểm hạn chế là liên tục phải tạo những file vlx với khoảng thời gian cố định. 

Phương pháp đơn giản hơn thì có chỉnh registry tuy nhiên có rất nhiều phần mềm windows theo dõi sự thay đổi này để có thể crack.

Em đang nghĩ đến 2 cách

cách 1: nếu có thể lấy được thời gian trên internet thì cũng có thể lấy được data từ một website khác. 

Người dùng thử sẽ phải nhập password mà mình cung cấp.

(cách này em chưa tìm hiểu được gì)

cách 2: vẫn sử dụng internettime và dùng thêm 1 hàm mã hoá. mình sẽ cấp cho người dùng password (chính là kết quả mã hoá của thời gian ngày hôm nay) để dùng thử 1 ngày

  (nếu muốn cho dùng nhiều ngày vòng luẩn quẩn đã quay trở lại)

Các bác có phương pháp nào hay giới thiệu em với.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Nếu hạn chế máy dùng bản trial thì Bạn có thể tạo file trên host để chứa mã HDD và time dùng thử. Lisp đọc file này. Hàm đọc file từ địa chỉ web rất nhiều. Mã hóa hay không tùy bạn
- Mã không trùng thì k dùng được
- Mã trùng mà quá ngày thì k dùng được

- Mã trùng mà trong time dùng thử thì dùng được

Việc check này chỉ làm 1 lần và để ngoài lệnh nhé

  • Like 1
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Cảm ơn bác nhé.

Về phương pháp tạo host thì em chưa rõ lắm. 

Em có sưu được 1 lisp giúp tải file từ web  nhưng lại không hoạt động được với google drive.

Bác có thể cho em xin thêm thông tin hoặc link để em nghiên cứu với ạ. 

Cảm ơn bác lần nữa. :) 

 

 

 

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình k nhớ lắm, n hình như hồi trước lấy của vovka hay LM gì đó vọc.
Còn việc để file lên host thì mình k tự làm, có các bạn bên thiết kế web hỗ trợ. Tuy nhiên mình cũng lâu lắm r k nghĩ đến chuyện trial chi mệt đầu ^^ K có cái khóa nào k phá được cả, nên cứ tập trung vào code những cái mới th :D

  • Like 2
  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Nói như các bác trên thì có người tạo ra ổ khóa thì có người mở được cái ổ khóa đó? Nó giống như vấn đề trọng lực!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Lisp ở mức độ bình thường giá vài chục vài trăm k thì cũng không bao nhiêu, Ai nhắm mua được thì mua không thì thôi chứ cũng không phải công cụ kiếm cơm hằng ngày, nghĩ đến get dữ liệu online để dùng thử hoặc dùng key online chi phức tạp nhỉ, nhiều người lúc dùng không có internet họ cũng ngại mua khi khóa online đó. còn bình thường get serial của máy so sánh dữ liệu trong lisp trùng thì chạy không cảnh báo thôi. Mình cũng ko biết lấy serial so sánh trực tiếp vào code luôn có bị crack được không nữa. Chứ dịch ngược ra thì cũng không làm ăn đc gì còn lưu key hay giấu data vào Registry hay đâu đó máy tính thì dịch ngược có thể tìm mở đc,

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
1 giờ trước, cuongtk2 đã nói:

Những thứ không bị phá khoá là những thứ không đáng để phá.

haha. Bác có suy nghĩ rất mới lạ. :))

1 giờ} trướ}c, HoaiAn2019 đã nói:

nhiều người lúc dùng không có internet họ cũng ngại mua khi khóa online đó. còn bình thường get serial của máy so sánh dữ liệu trong lisp trùng thì chạy không cảnh báo thôi. Mình cũng ko biết lấy serial so sánh trực tiếp vào code luôn có bị crack được không nữa. Chứ dịch ngược ra thì cũng không làm ăn đc gì còn lưu key hay giấu data vào Registry hay đâu đó máy tính thì dịch ngược có thể tìm mở đc,

dạ em dùng get data web chỉ dùng cho việc dùng thử thôi ạ. 

Get serial thì vẫn có cách crack. Em đã dùng thử app face serial hard drive thấy okela lắm. (không cần lo lắng mã hoá kiểu gì hết)

Giấu data vào registry thì có thể thêm bảo mật cấp 2 bằng cách

   tạo 1 file ẩn abc.def chứa seri vào trong enu của cad. mã hoá thời gian modifile của abc.def file đó ghi vào registry (để tránh việc sửa đổi file abc.def)

   load lisp sẽ mã hoá lại file  abc.def so sánh với data trong registry nếu đúng thì lấy serial ra so sánh lần 2.

(nhưng cách này nên dùng cho khoá cố định thì hợp hơn là dùng thử)

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
17 giờ trước, tannguyen291 đã nói:

cách 2: vẫn sử dụng internettime và dùng thêm 1 hàm mã hoá. mình sẽ cấp cho người dùng password (chính là kết quả mã hoá của thời gian ngày hôm nay) để dùng thử 1 ngày

  (nếu muốn cho dùng nhiều ngày vòng luẩn quẩn đã quay trở lại)

Các bác có phương pháp nào hay giới thiệu em với.

Gọi InternetTime1 lúc cài là N1. Trial là 30. Tác giả mã hóa N1 được pass là P cấp cho user.
Khi user cài đặt và sử dụng: nếu đúng pass N1 và InternetTime2 < N1+30 thì OK, không thì NO.

Trong đó N1 lần sau được lấy bằng cách giải mã pass đã cấp (ngược quy luật mã hóa).

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
23 phút trước, Doan Van Ha đã nói:

Gọi InternetTime1 lúc cài là N1. Trial là 30. Tác giả mã hóa N1 được pass là P cấp cho user.
Khi user cài đặt và sử dụng: nếu đúng pass N1 và InternetTime2 < N1+30 thì OK, không thì NO.

Trong đó N1 lần sau được lấy bằng cách giải mã pass đã cấp (ngược quy luật mã hóa).

Em hiểu ý bác theo 2 cách

C1: N1 là mã hoá thời gian lưu trực tiếp vào lisp, N2 là Getstring nhập từ người dùng N2 = N1 thì kiểm tra thời gian thực (cách này phải tạo nhiều file vlx, giống như cũ)

C2: N2 là Getstring nhập từ người dùng. (không có N1 để so sánh trực tiếp)

Giải mã N2 so sánh định dạng. Nếu kết quả là định dạng thời gian thì so sánh với thời gian thực. 

(cách này có vẻ ổn hơn nhưng cần một công cụ mã hoá, giải mã mạnh mẽ)

Cảm ơn bác nhé em sẽ thử theo hướng thứ 2 ạ !

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
2 giờ trước, cuongtk2 đã nói:

Những thứ không bị phá khoá là những thứ không đáng để phá.

Quan điểm này ngộ ghê em.
Két sắt ngân hàng vẫn khóa đấy thôi. Chả lẽ bọn cướp nhà băng dòm không thấy tiền?
Nhà mình vẫn khóa cổng đấy thôi. Chả lẽ nhà mình không có nổi chiếc xe 2 bánh?
Đành rằng vỏ quít dày móng tay nhọn, nhưng có khóa nó cũng đỡ hơn không khóa. Và đôi khi khóa là để hạn chế bớt bị cắp chứ không phải để chống triệt để kẻ cắp.
Một số lisper họ bỏ công viết, muốn lấy lại sức lao động, thì chuyện khóa lisp là bình thường (và cũng chỉ khóa được những người không quá rành về công nghệ thôi). Mà liệu có bao nhiêu người dùng lisp, thậm chí rành lisp, có thể hack được? E rằng cực kỳ ít!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

he he.

Bác đã mua bao nhiêu phần mềm bản quyền?

Vì sao người ta bẻ khoá những phần mềm đó mà không nhắm sang những phần mềm khác? Đơn giản do nó ít thị phần.

Nếu em viết ra một tool mà bị hack, em sẽ cay cú hay tự hào vì nó cũng đáng để hack?

 

 

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Em tìm được hàm này trên trang http://opendcl.com/forum/index.php?topic=1244.0

(defun GetFromWeb (strUrl / webObj res errobj)
  (setq webObj (vlax-invoke-method (vlax-get-acad-object) 'GetInterfaceObject "WinHttp.WinHttpRequest.5.1"))
  (vlax-invoke-method webObj 'Open "GET" strUrl :vlax-false)
  (setq errobj (vl-catch-all-apply 'vlax-invoke-method (list webObj 'Send)))
  (if (vl-catch-all-error-p errobj)
    (princ (strcat "\n!!! WEB server error:\n" (vl-catch-all-error-message errobj)))
    (setq res (vlax-get-property webObj 'ResponseText))
  )
  res 
)

nếu lấy dữ liệu tại google doc thì trong chuỗi có 1 dòng DOCS_modelChunk  chứa nội dung văn bản. 

Cách này có vẻ ổn nhất khi lấy được mã hoá của pass rồi so sánh với input người dùng. 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tôi tìm được 1 lisp read file Url khác, mọi người xem và so sánh phạm vi sử dụng.
Hiện đang tìm Lisp ghi file lên Url mà chưa có. Ai có cho xin, thanks!


;-----https://stackoverflow.com/questions/30250320/autolisp-lisp-write-to-file-on-web-server
(defun c:read ()
 (setq server "http://example.com.au/Folder/")
 (setq SetFile "testpost.txt")
 (setq Filepath (strcat server SetFile))
 (setq xml (vlax-create-object "MSXML2.XMLHTTP.3.0"))
 (vlax-invoke-method xml 'open "POST" Filepath :vlax-false)
 (vlax-invoke-method xml 'send)
 (setq strSunday (vlax-get-property xml 'responsetext)))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
16 phút trước, Doan Van Ha đã nói:

Tôi tìm được 1 lisp read file Url khác, mọi người xem và so sánh phạm vi sử dụng.
 Hiện đang tìm Lisp ghi file lên Url mà chưa có. Ai có cho xin, thanks!



;-----https://stackoverflow.com/questions/30250320/autolisp-lisp-write-to-file-on-web-server
(defun c:read ()
 (setq server "http://example.com.au/Folder/")
 (setq SetFile "testpost.txt")
 (setq Filepath (strcat server SetFile))
 (setq xml (vlax-create-object "MSXML2.XMLHTTP.3.0"))
 (vlax-invoke-method xml 'open "POST" Filepath :vlax-false)
 (vlax-invoke-method xml 'send)
 (setq strSunday (vlax-get-property xml 'responsetext)))

 

hàm này của bác nhìn giống hàm lấy thời gian thật

Thay cái FIlepath thành "http://time.nist.gov:13" là ra thời gian kk

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
22 phút trước, Doan Van Ha đã nói:

Tôi tìm được 1 lisp read file Url khác, mọi người xem và so sánh phạm vi sử dụng.
Hiện đang tìm Lisp ghi file lên Url mà chưa có. Ai có cho xin, thanks!


;-----https://stackoverflow.com/questions/30250320/autolisp-lisp-write-to-file-on-web-server
(defun c:read ()
 (setq server "http://example.com.au/Folder/")
 (setq SetFile "testpost.txt")
 (setq Filepath (strcat server SetFile))
 (setq xml (vlax-create-object "MSXML2.XMLHTTP.3.0"))
 (vlax-invoke-method xml 'open "POST" Filepath :vlax-false)
 (vlax-invoke-method xml 'send)
 (setq strSunday (vlax-get-property xml 'responsetext)))

 

Bác nghiên cứu cái này xem sao! https://www.theswamp.org/index.php?topic=57054.0

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
13 phút trước, NTHAHT đã nói:

Bác nghiên cứu cái này xem sao! https://www.theswamp.org/index.php?topic=57054.0

Mấy hàm trong đó toàn bị lỗi:
; error: Automation Error. The system cannot locate the resource specified.
; error: Automation Error. A connection with the server could not be established
 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
21 giờ trước, Doan Van Ha đã nói:

Mấy hàm trong đó toàn bị lỗi:
; error: Automation Error. The system cannot locate the resource specified.
; error: Automation Error. A connection with the server could not be established
 

Sau khi nghiên cứu mấy cái lisp đọc hdd serrial, get data website... Em nhận ra chúng dùng chung 1 dạng công thức.

1. khởi tạo đối tượng ActiveX: 

(vlax-create-object "API Class")

các API class này đều có sẵn trong window và có thể tham khảo  tại  https://learn.microsoft.com/en-us/windows/win32

Ví dụ "WinHttp.WinHttpRequest.5.1" là https://learn.microsoft.com/en-us/windows/win32/winhttp/winhttprequest

2. Connect với đối tượng:

(vlax-invoke-method xml 'OPEN "POST" server :vlax-false)

xml là object được tạo tại 1.

Open là phương thức gọi lệnh của ActiveX (trong link bên trên có hướng dẫn)

"POST" Sever :vlax-false đều là các biến giá trị của hàm Open.

Xem tại Methods link trên

3. Tương tác với đối tượng:

(vlax-invoke-method xml 'send) ;;gửi link

<có thể sẽ có cách đẩy data lên website>

4. Lấy giá trị trả về:

(vlax-get-property xml 'responsetext)

Hoặc 

(vlax-invoke-method xml 'GetResponseHeader "date"))

Tương tự như connect thì responsetext xem tại Properties của link trên.

Tuy nghiên cứu chưa được mấy nhưng em nghĩ đây là hướng mới mở ra kha khá thứ cho autolisp.

 

Ví dụ về một hàm lấy thời gian trên internet 

(hàm này có thể lấy thời gian tại bất kỳ website nào. Không cần thông qua time.nist.gov)

(ưu điểm sever các trang web lớn như google, microsoft... hiếm khi sảy ra hiện tượng không thể connect sever như time.nist.gov bình thường em dùng lên tới 30% không có kết quả trả về)

(defun TimeInternet (server / xml str)
  (setq xml (vlax-create-object "WinHttp.WinHttpRequest.5.1"))
  (vlax-invoke-method xml 'OPEN "POST" server :vlax-false)
  (vlax-invoke-method xml 'send)
  (setq str (vlax-invoke-method xml 'GetResponseHeader "date"))
  (vlax-release-object xml)
  str
)

(TimeInternet "https://www.cadviet.com/")

"Fri, 18 Aug 2023 01:28:28 GMT"

 

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

em tìm được 4 cái này chưa biết cách sử dụng ạ. 

Vẫn đang nghiên cứu thêm bác ạ.

image.thumb.png.67db3d57dc3f2db479c3fdcdf94f2a4b.png

 

Gửi bác một vài thứ em tìm được

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vlax-create-object-examples/td-p/8982289

link này có cách để tìm kiếm được toàn bộ api hỗ trợ trong windows

Muốn xem hỗ trợ đến đâu trong cad thì bác create object 

Xong rồi dùng vlax-dump-object kể kiểm tra các methods hỗ trợ ạ.

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
23 giờ trước, Doan Van Ha đã nói:

Cuối cùng em có kiếm được hàm send file to web không em?

Khó quá thì mình gửi câu lệnh cho CMD windows làm bác ạ. Chứ em nghiên cứu mấy ngày nay chưa ra. :))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Vào lúc 21/8/2023 tại 09:33, tannguyen291 đã nói:

Khó quá thì mình gửi câu lệnh cho CMD windows làm bác ạ. Chứ em nghiên cứu mấy ngày nay chưa ra. :))

Trang này có hàm send file to server, nhưng tôi thử cứ lỗi miết:
https://github.com/diegomcas/autolisp-web-and-json-utils

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
32 phút trước, Doan Van Ha đã nói:

Trang này có hàm send file to server, nhưng tôi thử cứ lỗi miết:
https://github.com/diegomcas/autolisp-web-and-json-utils

 

Ôi nghiên cứu quả này to đầu bác à. Em đang nghiên cứu gửi gmail mà cũng mấy ngày nay chưa xong

(defun SendGoogleEmail (username password recipient Subject contents / sever field config)
  (setq sever (vlax-create-object "CDO.Message.1"))
  (setq config (vlax-get-property sever 'Configuration))
  (setq field (vlax-get-property config 'Fields))
  (foreach pair (list (list "http://schemas.microsoft.com/cdo/configuration/sendusing" 2)
                  (list "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 60) 
                  (list "http://schemas.microsoft.com/cdo/configuration/smtpserver" "smtp.gmail.com")
                  (list "http://schemas.microsoft.com/cdo/configuration/sendusername" username)
                  (list "http://schemas.microsoft.com/cdo/configuration/sendpassword" password)
                  (list "http://schemas.microsoft.com/cdo/configuration/smtpserverport" 465)
                  (list "http://schemas.microsoft.com/cdo/configuration/smtpusessl" 1)
                  (list "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" 1)
                  (list "https://schemas.microsoft.com/cdo/configuration/sendtls" 2)
                  (list "https://schemas.microsoft.com/cdo/configuration/SmtpClientAuthenticationDisabled" 1)
                  )
    (vlax-put-property (vlax-get-property field 'Item (car pair) ) 'Value (last pair))
  )
  (vlax-invoke field 'Update)
  (vlax-put-property sever 'Subject Subject)
  (vlax-put-property sever 'TextBody contents)
  (vlax-put-property sever 'From username)
  (vlax-put-property sever 'To recipient)
  (vlax-put-property sever 'Sender username)
  (vlax-put-property sever 'HTMLBody contents)
  (vlax-invoke sever 'Send)
  (vlax-release-object sever)
)

image.thumb.png.c0634c95ba32437d9c57cf91c50805e1.png

Tất cả mọi thứ chạy ngon lành nhưng đến lúc Send thì không được.

Mang lỗi lên mạng search thì bảo là tắt chế độ an toàn bảo mật của google là được.

Sao bọn tây làm được mà em k làm được. :((

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×