Contributor: EDUARDO MOTTA BUHRNHEIM



PROGRAM TEXT_AMI_BIOS_PASSWORD_FINDER;

{

  Eduardo Motta Buhrnheim (Mingo)
  MAY/1997

  mingo@n3.com.br
  buhrn@dadosnet.com.br
  mingus@n3.com.br

  Mingus Production
  P.O.Box, 3159,
  Manaus, Amazonas,
  Brazil,
  69001-970.

}


USES DOS,CRT;

VAR
BYTEBUFFER:ARRAY [0..6] OF BYTE;
SENHA:STRING[6];
A,I,CARAC,PREVIO,TMPA,TMPB:WORD;

BEGIN
WRITELN;
TEXTBACKGROUND(1);TEXTCOLOR(15);
WRITE(' TEXT_AMI_BIOS_PASSWORD_FINDER by Eduardo Motta Buhrnheim (Mingo) in
MAY/1997! ');
TEXTBACKGROUND(0);TEXTCOLOR(7);
WRITELN;WRITELN;
SENHA:='';
FOR A:=$37 TO ($3D) DO
   BEGIN
   PORT[$70]:=A;
   BYTEBUFFER[A-$37]:=PORT[$71];
   END;
SENHA:='';
BYTEBUFFER[0]:=BYTEBUFFER[0] AND $F0;
I:=1;
WHILE (I<7) AND (BYTEBUFFER[I]<>0) DO
   BEGIN
   CARAC:=0;
   PREVIO:=BYTEBUFFER[I-1];
   WHILE (PREVIO<>BYTEBUFFER[I]) DO
      BEGIN
      INC(CARAC);
      TMPA:=0;
      TMPB:=0;
      IF (PREVIO AND $80>0) THEN
         INC(TMPA);
      IF (PREVIO AND $40)>0 THEN
         INC(TMPA);
      IF (PREVIO AND $02)>0 THEN
         INC(TMPA);
      IF (PREVIO AND $01)>0 THEN
         INC(TMPA);
      WHILE TMPB