- 注册时间
- 2004-12-21
- 最后登录
- 1970-1-1
|
- 1。密码破译。
- 首先,进入GVBASIC新建一个BAS文件。
- 输入以下代码:
- ------------------------------------------------------------------
- 10 GRAPH
- 60 D=PEEK(2828)
- 70 FOR I=1 TO 7
- 80 A=PEEK(2815+I):GOSUB 330(I)=B:Z=Z+B
- 100 NEXT I
- 140 A=Z=3:GOSUB 330
- 160 FOR I=1 TO 3
- 170 A=I+1=I+4:Z=I:GOSUB 290
- 175 A=I:Z=I+3:GOSUB 290
- 190 NEXT I
- 240 A=1=4:Z=7:GOSUB 290
- 280 CLEAR:END
- 290 M=B-P(A)-P(D):M=M-(M>=256)*256OCATE 3,ZRINT CHR$(M+(M=31)*11+(M=32)*63);
- 300 RETURN
- 330 A=A+256:B=A/D:C=INT(B)*D
- 340 IF C<>A GOTO 330
- 350 RETURN
- ------------------------------------------------------------------
- 完整代码:
- 10 GRAPH
- 20 PRINT " 【密码查看工具】",
- 30 PRINT "?趁苈朊魑模篲 代空格",
- 40 PRINT TAB (13);"* 代F4键","内","码";
- 50 REM 主程序,有参考成分
- 60 D=PEEK(2828):IF NOT D GOTO 320
- 70 FOR I=1 TO 7
- 80 A=PEEK(2815+I):GOSUB 330(I)=B:Z=Z+B
- 100 NEXT I
- 140 A=Z=3:GOSUB 330
- 160 FOR I=1 TO 3
- 170 A=I+1=I+4:Z=I:GOSUB 290
- 175 A=I:Z=I+3:GOSUB 290
- 190 NEXT I
- 240 A=1=4:Z=7:GOSUB 290
- 280 BOX 1,0,159,79,1,2:BOX 1,32,79,46,1,2:CLEAR:END
- 290 M=B-P(A)-P(D):M=M-(M>=256)*256:LOCATE 3,Z:PRINT CHR$(M+(M=31)*11+(M=32)*63);
- 295 A=Z=7OCATE 4+A,Z*3-A*18
- 300 PRINT "$";:A=INT(M/16):GOSUB 310:A=M-A*16:GOSUB 310:RETURN
- 310 Z=(A>9)*7+48+ARINT CHR$(Z);:RETURN
- 320 LOCATE 3,1RINT "你准备了吗?";:GOTO 280
- 330 A=A+256:B=A/D:C=INT(B)*D
- 340 IF C<>A GOTO 330
- 350 RETURN
- --------------------------------------------------------------------------------------
- 密码清除:
- ;********************************************
- .ORG $4000
- .DB $AA,$A5,$5A,$00,$10,$00,$20
- JMP MAIN
- .DB $E8,$03,$30,$03,$FF,$FF
- ;********************************************
- INT: .MACRO INT_1
- .DB 0
- .DW INT_1
- .ENDM
- ;********************************************
- _INKEY=$C006
- _CLEAR=$0306
- _INFO=$CA12
- ;********************************************
- ;MAIN
- MAIN: LDA #$02
- JSR INFO
- CMP #$79
- BEQ CLEAR
- RTS
- CLEAR: LDX #$33
- LDA #$00
- CLEAR1: STA $0AFF,X
- DEX
- BNE CLEAR1
- INT _CLEAR
- BCC WIN
- LOSE: LDX #<W3
- LDY #>W3
- STX D1+1
- STY D1+2
- LDA #$00
- JSR INFO
- INT _INKEY
- RTS
- WIN: LDX #<W2
- LDY #>W2
- STX D1+1
- STY D1+2
- LDA #$00
- JSR INFO
- INT _INKEY
- RTS
- INFO: LDX #<D1
- LDY #>D1
- INT _INFO
- RTS
- D1: .DB $80
- .DW W1
- .DB 23,16,12,2
- .DW D1+6
- W1: .DB " 清除密码?",0,0
- W2: .DB " 清除成功!",0,0
- W3: .DB " 清除失败!",0,0
复制代码
[ 本帖最后由 JIPU_PHIL 于 2009-1-16 13:39 编辑 ] |
|