Reset Password Bios with pascal

Source Code DELPASS.PAS

{*****************************************************************

*************** Hilangkan Password pada Mainboard ***************

**************** (Reset BIOS ke nilai Default) ***************

******************************************************************

******************************************************************

*** Untuk kompilasi gunakan: Turbo Pascal ver. 5 atau yg baru ***

******************************************************************}

program Hilangkan_Password_BIOS;

uses

Crt;

procedure Inisial;

begin

Writeln('Menghilangkan Password Mainboard');

Writeln(' reset BIOS ke nilai Default ');

Writeln('--------------------------------');

Writeln;

end;

function Konfirmasi: Boolean;

var

Jawab: Char;

begin

repeat

Write('Serius ... BIOS-nya mau di-Reset (y/t) ? ');

Readln(Jawab);

until (Upcase(Jawab) = ('Y')) or (Upcase(Jawab) = ('T'));

Konfirmasi:= Upcase(Jawab) = 'Y'

end;

procedure ResetBios;

var

Loop: Byte;

begin

{ gunakan instruksi PORT[$70] dan PORT[$71]

untuk 'kontak' dgn BIOS. PORT[$71] adalah

isi BIOS sedangkan PORT[$70] adalah indeksnya

yang diberi nilai 0-225.

Untuk membuat isi BIOS menjadi kosong, Masukan

nilai 0 ke PORT[$70] untuk setiap indeksnya. }

Loop:= 0;

repeat

Port[$70]:= Loop;

Port[$71]:= 0;

Inc(Loop);

until Loop = 255

end;

begin

ClrScr;

Inisial;

if Konfirmasi then

begin

ResetBios;

Writeln;

Writeln;

Writeln('BIOS sudah di reset, Password BIOS Mainboard sudah hilang.');

Writeln('Harap ''komposisi'' settingan BIOS di atur kembali.')

end

else

Writeln('Jelas setting BIOS masih tetap, wong nggak diapa-apain kok.')

end.