Topic: vlx password

[dussla]

i made  vlx file with some lisp files.but i need password for vlx.

example) if i load xxxx.vlx ,  command demands pasword for excuting .

is good solution for that ?

[rkmcswain]

Put some password code it in your lisp code somewhere. It will be hidden after "compiling" to VLX

See also: http://www.pacifier.com/~nemi/password.htm

[Didge]

Hope this helps, it should be fairly secure once compiled into a vlx.

(if (equal (get-password "Please Enter Password") "YOUR-PASS")
  (progn
    ; do stuff
  )
  (prompt "\nSorry wrong password)
)

Code: [Select]

;*****************************************************************************
; GET-PASSWORD - Dialogue box for standard password entry.                   *
; ============   Arguments: PRMPT = Prompt for top of dialogue box           *
;                                                                            *
;                Example:   (get-password "Please Enter Password")           *
;*****************************************************************************
(defun GET-PASSWORD ( PRMPT / dclname tempname filen dclid ret)
  (setq dclname (cond ((setq tempname (vl-filename-mktemp "GET-PASSWORD.tmp") filen (open tempname "w"))
       (foreach stream '( "passdlg : dialog { key = \"TITLE\"; label = \" \";\n"
  "          : boxed_column {\n"
  "            : edit_box { label = \"Password:\"; edit_width = 20; key = \"password\"; password_char = \"*\";}\n"
  "          }\n"
  "          spacer_1;\n"
  "          ok_cancel;\n"
  "        }\n")
                    (princ stream filen)
                )   
                (close filen)
                tempname
  )))
  (setq dclid (load_dialog dclname))
  (if (not (new_dialog "passdlg" dclid))(progn (alert "Dynamic Dialogue Extraction Failed.")(exit)))
  (if PRMPT (set_tile "TITLE" PRMPT))
  (mode_tile "password" 2)
  (action_tile "password" "(setq ret $value)")
  (start_dialog)
  (unload_dialog dclid)
  ret
)


[dussla]

wow
really thank you for good answer~
always thank you again

[TimSpangler]

Hope this helps, it should be fairly secure once compiled into a vlx.

(if (equal (get-password "Please Enter Password") "YOUR-PASS")
  (progn
    ; do stuff
  )
  (prompt "\nSorry wrong password") Don't forget to close the quotes 
)