Các thủ thuật trong Pascal

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

if pal[count2]>0 then dec(pal[count2]);{giàm độ sáng}

While (port[$3DA] and 8)>0 do;

While (port[$3DA] and 8)=0 do;{Chờ cho màn hình retrace}

Setpal;{Ăp đặt vào màn hình}

delay(10);{chờ 1/100 giây}

end;

asm mov ax,$3; int 10h; end;{Đưa màn hình trở lại bình thường mode 80x25 và lau sạch} end

Tương tự như vậy các bạn có thể làm cho text trắng ra (thay pal[count2]>0 bằng

pal[count2]<64 và dec bởi inc hoặc làm cho text từ trạng thái trắng thành màu sắc bình thường Sử dụng hai mảng pal1 và pal2 để thay đổi chẳng hạn

3 Tăt bật monitor:

Bạn sử dụng hai thủ tục sau:

procedure turnoffmonitor;

begin

port[$3D4]:=23;

end;

procedure turnonmonitor;assembler;

asm

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!