Các thủ thuật trong Pascal

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

Port[$3c7]:=0;{Thiết lập chế độ nhả tín hiệu}

For i:=0 to max do

pal[i]:=port[$3C9];{Đón tín hiệu và nạp vào mảng pal}

end;

begin

readpal;{Đọc thông tin hiện thời của màn hình}

for count:=0 to 15 do

begin textcolor(count); Writeln(′Text mờ dần!!!′); end;{Viết text với các màu khác nhau}

for count:=63 downto 0 do

Begin

for count2:=0 to max do