Глобальности и благополучия тебе, Toly!

 TW> Hаpод может у кого есть кpяк субжа. Hо только такого, что бы на
 TW> все 100% pаботал.

Вот есть одна прога, показывает какой пассворд установлен.
Hе знаю, насчет процентов, редко юзаю...
(там исходник на паскале есть, если интересно :)



... --==  W H A T  I S  O U R  L I F E  ?..  ==--
--- Blue Wave v2.12
* Origin: The -= VACT BBS =- Station - 24h! (2:5085/29.16)


{> Cut here. FileName= AMIPSW.PAS }
var
  i,a,b,c:byte;

function cmos(ad:byte):byte; assembler;
asm
    mov al,ad
    out 70h,al
    jmp @m
@m: in  al,71h
end;


function code(a,b:byte):byte; assembler;
asm
     mov  bl,a
     mov  al,b
@m2: test bl,0c3h
     jp   @m1
     stc
@m1: rcr  bl,1
     dec  al
     jne  @m2
     mov  al,bl
end;

const UnScan:string[50]=
      '*1234567890****QWERTYUIOP****ASDFGHJKL*****ZXCVBNM';

begin
  write('The CURRENT password is : ');
  b:=cmos($37) and $f0;
  for i:=$38 to $3d do
  begin
    a:=0; c:=cmos(i);
    if c=0 then break;
    repeat inc(a) until (code(b,a)=c) or (a>50);
    if (a>50) or (UnScan[a]='*') then
    begin
      writeln(#13#10'Cmos error.');
      halt;
    end;
    write(UnScan[a]);
    b:=c;
    end;
  writeln;
end.