荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: BitMan (一位人), 信区: Hacker
标  题: [转载] 关于cmos的解密源程序!                  xky (转寄)
发信站: 深大荔园晨风站 (Sun Apr  5 23:26:07 1998), 转信

【 以下文字转载自 BitMan 的信箱 】
【 原文由 BitMan.bbs@bbs.net.tsinghua.edu.cn 所发表 】
发信人: sbaa (老猫), 信区: Hacker
标  题: 关于cmos的解密源程序!
发信站: BBS 水木清华站 (Thu Jan  8 16:31:36 1998)

老有人问关于cmos passwd的问题!
关于award 4.50有通用passwd是因为它有条跳转
密码经运算后放在两个字节里,也就是说只有65536个不同passwd
那通用passwd少说也在20万以上!这一点我以证明了
只要一个能用都能用!
4.51没了这句跳转,但算法没变!
用下面的pas程序能还源一个4位的密码,不一定是你设的,但能开机器!
PROGRAM PASS;
type
abc=array [1..12] of integer;
VAR
s,x,A,B,i:INTEGER;
tt:abc;
procedure todo(var x:integer;var tt:abc;var i:integer;kk:integer);
begin
i:=1;
while x>=256 do
begin
tt[i]:=x mod 4 +4*(8+kk);
i:=i+1;
x:=(x-tt[i-1]) div 4;
end;
if (x>=32) and (x<=126) then tt[i]:=x;
if (x>=160) and (x<256) then begin
tt[i]:=x mod 32 +32;
tt[i+1]:=(x-tt[i]) div 4;
end;
end;
begin
for a:=1 to 12 do tt[a]:=0;
port[$70]:=$1c;a:=port[$71];
port[$70]:=$1d;b:=port[$71];
x:=b*256+a;
a:=x;
b:=0;
repeat
s:=0;
todo(x,tt,i,b);
if ((x>0) and (x<31)) or ((x>=127) and (x<=159)) then
begin
s:=4;
b:=b+1;
end;
x:=a;
until (b>=23) or (s=0);
IF B>=23 THEN
begin
writeln('Sorry sb can not tell you password,because it is 1.0! you need 2.0 or
more');
halt(1);
end;
write('The password of this pc is:');
write('"');
for a:=i downto 1 do
write(chr(tt[a]));
writeln('"');
WRITELN('Award Password Looker ver 1.0          Made by Sb. 1997.9.22');
              end.

--
※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: bbs.hhu.edu.cn]
--
※ 转载:.深大荔园晨风站 bbs.szu.edu.cn.[FROM: 202.192.140.221]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店