李沉舟 发表于 2018-7-24 12:54

某VB写的小程序追码

https://www.52hb.com/thread-39005-1-1.html

没什么多说的，很简单的一个程序。

注册算法：


简单来说把机器码每一位取出来，转化为ASCII码，加上位数，加上21，再转为文本，每一位累积，即注册码。

arg_C是传入的机器码，如果伪码看不习惯，我用VB6重写一遍。

Function GetRegCode(ByRef szUser As String) As String
    Dim i As Long
    Dim szCode As String
    For i = 1 To Len(szUser)
      szCode = szCode + CStr(Asc(Mid(szUser, i, 1)) + i + 21)
    Next i
    GetRegCode = szCode
End Function

写了个KeyGen。





还有Timer里面有一个校验，属于时间校验。



首先，取出当前系统的年月日，再转为real8格式，和处的固定日期作比较，必须为同一天方可打开，否则就End。



日期是2018年3月24日。把电脑本地日期修改，或者在这里改个跳转即可。

以上。

lztxdy 发表于 2018-7-24 17:04

感恩！简单却充满爱！感谢您的作品！

haoyuan 发表于 2018-7-24 17:19

老哥非常感谢啊

老山 发表于 2018-7-24 17:22

前来学习的，不错的教程，谢谢。

syzh802618 发表于 2018-7-24 21:22

膜拜大神
感谢楼主分享

拿着雪糕 发表于 2022-2-12 15:45

学习大佬经验

军工强国 发表于 2022-2-16 13:07

积极评分，从我做起。感谢分享！

别管我了行 发表于 2022-5-3 06:12

曾经沧海 发表于 2023-1-17 20:51

看起来有点复杂，收藏先，有空研究一下

一生逍遥 发表于 2023-2-1 09:20

感谢，正好有需要，非常感谢~
页: [1]
查看完整版本: 某VB写的小程序追码