Reset password BIOS with pascal

|

One of the uses of Turbo Pascal, among others, is to remove the BIOS password, the script is following its program ..

program Hilangkan_Password_BIOS;
uses Crt;
{Modifikasi by andrew , 6 july 2004 }
procedure Inisial;
begin
writeln;
textcolor(9);
gotoxy(24,5);Writeln('Menghilangkan Password Mainboard');
writeln;
gotoxy(26,7);Writeln(' reset BIOS ke nilai Default ');
gotoxy(24,9);Writeln('--------------------------------');
Writeln;
textcolor(blink +red);
gotoxy(29,15);write('Andrew Fiade ');
textcolor(blink + white);
write('Programmers');
writeln;
textcolor(white);
gotoxy(24,17);writeln('--------------------------------');
Writeln;
gotoxy(59,50);writeln('+++');
end;
function Konfirmasi: Boolean;
var
Jawab: Char;
begin
repeat
textcolor(yellow);
gotoxy(24,20);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[$71]:= 0;
Inc(Loop);
until Loop = 255 end;
begin
ClrScr;
Inisial;
if Konfirmasi then
begin
ResetBios;
Writeln;
Writeln;
textcolor(3);
gotoxy(24,22);
Writeln('Your Password Has Been Remove');
gotoxy(24,24);Writeln('Please Reset Again Your Bios.');
readln ;
exit;
end else
textcolor(3);
gotoxy(24,23);
Writeln('Dont Worry , thats nothing all in your Bios !') ;
readln;
end.

0 comments:

  © Metode Numerik Blogger Theme by Ourblogtemplates.com 2008

Back to TOP