Đến nội dung


Hình ảnh
- - - - -

Cách đặt password cho file lisp


  • Please log in to reply
5 replies to this topic

#1 doanduyhung

doanduyhung

    biết vẽ spline

  • Members
  • PipPip
  • 90 Bài viết
Điểm đánh giá: 40 (tàm tạm)

Đã gửi 14 September 2007 - 11:36 AM

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

#2 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 14 September 2007 - 01:21 PM

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")
)

  • 0

#3 tientracdia

tientracdia

    biết lệnh scale

  • Members
  • PipPipPip
  • 147 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 12 December 2012 - 04:33 PM

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
  • 0

#4 bachngoctung

bachngoctung

    biết lệnh copy

  • Members
  • PipPipPip
  • 115 Bài viết
Điểm đánh giá: 11 (tàm tạm)

Đã gửi 12 December 2012 - 10:33 PM

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

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 12 December 2012 - 10:49 PM

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

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#6 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 14 December 2012 - 12:32 AM

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