VB6.0 CrackMe

CrackMe.rar (7.53 KB, 下载次数: 556)

2015-6-13 11:18 上传

点击文件名下载附件

CrackMe-源码.rar (4.12 KB, 下载次数: 521)

2015-6-13 14:30 上传

点击文件名下载附件

老规矩，追码或爆破都可以
这次使用VB6编写（天然屏障一道）
核心算法(注册码判断)

Private Sub Picture1_Click()
    '我也知道这段代码写的很难,But当初VB数组没学好啊....
    Dim code() As Byte
    Dim uecode=1() As Byte
    Dim i As Integer
    uecode=1() = Text2.Text '用户注册码
    code() = Text1.Text 'UNICODE字符流可以直接转,相当于易语言的字节集比较,真注册码,就是机器码
    '这段代码其实是将注册码转为byte数组然后一位一位比较
    '所以下strcat或strcmp之类的断点是无用功的
    '其实这里一步在OD里面可以看出 TextBox1中的内容,细心的人就会记录下来,然后注册码就出来了
    If getlen(code) <> getlen(uecode=1) Then '如果byte位数不等可直接判断为错误注册码
        frm_false.Show '载入假窗口
        Beep '鸣叫喇叭
        Exit Sub
    End If
    For i = 0 To getlen(uecode=1) '这里开始一位一位循环比较
    If i = 0 Then '如果i=0
        If code(i) <> uecode=1(i) Then '这里加个IF虽然有点多余，然而FOR EACH语句耗时最长，且变体变量用多了后果你懂的.
            frm_false.Show
            Beep
            Exit Sub '跳出子程序,不执行真窗口载入
        End If
    ElseIf i > 0 Then
        If code(i - 1) <> uecode=1(i - 1) Then '如果一位不相等
        frm_false.Show '载入假窗口
        Beep
        Exit Sub '跳出子程序,不执行真窗口载入
        End If
    End If
    Next i
    frm_true.Show '载入真窗口
    Beep
    '----------------------------------------
End Sub

Function getlen(ByRef ary() As Byte) As Long '取数组元素个数
    Dim lenth As Long
    lenth = UBound(ary) - LBound(ary) + 1
    getlen = lenth
End Function

其实注册码就是机器码
我说起码回复一个，让我加个HB吧

听说回帖有HB

00403943      3BC0          cmp eax,eax

004039FE      8A1C30        mov bl,byte ptr ds:[eax+esi]

00403A94      8A1C30        mov bl,byte ptr ds:[eax+esi]

楼主这个有点坑啊，俺就灵机一动，直接把上面的机器码复制下来粘了下，竟然成了

tony2526 发表于 2015-6-13 14:13
楼主这个有点坑啊，俺就灵机一动，直接把上面的机器码复制下来粘了下，竟然成了

我已经发了

刚看到了，刚刷新了就发现了

利用VB Decompiler 来找关键
OD来调试  
段首下段，往下跟出假码，继续跟应该就是机器码了，误导我。。。。。
在往下就是爆破点

这么多人玩了那我就来回复一下骗个hb好了