|
|
|
[原创]XX土方软件追码及注册机编写[邀请码已发放]
注册机是VB写的。 Private Sub Calcmd_Click() Dim Output As String '输出的注册码 Dim serial As String '序列号 Dim length As Integer '序列号长度=EBP Dim i As Integer '循环数 Dim Output_Length As Integer Dim CL As Integer '不同软件不同常量,CL Dim CL_Tmp As String 'CL取整、去头的过程变量 Dim OutCheck As String Dim Output_Once As String Output = "" '初始化注册码--->AL Dim DL As Integer '--->DL Dim NumStr As Integer Dim OutputNum As Integer '输出的AL的数字形态 Dim CL_check As String CL = Val(&H46) '--->CL初始值 serial = serialfrm.Text serial = LTrim(serial) serial = RTrim(serial) '去掉空格 length = Len(serial) If length = 0 Then regfrm.Text = "你耍我的吧?" goto finish End If For i = 1 To length DL = Asc(Mid(serial, i, 1)) '取字符的ascII码,DL OutputNum = DL Xor CL 'AL OutCheck = Hex(OutputNum) Output_Length = Len(OutCheck) '输出AL的ASCII '不但需要计算output多于两位,还要计算少于两位的情况 Select Case Output_Length Case Is > 2 Output_Once =Right(OutCheck, 2) Case 2 Output_Once = OutCheck Case 1 Output_Once = "0" & OutCheck Case 0 Output_Once = "00" End Select CL_check = Right(Hex(OutputNum * 64), 2) CL_Tmp = Hex(Val("&H" & CL_check) + OutputNum \ 16) '左移+右移 CL = Val("&H" & Right(CL_Tmp, 2)) '取后两位字符串变成十进制数字 regfrm.TextOutput = regfrm.Text & Output_Once Next finish: End Sub |
|
[必读]新人导航和报到贴(报到时勿另发帖)
刚来的,我来报个到! |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值