您所在位置：主题：上线的朋友过来帮我看下这个程序好吗！~！~！~
louie2301
[专家分：230] 发布于 2005-11-12 18:03:00
这是我从网上下的一个程序：
说是可以进行破解BIOS密码的有那位朋友能看懂这段代码，帮加些注释好吗，小弟编程菜一只
COLOR 10,5
DIM A(9)
CLS
PRINT SPACE$(980);TAB(22);“THE PASSWORD FOR ZHE BIOS IS:”;
OUT&H70,28
P=INP(&H71)
OUT&H70,29
Q=INP(&H71)
X=16^2*Q+P
COLOR 30,5
I=0:J=0:N=0
Y=X+I*65535
Z=INT(3*Y/(4^(N+1)-1))
IF Z<=126 THEN 190
N=N+1
IF N<8 THEN 140
I=I+1:J=0:N=0:X=16^2*Q+P:GOTO 130
IF Z<32 THEN 180
A(J)=Z:J=J+1:A=Y-Z*4^N
IF A=0 THEN 230
N=N-1:Y=A:GOTO 140
FOR K=0 TO J
PRINT CHR$(A(K));
NEXT
COLOR 10,5
END
说是可以进行破解BIOS密码的有那位朋友能看懂这段代码，帮加些注释好吗，小弟编程菜一只
COLOR 10,5
DIM A(9)
CLS
PRINT SPACE$(980);TAB(22);“THE PASSWORD FOR ZHE BIOS IS:”;
OUT&H70,28
P=INP(&H71)
OUT&H70,29
Q=INP(&H71)
X=16^2*Q+P
COLOR 30,5
I=0:J=0:N=0
Y=X+I*65535
Z=INT(3*Y/(4^(N+1)-1))
IF Z<=126 THEN 190
N=N+1
IF N<8 THEN 140
I=I+1:J=0:N=0:X=16^2*Q+P:GOTO 130
IF Z<32 THEN 180
A(J)=Z:J=J+1:A=Y-Z*4^N
IF A=0 THEN 230
N=N-1:Y=A:GOTO 140
FOR K=0 TO J
PRINT CHR$(A(K));
NEXT
COLOR 10,5
END
