超级函数表达式运算器v20 算法注册机+VB源码
写VB算法注册机必备软件Private Sub Command1_Click()
Dim SnWord, SJqm, SJqm1, Sntemp, Sntemp1, Sntemp2, Sntemp3 As String
Dim i, j As Integer
Dim Dsn, SnLen1, JqmLen, JqmLenL, JqmLenR As Integer
Dim Sq, Sh, Stemp As String
If Text1 = "" Then
MsgBox "请输入机器码！", 16, "提示！"
Else
SJqm = Text1.Text
JqmLen = Len(SJqm) - 1
JqmLenL = InStr(1, SJqm, "_", vbBinaryCompare) - 1
JqmLenR = JqmLen - JqmLenL
SJqm = Mid(SJqm, 1, JqmLenL) + Mid(SJqm, JqmLenL + 2, JqmLenR)
Sq = Mid(SJqm, 1, 8)
Sh = Mid(SJqm, JqmLenL + 1, JqmLenR)
If Len(Sh) > 9 Then
Sh = Mid(SJqm, JqmLen - 7, 8)
End If
Stemp = CDbl(Sq) And CDbl(Sh)
SJqm1 = SJqm + Stemp
i = 0
For i = 1 To Len(SJqm1) - 5
If i <= 5 Then
SnWord = Mid(SJqm1, i * 2 - 1, 2)
Else
SnWord = Mid(SJqm1, 5 + i, 1)
End If
Dsn = Int(Val(SnWord) * 2.5 - 0.5 + 65 + 1)
Sntemp = Sntemp + Chr(Dsn)
Next i
SnLen1 = Len(Sntemp)
If SnLen1 / 2 <> Int(SnLen1 / 2) Then
i = 0
For i = 1 To SnLen1
If i / 2 <> Int(i / 2) Then
Sntemp1 = Sntemp1 + Mid(Sntemp, i, 1)
Else
Sntemp2 = Mid(Sntemp, i, 1) + Sntemp2
End If
Next i
Sntemp3 = Sntemp1 + Sntemp2
sntemp4 = Mid(Sntemp3, 1, Int(SnLen1 / 2) + 1) + "CJHBYS" + Mid(Sntemp3, Int(SnLen1 / 2) + 2 _
, SnLen1 - Int(SnLen1 / 2) - 1)
Else
i = 0
For i = 1 To SnLen1
If i / 2 = Int(i / 2) Then
Sntemp1 = Sntemp1 + Mid(Sntemp, i, 1)
Else
Sntemp2 = Mid(Sntemp, i, 1) + Sntemp2
End If
Next i
Sntemp3 = Sntemp1 + Sntemp2
sntemp4 = Mid(Sntemp3, 1, SnLen1 / 2) + "CJHBYS" + Mid(Sntemp3, SnLen1 / 2 + 1, SnLen1 / 2)
End If
Text2.Text = sntemp4
End If
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
给我你们的机器码我在测试以下谢谢支持!
[ 本帖最后由 allcam 于 2007-12-26 20:43 编辑 ] 强烈支持了!
主要是看注册机源码,呵呵.. 生成注册码无效，暂时关闭。 请修正后PM我打开主题，谢谢合作。
页:
[1]