How to protect Lisp File

[lrm]

I was wondering if NFT's (Non-fungible Tokens) might be used. It might not be practical in this application but in theory would it work?

[BIGAL]

Ok so had a think and ended up with this you need the where are the lisps d:\\temp, where is the licence.lsp and a out put directory \\temp\\compile. Change to suit your pc.

 

its rough as its only used to make new lisps yes can be way better with more bells and whistles.

 

(setq lspdir (vl-directory-files "d:\\temp" "*.lsp"))
(setq fo (open "d:\\temp\\licfiles.bat" "w"))
(foreach lsp lspdir
(write-line (strcat "copy d:\\alan\\lisp\\licence.lsp+" "\"d:\\temp\\" lsp "\"" " " "\"d:\\temp\\compile\\" lsp "\"") fo )
)
(close fo)

(command "shell" "d:\\temp\\licfiles.bat")

 

Edited February 19, 2022 by BIGAL

[mhupp]

1 hour ago, lrm said:

I was wondering if NFT's (Non-fungible Tokens) might be used. It might not be practical in this application but in theory would it work?

tho this is probably an actual use for nft's.

[Steven P]

11 hours ago, lrm said:

I was wondering if NFT's (Non-fungible Tokens) might be used. It might not be practical in this application but in theory would it work?

 

Not something I have come across before really, but if you apply one of these to a LISP file will that stop another user opening the file and yet allow the originators CAD to run the LISP?

[BIGAL]

An extra step for above code updated will make fas files.

[viviancarvalho]

check out this thread for a similar kind of question

 

http://www.cadtutor.net/forum/showthread.php?54624-Time-bound-Lisp

 

[mohammadreza]

On 2/13/2022 at 12:06 PM, Kajanthan said:

Very Strongest Protected lisp code

funny result

        (eq "DD:13:EF:3D:95:AC" ret) ;; This is your Pc MAC
        (eq "BFEBFBFF040908EA" serx) ;; This is your Processor Id
 

Licence.lsp 2.44 kB · 80 downloads

hi, thanks for your solution.
Can i ask how it work?

 

[BIGAL]

You can get hard disk Id, Mac address, or processor ID as suggested. Some hard disk code examples

 

(setq ser (vla-get-Serialnumber (vlax-invoke (vlax-create-object "Scripting.FileSystemObject") 'getdrive "c:")))

; drive type 1 is a usb 2 hard disk
(defun UsbDriveSerialNumber ( / fso dr)
  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (vlax-for d (vlax-get fso 'Drives)
    (if
	  (= (Vlax-get  d 'DriveType) 2)
      (setq dr (cons (list (vla-get-path d) (vla-get-SerialNumber d)) dr)
      )
    )
  )
  (vlax-release-object fso)
  (reverse dr)
)
(UsbDriveSerialNumber)


(vlax-for d (vlax-get fso 'Drives)
	  (princ (Vlax-get  d 'DriveType) )
)

 

"Can i ask how it work?" Did you look at the lisp posted ?

Edited August 12, 2023 by BIGAL