Giới hạn sử dụng một chương trình

Giới hạn sử dụng chương trình

Phan Thanh ấn

Ngàynay, vấn đề bản quyền đang là một vấn đề nổi cộm trong nhiều cuộc thảo luận,nhiều

hội nghị bàn về kinh tế trí thức ở Việt Nam. Thực tế cho thấy phần lớnngười dùng máy

tính dễ dàng mua những phần mềm có chất lượng cao chỉ bằngkhoảng 15 000 VNĐ, thậm

chí là không tốn đồng nào trong khi giá bán thực của nócỡ khoảng... vài trăm đôla. Để

ngăn chặn vấn đề này, hầu hết các chương trìnhviết ra đều được cài đặt mật khẩu hoặc

khoá sử dụng hay là giới hạn chươngtrình được sử dụng trong một khoảng thời gian hay số

lần chạy nào đó rồi khôngcho sử dụng nữa để bắt buộc người dùng phải trả tiền. Tuy

nhiên, tôi không có ýđịnh nói về bản quyền mà chỉ xin đưa ra một cách để các bạn bảo vệ

chương trìnhcủa mình khi không muốn cho ai đụng vào hoặc giới hạn số lần chạy nhất

định.Tôi xin giới thiệu hai thủ tục viết bằng Pascal như sau:

Thủ tục thứ nhất,đòi mật mã truy xuất chương trình. Nếu mật mã sai thì thông báo và

dừngchương trình. Trong thủ tục này tôi sử dụng hàm Readkey để đọc từng kítự mật mã từ

bàn phím sau đó viết lại dạng '*', như vậy sẽ tránh lộ mật mã khita sơ ý và thủ tục Halt để

dừng chương trình không cho chạy nữa khi mậtmã không đúng. Mật mã là một chuỗi kí tự

mà bạn có thể thay đổi ở trong khaibáo Const. Thủ tục này bạn nên gọi đầu tiên trong

chương trình chính đểđảm bảo nó thi hành trước nhất.

{usescrt; }

Procedurenhap_mat_ma;

Constpassword = "hello"

Var mat_ma:string;

tempcode: char;

Begin

mat_ma:='';

gotoxy(22,10);

textcolor(12);

write('* Mat ma truy xuat:');

repeat