Cách đặt password cho file lisp

[doanduyhung 40]

Pác nào có lisp chỉ cách đặt password chỉ em với.

Yêu cầu nhập mã nếu nhập sai trong khoảng n lần thì không thực hiện lệnh được nửa .

[vndesperados 254]

Pác nào có lisp chỉ cách đặt password chỉ em với.

Yêu cầu nhập mã nếu nhập sai trong khoảng n lần thì không thực hiện lệnh được nửa .

(DEFUN INIT()
 (if (= Nil IsOK)
(setq IsOK 0)
 )
 (if (= Nil i)
(setq i 0)
 )
)
(DEFUN PASS( / n pass input)	
 (setq n 5); Cho kiem tra pass 5 lan
 (setq pass "vokiencuong"); Dat password la vokiencuong

 (while (AND (= IsOK 0) (< i n))
 (setq input (getstring "\nNhap password: "))
 (if  (= pass input)
	(setq IsOK 1)
 )
 (setq i (1+ i))			   
 )
)

Lưu ý: IsOK là biến Global

Có thể gọi DEFUN trên trước khi thực hiên một lệnh nào đó

VD Giả sử trong Code của bạn cần thực hiện một lệnh LENH_A

thì có code như sau

(INIT)
(PASS)
(if (= IsOK 1)
 (LENH_A)
 (alert "Ban khong duoc phep su dung lenh nay")
)

[tientracdia 16]

Mình có sưu tàm file lisp này dùng để khóa lisp;

Nhờ các anh hướng dẫn cho nội dung của lisp này và cách sử dụng

; pfc is stand for Password For Code
;    	Design by  : Adesu <Ade Suharna>
;    	Email  	: mteybid@yuasabattery.co.id
;    	Homepage   : http://www.yuasa-battery.co.id
;    	Create 	: 13 July 2006
;    	Program no.: 0381/07/2006
;    	Edit by	: Adesu   14/07/2006  	1).

Rất cám ơn

[bachngoctung 11]

Liệu có ai đó tải lisp bạn về và họ xóa code hỏi pass đi thì làm sao. Chắc phải thêm chức năng đóng cứng file lisp ko chỉnh sửa được nữa...

[Doan Van Ha 3.192]

Cũng chưa chắc lắm đâu. Mà chi cho mệt. Của Thiên thì trả Địa, chứ của mình đâu. May là các member CV còn rộng lượng để có cái kiếm về tìm cách khóa.

[avi612 15]

Việc gì mình phải làm chuyện này nhỉ.... Share mà học hỏi chứ......nếu như ai cũng giữ khư khư cho mình thì Forum CADviet chắc đóng cửa sớm nhể :).