主题：[求助]获取机器码生成一串数字的方法是如何实现的？

老师们，早上好！

请教：获取机器码生成一串数字的方法是如何实现的？

不一定要数字,直接加密成编码也行 http://www.foxtable.com/help/topics/1545.htm

 经过一定的运算。

 

 比如，你获取 cup 和 硬盘 信息后，加密一下，就能得到一串字符

老师，想学习，也是想转换成 阿拉伯数字

就像Foxtable 获取的机器码那样。

 参考思路。

 

http://www.cnblogs.com/Jan_Dai/archive/2010/12/06/1897472.html

 

膜拜两位老师！去测试了，感谢！

学习了，但没找到 转换回来的 方法！

 

For Each s As ** In str
   st =  convert.**(str)
Next
msgbox("还原后:" & st)

这个是做匹配的,你转换回来干嘛?

参考：

Dim str As String =ComputerId
Dim Asc As New  ASCIIEncoding
Dim AscArr() As Byte  = Asc.GetBytes(str)
Dim Arys As  String
For i As Integer = 0 To AscArr.Length  -  1        
  Arys= Arys &  AscArr(i)
Next

 

 

e.Form.Controls("机器码").Value = (Arys.SubString(0,4))
e.Form.Controls("机器码1").Value = (Arys.SubString(4,4))
e.Form.Controls("机器码2").Value = (Arys.SubString(8,4))
e.Form.Controls("机器码3").Value = (Arys.SubString(12,4))
e.Form.Controls("机器码4").Value = (Arys.SubString(16,4))
e.Form.Controls("机器码5").Value = (Arys.SubString(20,4))

 

 

此主题相关图片如下：1.jpg

 

或

 

If HardWareInfo.Ready = False '如果没有初始化
    HardWareInfo.Initialize '初始化HardWareInfo,提取硬件信息
End If
Dim Val1 As String
Dim Val2 As String
Dim Val3 As String
Dim Val4 As String
With HardWareInfo.CPU
    val1= .ProcessorId
End With

With HardWareInfo.BaseBoard
    val2= .SerialNumber
End With

With HardWareInfo.Disk
   
    val3= .Signature
End With

With HardWareInfo.Bios
   
    val4= .SerialNumber
End With

Dim Val5 As String = EncryptText(Val1 &  Val2  & Val3 & Val4,"a23","op#")

Dim str As String = Val5  'ComputerId
Dim Asc As New  ASCIIEncoding
Dim AscArr() As Byte  = Asc.GetBytes(str)
Dim Arys As  String
For i As Integer = 0 To AscArr.Length  -  1        
  Arys= Arys &  AscArr(i)
Next

e.Form.Controls("机器码".Value = Arys   & "*" &   len(Arys)

 

抽取其中的数字组成机器码

 

 

最好再加入一个算法(公式),机器码用公式算出注册码，