首先,进入 GVBASIC 新建一个 BAS 文件。 <BR>输入以下代码: <BR>10 GRAPH <BR>60 D=PEEK(2828) <BR>70 FOR I=1 TO 7 <BR>80 A =PEEK(2815+I):GOSUB 330(I)=B:Z=Z+B <BR>100 NEXT I <BR>140 A =Z=3:GOSUB 330 <BR>160 FOR I=1 TO 3 <BR>170 A =I+1=I+4:Z=I:GOSUB 290 <BR>175 A =I:Z=I+3:GOSUB 290 <BR>190 NEXT I <BR>240 A =1=4:Z=7:GOSUB 290 <BR>280 CLEAR:END <BR>290 M =B-P(A)-P(D):M=M-(M>=256)*256OCATE 3,ZRINT CHR$(M+(M=31)*11+(M=32)*63); <BR>300 RETURN <BR>330 A =A+256:B=A/D:C=INT(B)*D <BR>340 IF C<>A GOTO 330 <BR>350 RETURN <BR><BR>完整代码: <BR>10 GRAPH <BR>20 PRINT " 【密码查看工具】 ", <BR>30 PRINT "