易码技术论坛

 找回密码
 加入易码
搜索
查看: 636318|回复: 9

[源码] [分享]TC1000 密码破译与清除

[复制链接]
发表于 2005-6-25 20:36:00 | 显示全部楼层
看不懂
 楼主| 发表于 2005-7-14 19:39:00 | 显示全部楼层
破密码前,必须先输错一次密码,才能正确显示密码!

代码部分出错,我无法修正。论坛编辑器,老是给我改掉。所以才无法使用。

[ 本帖最后由 JIPU_PHIL 于 2009-1-16 13:41 编辑 ]
发表于 2007-3-25 17:28:50 | 显示全部楼层
我用这个工具时,程序显示密码中有空位,但程序中说“密码明文: _ 代空格”
我输入密码时用空格代替空位,结果显示:密码错误
是不是这个程序还有缺陷?
发表于 2007-3-26 14:35:33 | 显示全部楼层
那么繁琐!我几行代码就搞定了!
发表于 2007-4-28 22:29:13 | 显示全部楼层
这个东西,应该是反汇编 调用密码中断 出来的吧.楼主好耐性好厉害啊,我以前也想找出WQX的加密方法,结果看了三天看得头昏眼花.看来能力还是不足啊.

请教一下,INT$03xx INT$040F 这些中断都是干什么用的?
发表于 2007-4-28 22:43:28 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-4-30 18:53:47 | 显示全部楼层
$0306就是清密码的中断,很简单
记得我还不会6502的时候看了这代码觉得很神秘,写代码的人真是太伟大了............
发表于 2007-4-30 22:26:45 | 显示全部楼层
INT$0306绝对不只是为了让人清掉密码而存在的.
还有INT$030F之类的一大堆 INT$03xx 中断,谁知道是干什么用的?
发表于 2007-4-30 22:34:41 | 显示全部楼层
反正都是执行03页的程序,自己反汇编一下就行了
 楼主| 发表于 2005-6-23 16:32:34 | 显示全部楼层 |阅读模式
  1. 1。密码破译。
  2. 首先,进入GVBASIC新建一个BAS文件。
  3. 输入以下代码:
  4. ------------------------------------------------------------------
  5. 10 GRAPH
  6. 60 D=PEEK(2828)
  7. 70 FOR I=1 TO 7
  8. 80 A=PEEK(2815+I):GOSUB 330(I)=B:Z=Z+B
  9. 100 NEXT I
  10. 140 A=Z=3:GOSUB 330
  11. 160 FOR I=1 TO 3
  12. 170 A=I+1=I+4:Z=I:GOSUB 290
  13. 175 A=I:Z=I+3:GOSUB 290
  14. 190 NEXT I
  15. 240 A=1=4:Z=7:GOSUB 290
  16. 280 CLEAR:END
  17. 290 M=B-P(A)-P(D):M=M-(M>=256)*256OCATE 3,ZRINT CHR$(M+(M=31)*11+(M=32)*63);
  18. 300 RETURN
  19. 330 A=A+256:B=A/D:C=INT(B)*D
  20. 340 IF C<>A GOTO 330
  21. 350 RETURN
  22. ------------------------------------------------------------------
  23. 完整代码:
  24. 10 GRAPH
  25. 20 PRINT " 【密码查看工具】",
  26. 30 PRINT "?趁苈朊魑模篲 代空格",
  27. 40 PRINT TAB (13);"* 代F4键","内","码";
  28. 50 REM 主程序,有参考成分
  29. 60 D=PEEK(2828):IF NOT D GOTO 320
  30. 70 FOR I=1 TO 7
  31. 80 A=PEEK(2815+I):GOSUB 330(I)=B:Z=Z+B
  32. 100 NEXT I
  33. 140 A=Z=3:GOSUB 330
  34. 160 FOR I=1 TO 3
  35. 170 A=I+1=I+4:Z=I:GOSUB 290
  36. 175 A=I:Z=I+3:GOSUB 290
  37. 190 NEXT I
  38. 240 A=1=4:Z=7:GOSUB 290
  39. 280 BOX 1,0,159,79,1,2:BOX 1,32,79,46,1,2:CLEAR:END
  40. 290 M=B-P(A)-P(D):M=M-(M>=256)*256:LOCATE 3,Z:PRINT CHR$(M+(M=31)*11+(M=32)*63);
  41. 295 A=Z=7OCATE 4+A,Z*3-A*18
  42. 300 PRINT "$";:A=INT(M/16):GOSUB 310:A=M-A*16:GOSUB 310:RETURN
  43. 310 Z=(A>9)*7+48+ARINT CHR$(Z);:RETURN
  44. 320 LOCATE 3,1RINT "你准备了吗?";:GOTO 280
  45. 330 A=A+256:B=A/D:C=INT(B)*D
  46. 340 IF C<>A GOTO 330
  47. 350 RETURN
  48. --------------------------------------------------------------------------------------
  49. 密码清除:
  50. ;********************************************
  51. .ORG $4000
  52. .DB $AA,$A5,$5A,$00,$10,$00,$20
  53. JMP MAIN
  54. .DB $E8,$03,$30,$03,$FF,$FF
  55. ;********************************************
  56. INT: .MACRO INT_1
  57. .DB 0
  58. .DW INT_1
  59. .ENDM
  60. ;********************************************
  61. _INKEY=$C006
  62. _CLEAR=$0306
  63. _INFO=$CA12
  64. ;********************************************
  65. ;MAIN
  66. MAIN: LDA #$02
  67. JSR INFO
  68. CMP #$79
  69. BEQ CLEAR
  70. RTS
  71. CLEAR: LDX #$33
  72. LDA #$00
  73. CLEAR1: STA $0AFF,X
  74. DEX
  75. BNE CLEAR1
  76. INT _CLEAR
  77. BCC WIN
  78. LOSE: LDX #<W3
  79. LDY #>W3
  80. STX D1+1
  81. STY D1+2
  82. LDA #$00
  83. JSR INFO
  84. INT _INKEY
  85. RTS
  86. WIN: LDX #<W2
  87. LDY #>W2
  88. STX D1+1
  89. STY D1+2
  90. LDA #$00
  91. JSR INFO
  92. INT _INKEY
  93. RTS
  94. INFO: LDX #<D1
  95. LDY #>D1
  96. INT _INFO
  97. RTS
  98. D1: .DB $80
  99. .DW W1
  100. .DB 23,16,12,2
  101. .DW D1+6
  102. W1: .DB " 清除密码?",0,0
  103. W2: .DB " 清除成功!",0,0
  104. W3: .DB " 清除失败!",0,0
复制代码

[ 本帖最后由 JIPU_PHIL 于 2009-1-16 13:39 编辑 ]
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-3-29 15:26 , Processed in 0.011208 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表