首页
社区
课程
招聘
[求助]关于注册一个算法,求理解
发表于: 2017-9-3 21:41 4086

[求助]关于注册一个算法,求理解

2017-9-3 21:41
4086
一个VB.NET写的ERP小软件,已付费买了正版,但每次电脑换硬件都要提交机器码重新申请一个注册码,走程序麻烦不说,主要是时间经常上被拖,严重影响生产。于是每次都用OD在内存中直接找出注册码,最近兴起逆向找出原码,想写个注册机一劳永逸,可惜本人小白,看不懂了。只知道 productName 是四位固定纯字母, hardwareID是8位纯数字机器码, generateKey验证所产生的注册码,由数字和大写字母组成,格式为AA11-BB22-AAA1-BBB2的16位四组码,请高手帮忙具体解释一下这个算法,以帮助我写出注册机,谢谢

Private Function computeMD5Hash(ByVal sData As String, ByVal sChars As String, ByVal iLength As Integer) As String
        Dim bytes As Byte()
        Dim buffer2 As Byte()
        Dim provider As New MD5CryptoServiceProvider
        Dim str2 As String = String.Empty
        Try 
            bytes = Encoding.ASCII.GetBytes(sData)
            buffer2 = provider.ComputeHash(bytes)
            Dim num3 As Integer = (iLength - 1)
            Dim i As Integer = 0
            Do While (i <= num3)
                Dim num As Integer = (buffer2(i) Mod sChars.Length)
                str2 = (str2 & Strings.Mid(sChars, (num + 1), 1))
                i += 1
            Loop
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            Dim str As String = String.Empty
            ProjectData.ClearProjectError
            Return str
        Finally
            bytes = Nothing
            buffer2 = Nothing
            provider = Nothing
        End Try
        Return str2
    End Function

    Private Function generateKey(ByVal productName As String, ByVal hardwareID As String) As String
        Dim str3 As String
        Dim str2 As String = Me.computeMD5Hash((productName & hardwareID), "0123456789ABCDEFGHJKLMNPQRTUVWXY", &H10)
        Dim num As Integer = 1
        Do
            str3 = (str3 & Strings.Mid(str2, num, 4) & "-")
            num = (num + 4)
        Loop While (num <= &H10)
        Return str3.Substring(0, (str3.Length - 1))
    End Function

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (6)
雪    币: 3416
活跃值: (3543)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
上个软件吧,容易  分析  些。
2017-9-3 22:14
0
雪    币: 1250
活跃值: (3560)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
直接内存注册机啊
2017-9-4 07:21
0
雪    币: 669
活跃值: (14)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
热咖啡 上个软件吧,容易 分析 些。
不是不上,此软件还是有点涉及到版权问题,不想惹是非
2017-9-4 22:30
0
雪    币: 669
活跃值: (14)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
考拉 直接内存注册机啊
能否提供类似的内存注册机教程?
2017-9-4 22:30
0
雪    币: 1250
活跃值: (3560)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6






qqrate



能否提供类似的内存注册机教程?

keymaker
2017-9-5 07:32
0
雪    币: 23
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
内存注册机即可,找到在内存中的位置,换机子的时候直接输入假码,就能拿到真真码了,教程网上多的是
2017-9-11 21:24
0
游客
登录 | 注册 方可回帖
返回
//