VB ReVerseMe #1 by WildCatIII

野猫III

So simple,hope you enjoy!

caterpilla

强烈支持。。。。。。。。

绝恋风尘

支持!!!!

绝恋风尘

算法简单.
一组可用的注册码:          用户名:绝恋风尘   
                                   注册码:Simple   15

绝恋风尘

004050DB   .  50            PUSH EAX
004050DC   .  8995 5CFFFFFF MOV DWORD PTR SS:[EBP-A4],EDX
004050E2   .  FFD7          CALL EDI
004050E4   .  8B8D 5CFFFFFF MOV ECX,DWORD PTR SS:[EBP-A4]
004050EA   .  8B3D 08104000 MOV EDI,DWORD PTR DS:[<&MSVBVM60.__vbaVarMove>]   ;  MSVBVM60.__vbaVarMove
004050F0   .  03C8          ADD ECX,EAX                                       ;  用户名与注册名长度相加为记为SN1
004050F2   .  8D95 7CFFFFFF LEA EDX,DWORD PTR SS:[EBP-84]
004050F8   .  0F80 DE010000 JO VB_ReVer.004052DC
004050FE   .  894D 84       MOV DWORD PTR SS:[EBP-7C],ECX
00405101   .  8D4D DC       LEA ECX,DWORD PTR SS:[EBP-24]
00405104   .  C785 7CFFFFFF>MOV DWORD PTR SS:[EBP-84],3
0040510E   .  FFD7          CALL EDI                                          ;  <&MSVBVM60.__vbaVarMove>
00405110   .  8D55 C4       LEA EDX,DWORD PTR SS:[EBP-3C]
00405113   .  8D45 C8       LEA EAX,DWORD PTR SS:[EBP-38]
00405116   .  52            PUSH EDX
00405117   .  50            PUSH EAX
00405118   .  6A 02         PUSH 2
0040511A   .  FF15 84104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStrList>]  ;  MSVBVM60.__vbaFreeStrList
00405120   .  8D4D BC       LEA ECX,DWORD PTR SS:[EBP-44]
00405123   .  8D55 C0       LEA EDX,DWORD PTR SS:[EBP-40]
00405126   .  51            PUSH ECX
00405127   .  52            PUSH EDX
00405128   .  6A 02         PUSH 2
0040512A   .  FF15 1C104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObjList>]  ;  MSVBVM60.__vbaFreeObjList
00405130   .  83C4 18       ADD ESP,18
00405133   .  8D45 AC       LEA EAX,DWORD PTR SS:[EBP-54]
00405136   .  C745 84 C4474>MOV DWORD PTR SS:[EBP-7C],VB_ReVer.004047C4       ;  UNICODE "Simple"
0040513D   .  C785 7CFFFFFF>MOV DWORD PTR SS:[EBP-84],8
00405147   .  6A 03         PUSH 3
00405149   .  50            PUSH EAX
0040514A   .  FF15 44104000 CALL DWORD PTR DS:[<&MSVBVM60.#526>]              ;  MSVBVM60.rtcSpaceVar
00405150   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
00405156   .  8D55 AC       LEA EDX,DWORD PTR SS:[EBP-54]
00405159   .  51            PUSH ECX
0040515A   .  8D45 9C       LEA EAX,DWORD PTR SS:[EBP-64]
0040515D   .  52            PUSH EDX
0040515E   .  50            PUSH EAX
0040515F   .  FF15 94104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarAdd>]       ;  MSVBVM60.__vbaVarAdd
00405165   .  8D4D DC       LEA ECX,DWORD PTR SS:[EBP-24]                     ;  Simple与三个空格相加记为SN2
00405168   .  50            PUSH EAX
00405169   .  8D55 8C       LEA EDX,DWORD PTR SS:[EBP-74]
0040516C   .  51            PUSH ECX
0040516D   .  52            PUSH EDX
0040516E   .  FF15 70104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]       ;  MSVBVM60.__vbaVarCat
00405174   .  8BD0          MOV EDX,EAX                                       ;  SN2与SN1连起来为SN3
00405176   .  8D4D CC       LEA ECX,DWORD PTR SS:[EBP-34]
00405179   .  FFD7          CALL EDI
0040517B   .  8D45 9C       LEA EAX,DWORD PTR SS:[EBP-64]
0040517E   .  8D4D AC       LEA ECX,DWORD PTR SS:[EBP-54]
00405181   .  50            PUSH EAX
00405182   .  51            PUSH ECX
00405183   .  6A 02         PUSH 2
00405185   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]  ;  MSVBVM60.__vbaFreeVarList
0040518B   .  8B16          MOV EDX,DWORD PTR DS:[ESI]
0040518D   .  83C4 0C       ADD ESP,0C
00405190   .  56            PUSH ESI
00405191   .  FF92 04030000 CALL DWORD PTR DS:[EDX+304]
00405197   .  50            PUSH EAX
00405198   .  8D45 C0       LEA EAX,DWORD PTR SS:[EBP-40]
0040519B   .  50            PUSH EAX
0040519C   .  FFD3          CALL EBX
0040519E   .  8BF8          MOV EDI,EAX
004051A0   .  8D55 C8       LEA EDX,DWORD PTR SS:[EBP-38]
004051A3   .  52            PUSH EDX
004051A4   .  57            PUSH EDI
004051A5   .  8B0F          MOV ECX,DWORD PTR DS:[EDI]
004051A7   .  FF91 A0000000 CALL DWORD PTR DS:[ECX+A0]
004051AD   .  85C0          TEST EAX,EAX
004051AF   .  DBE2          FCLEX
004051B1   .  7D 12         JGE SHORT VB_ReVer.004051C5
004051B3   .  68 A0000000   PUSH 0A0
004051B8   .  68 B0474000   PUSH VB_ReVer.004047B0
004051BD   .  57            PUSH EDI
004051BE   .  50            PUSH EAX
004051BF   .  FF15 24104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckOb>;  MSVBVM60.__vbaHresultCheckObj
004051C5   >  8B45 C8       MOV EAX,DWORD PTR SS:[EBP-38]
004051C8   .  8D4D CC       LEA ECX,DWORD PTR SS:[EBP-34]
004051CB   .  8945 B4       MOV DWORD PTR SS:[EBP-4C],EAX
004051CE   .  8D45 AC       LEA EAX,DWORD PTR SS:[EBP-54]
004051D1   .  50            PUSH EAX
004051D2   .  51            PUSH ECX
004051D3   .  C745 C8 00000>MOV DWORD PTR SS:[EBP-38],0
004051DA   .  C745 AC 08800>MOV DWORD PTR SS:[EBP-54],8008
004051E1   .  FF15 4C104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarTstEq>]     ;  MSVBVM60.__vbaVarTstEq
004051E7   .  8D4D C0       LEA ECX,DWORD PTR SS:[EBP-40]                     ;  SN3与假码比较是否相等，其实SN3就是真码。
004051EA   .  8BF8          MOV EDI,EAX
004051EC   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]      ;  MSVBVM60.__vbaFreeObj
004051F2   .  8D4D AC       LEA ECX,DWORD PTR SS:[EBP-54]
004051F5   .  FF15 0C104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVar>]      ;  MSVBVM60.__vbaFreeVar
004051FB   .  8B16          MOV EDX,DWORD PTR DS:[ESI]
004051FD   .  56            PUSH ESI
004051FE   .  66:85FF       TEST DI,DI
00405201   .  74 25         JE SHORT VB_ReVer.00405228
00405203   .  FF92 04030000 CALL DWORD PTR DS:[EDX+304]
00405209   .  50            PUSH EAX

[ 本帖最后由 绝恋风尘 于 2006-7-21 16:56 编辑 ]

野猫III

原帖由 绝恋风尘 于 2006-7-21 16:54 发表
004050DB   .  50            PUSH EAX
004050DC   .  8995 5CFFFFFF MOV DWORD PTR SS:,EDX
004050E2   .  FFD7          CALL EDI
004050E4   .  8B8D 5CFFFFFF MOV ECX,DWORD PTR SS:
004050EA   .  8B3D  ...

哈哈～～～兄弟完全正确！　:victory:　:victory:

Reverse　就比较简单，但咱想兄弟们做做它的KeyGen看下。

[ 本帖最后由 野猫III 于 2006-7-21 18:07 编辑 ]

绝恋风尘

VB源码
Private Sub Command1_Click()
Dim SN1 As Integer
Dim SN2 As Integer
Dim SN3 As String
  If Text1.Text <> "" Then
    SN1 = Len(Text1.Text)
    SN2 = 11 + SN1
    SN3 = "Simple   " & SN2
    Text2.Text = SN3
  Else
    Text1.Text = "请输入用户名！"
  End If
End Sub

[ 本帖最后由 绝恋风尘 于 2006-7-21 19:46 编辑 ]

lgjxj

啊，这么快就出了分析，没心情下了，建议下次出了 CakeMe 过几天才出破文

网游难民

偶下来看看~~~
破文出来了,正好可以做参考~~
有什么不好哦~~
偶喜欢

网游难民

goqq2008
Simple   19