Security

[j_spawn_h]

Is there any thing I can put in my lisp to keep someone from using it if they copied from my computer to theirs?

[Lee Mac]

Is there any thing I can put in my lisp to keep someone from using it if they copied from my computer to theirs?

 

Hard-code your AutoCAD serial number (_PKSER) (or some other unique identifier to your computer) into the LISP, then compile the LISP to a VLX to make it uneditable.

[pBe]

I usually use loginame, but AutoCAD serial number sounds a lot cooler .

 

I'll try that.

 

Tnx Lee

[ketxu]

Oh.. Somewhere all people use a crac* version, so their _PKSER always is "000-00000000" or "999-99999999", or has same Serial.....(might be OP ^^)

Hi, just a joke ^^ I think we should use HDD Serial or sth similar

[Lee Mac]

Hi, just a joke ^^ I think we should use HDD Serial or sth similar

 

Maybe (virtual serial):

 

(defun HDSerial ( drive / fso drv ser )
 (vl-catch-all-apply
   (function
     (lambda nil
       (setq fso (vlax-create-object "Scripting.FileSystemObject")
             drv (vlax-invoke-method fso 'getdrive drive)
             ser (vlax-get-property drv 'serialnumber)
       )
     )
   )
 )
 (if drv (vlax-release-object drv))
 (if fso (vlax-release-object fso))
 ser
)

Or, for the manufacturer's Serial number (only works in Vista or 7):

 

(defun HDSerial ( / wmi srv drv ser )
 (vl-catch-all-apply
   (function
     (lambda ( )
       (if
         (setq wmi (vlax-create-object "WbemScripting.SWbemLocator")
               srv (vlax-invoke wmi 'connectserver nil nil nil nil nil nil nil nil)
               drv (vlax-invoke srv 'execquery "Select SerialNumber from Win32_DiskDrive")
         )
         (vlax-for item drv
           (vlax-for prop (vlax-get item 'Properties_)
             (if (eq "SERIALNUMBER" (strcase (vlax-get prop 'name)))
               (setq ser (vl-string-trim " " (vlax-get prop 'value)))
             )
           )
         )
       )
     )
   )
 )
 (if drv (vlax-release-object drv))
 (if srv (vlax-release-object srv))
 (if wmi (vlax-release-object wmi))
 ser
)

[ReMark]

I thought that most people write lisp routines because they DO want to share them. Now share can mean 1) free or 2) at a cost but don't you want the world beating a path to your door demanding the perfect lisp routine you went through all the trouble to create? Have you ever "borrowed" someone else's lisp routine?