VB.NET做的一個行業(yè)小軟件，請問如何加密，比如需要通過什么硬件的序列號注冊；

最好的加密就是通過你的網(wǎng)站去加密！用網(wǎng)絡服務器驗證把一些主要程序都可以加載到服務器上！這樣你的程序加密就完美了！　（個人觀點純屬不懂裝懂的。哈哈見笑）

成都創(chuàng)新互聯(lián)是一家業(yè)務范圍包括IDC托管業(yè)務,網(wǎng)頁空間、主機租用、主機托管，四川、重慶、廣東電信服務器租用,服務器托管機柜，成都網(wǎng)通服務器托管,成都服務器租用,業(yè)務范圍遍及中國大陸、港澳臺以及歐美等多個國家及地區(qū)的互聯(lián)網(wǎng)數(shù)據(jù)服務公司。

vb獲取硬件信息的代碼

tmpstr=""

set fso=createObject("scripting.filesystemObject")

Set dc = fso.Drives

for each d in dc

If d.isReady Then

tmpstr=tmpstr "磁盤" d.DriveLetter ":" vbcrlf _

"可用空間：" (d.AvailableSpace/1024/1024/1024) " GB" vbcrlf _

"空余空間：" (d.FreeSpace/1024/1024/1024) " GB" ?vbcrlf _

"總空間大小：" (d.TotalSize/1024/1024/1024) " GB" ?vbcrlf _

"文件系統(tǒng)：" d.FileSystem vbcrlf _

"驅動器類型：" d.DriveType vbcrlf _

"是否就緒：" d.IsReady vbcrlf _

"路徑：" d.Path vbcrlf _

"根目錄：" d.RootFolder vbcrlf _

"序列號：" d.SerialNumber vbcrlf _

"共享名：" d.ShareName vbcrlf _

"卷名：" d.VolumeName vbcrlf vbcrlf

End If

Next

msgbox tmpstr

win7下vb.net 如何獲取硬盤序列號

Private Function 硬盤序列號() As String

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))

Catch

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))

Catch

硬盤序列號 = ""

End Try

End Try

End Function

試下，如果返回為空，則表示失敗。

在本機win8win8.1有效，不過好像在有些機器上沒用。

VB.net 中如何實現(xiàn)序列號注冊功能

思路是:

讀取電腦硬件的信息,用隨機數(shù)加工這些信息后在注冊表中做個記錄,用這個記錄生成注冊碼送回給你,你按特定的方法生成序列號,你的小程序收到序列號后還原成數(shù)據(jù),數(shù)據(jù)比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時,先比對硬件信息-第一注冊信息-第二注冊信息,看這三者是否統(tǒng)一,不統(tǒng)一的就是使用期軟件.

也可以省了第一注冊信息,直接發(fā)硬件信息給你生成序列號,其他的相同.