How to make a password when appload lisp?

[bienda]

I want to make a password for my lisp (VLX) when i appload this lisp

Help me pleaseeeeeeeee

[gS7]

I hope This codes will helps you

(defun c:Test(/ password loop ans)
     (setq password 12345)
     (setq loop t)
     (while loop
    (setq ans (getint "\nEnter Password to unlock:"))
    (if (/= ans password)
	(princ "\nInvalid Password try again.")
        (progn
	      (princ "\nDone.");here you can add your main function
	      (setq loop nil)
	)
    )
     )
(princ))

 

 

Also if You want to Convert Your Lisp file into .fas

Check This Thread

http://www.cadtutor.net/forum/showthread.php?83695-Change-.lsp-to-.fas

[bienda]

I hope This codes will helps you

(defun c:Test(/ password loop ans)
     (setq password 12345)
     (setq loop t)
     (while loop
    (setq ans (getint "\nEnter Password to unlock:"))
    (if (/= ans password)
	(princ "\nInvalid Password try again.")
        (progn
	      (princ "\nDone.");here you can add your main function
	      (setq loop nil)
	)
    )
     )
(princ))

 

 

Also if You want to Convert Your Lisp file into .fas

Check This Thread

http://www.cadtutor.net/forum/showthread.php?83695-Change-.lsp-to-.fas

 

Thanks for helpfull.but i need to get password when i appload a lisp file

[gS7]

but i need to get password when i appload a lisp file

 

I Don't Understand What You Are Trying to say ..

[pBe]

Thanks for helpfull.but i need to get password when i appload a lisp file

 

This?

 

(defun c:Test()
 (if (eq password "BondJamesBond")
   (princ "\nPassword Verified")
   (princ "\nInvalid Password")
   )
(princ))

(setq password (getstring  "\nEnter Passwword for Test routine "))

[bienda]

This?

 

(defun c:Test()
 (if (eq password "BondJamesBond")
   (princ "\nPassword Verified")
   (princ "\nInvalid Password")
   )
(princ))

(setq password (getstring  "\nEnter Passwword for Test routine "))

Thanks for your feedback but my issue is to put a password in a lsp file.when i load a lisp file to a drawing. Password will be required once. if it's right password.i can use all the functions in lsp file. Thanks again

[pBe]

Save the code i posted as "test.lsp" then try and appload the file bienda.

[bienda]

Thanks for feedback

If i have 3 lisp file in 1 vlx

How to set password when i use them?

[BIGAL]

You can lock your code up in lots of ways Serial number, password, hard disk id, hidden file, lots of stuff but you have to add the check password code to every program if its already a vlx then you probably can not do it.

 

 

For any one interested from CMD copy lockfile+lispfile newlispfile just make a bat file with all files in it, this adds your locking to all your lisps.

Edited December 28, 2013 by BIGAL

[bienda]

Thank you very much