Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Хакерские Штучки    >>    amipsw
   
 
 AMI BIOS Password Reader   Maksim Doronin 25.11.1996

Показывает, какой пассворд установлен в AMI BIOS.
This utility reads the AMI BIOS password.



1k 
 

Глобальности и благополучия тебе, 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.