超级函数表达式运算器v20 算法注册机+VB源码

allcam

写VB算法注册机必备软件
超级函数表达式运算器v20 算法注册机.rar (183.07 KB, 下载次数: 26)

2007-12-26 19:49 上传

点击文件名下载附件
阅读权限: 10

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 编辑 ]

blitz

强烈支持了!

主要是看注册机源码,呵呵..

kiss-you

生成注册码无效，暂时关闭。

kiss-you

请修正后PM我打开主题，谢谢合作。