Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
doanduyhung

Cách đặt password cho file lisp

Các bài được khuyến nghị

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 .

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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")
)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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...

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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ể :).

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×