好像算法有问题吧

附加数据是Crc32,爆破后修改最后4个字节即可手工

最初由 baby2008 发布
附加数据是Crc32,爆破后修改最后4个字节即可手工

工具
SmartCheck+Olldbg
注册机(VB.NET)
Public Function getSerialNo(ByVal UserNasme As String, ByVal MationNo As String, ByVal Email As String) as String
        Try
            Dim value As String
            Dim Str1 As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
            Dim Str2 As String = "wwww.mybetwin.com(welcometoyou!)www.mybetwin.c"
            Dim Str3 As String = ""
            Dim Str4 As String = ""
            Dim i As Integer
            For i = 0 To UserNasme.Length - 1
                Str3 += Str2.Substring(Str1.IndexOf(UserNasme.Substring(i, 1)) + 1, 1)
            Next
            Str4 = Str3
            Str3 = ""
            For i = 0 To Email.Length - 1
                Dim tmp As Integer = Asc(MationNo.Substring(i, 1)) + Asc(Email.Substring(i, 1)) - 90
                Str3 += Chr(tmp)
            Next
            Str4 += "-" + (Microsoft.VisualBasic.Left(Str3, 3) + Microsoft.VisualBasic.Right(Str3, 3)).ToString().Trim()
            Str3 = ""
            For i = 0 To Str4.Length - 1
                Dim tmp As Integer = Asc(Email.Substring(2, 1)) Xor Asc(Str4.Substring(i, 1))
                Str3 += Chr(tmp)
            Next
            Str4 += Str3.Substring(1, 3).Trim()
            Str3 = ""
            For i = 0 To Str4.Length - 1
                Dim tmp As Integer
                tmp = Asc(Str4.Substring(Str4.Length - 1 - i, 1)) + 5
                Str3 += Chr(tmp)
            Next
            value = Str3
            return value
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

总结
一般的字符串操作

dddddddddddddd

VB的
~~~~学习了

最初由 rufus 发布
注册机(VB.NET)
........

VB.NET,不错！

在VB反汇编出来的代码里,经常会看到
MOV XXXXXX,8002
特别是在一些函数调用之前.也不像是一般的常数赋值.
请教8002代表什么?

为什么点确定没有反应啊

太难了，加紧学习。

crackme4-lx.Cracked.zip

程度有限!! 只能爆破

努力学习！！！！！