Ba thủ thuật nhỏ với Pascal
Nguyễn Đức Phương
1. Xóa password trong bios
Đôi khi bạn đặt password trong Cmos rồi quên mất, nên không thể làm thế nào để vào cấu
hình lại phần cứng.
Bạn có thể xóa password bằng một chương trình pascal với chỉ 4 dòng như sau:
begin
port[$70]:=$2f;
port[$71]:=$ff;
End;
Chương trình sẽ làm bios bị tràn dẫn đến dữ liệu trong đó (và tất nhiên là cả password) bị
xóa.
2. Làm hiệu ứng text mờ dần
Xử lí, trang trí các màu cho text trong Pascal là một vấn đề vô cùng thú vị. Chương trình
sau sẽ giúp các bạn làm mờ dần text trên màn hình đến khi toàn bộ dường như ″chìm vào
bóng đêm″
uses crt;
const max=191;{=64*3-1}
var
pal:array[0..max] of byte;
count, count2:word;
Procedure Setpal;
Var i:word;
Begin
Port[$3c8]:=0;{Thiết lập chế độ nhận tín hiệu}
For i:=0 to max do
port[$3C9]:=pal[i];{Nạp dữ liệu từ mảng pal vào}
end;
procedure readpal;
Var i:word;
begin

mov ax,$3; int $10;
end;
Thủ tục turnoffmonitor tắt màn hình bằng cách truy xuất cổng. Còn thủ tục turnonmonitor,
tôi không tìm được cách truy xuất cổng nên thông qua ngắt thiêt lập chế độ màn hình (đưa
màn hình về chế độ text thông thường). Sau ngắt này, màn hình sẽ bị xoá. Bạn cần có kế
hoach khôi phục lại.
*Thay lời kết:
Các đoạn code trên chỉ là do tôi tình cờ phát hiện khi lập trình (2,3) cũng như bảo chế lại
một số thủ thuật khác(1) mà thôi nên chưa hẳn đã tối ưu, lại không đượccông bố trên
nhứng tài liệu chính thức nào. Các bạn yêu thích lâp trình pascal xin hãy cố gắng tìm hiểu
cà cải tiến!