[VB.NET] Gestione licenze per l'uso su una singola macchina

[pacixone]

Ho concluso la mia prima applicazione in vb.net e adesso volevo cimentarmi nella gestione delle licenze che intendo realizzare secondo la filosofia di utilizzo su singola macchina... leggendo un po' di qua e di la sul web sono arrivato alla conclusione che la migliore soluzione è di realizzare una stringa sulla macchina del cliente legato all'hardware (harddisk e processore) è generare un algoritmo di decrypt basato su questa stringa e le generalità del cliente. Partendo su questa teoria ho trovato questo script solo che non ho capito bene la differenza (o meglio come riconoscere) il seriale della partizione e il seriale dell'hd. In tutti i casi spero che qualcuno mi aiuti magari indicandomi qualche buon libro... Grazie mille alla prox

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("kernel32.dll")> _
        Friend Shared Function GetVolumeInformation(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Boolean
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim IntRes As Integer
        Dim StrVolumeName As String = Space(255)
        Dim StrFileSystemName As String = Space(255)
        Dim IntSerialNum As Integer
        IntRes = GetVolumeInformation("C:\", StrVolumeName, 255, IntSerialNum, 0, 0, StrFileSystemName, 255)
        MsgBox(IntSerialNum)
    End Sub
End Class

[pacixone]

Alla fine ho scritto questo codice che credo posso funzionare solo una domanda a questo punto... se ci sono 2 hard disk nel pc come faccio a prendere le informazioni dell'hd sul quale gira il programma? io penso che questi dati possano bastare per una prima parte di codice, poi realizzerò l'altra parte (la più difficile e delicata credo) l'algoritmo! fiducioso nel saggio consiglio che mi dai ciaouz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_BIOS")
Dim search2 As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim search3 As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim search4 As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
Dim info As ManagementObject
Dim txt As String
For Each info In search.Get()
txt = (info("SerialNumber").ToString()).Trim()
TextBox1.Text = "BIOS Serial Number: " & txt & ControlChars.NewLine
Next
'
'
'Informazioni sul processore
For Each info In search2.Get()
'
' Seriale del processore
txt = (info("ProcessorID").ToString()).Trim()
TextBox1.Text += "Processore ID: " & txt & ControlChars.NewLine
'
' Nome del processore
txt = info("Name").ToString()
Do
txt = txt.Replace(" ", " ")
Loop While (txt.IndexOf(" ") <> -1)
TextBox1.Text += "Nome processore: " & txt & ControlChars.NewLine
Next
For Each info In search3.Get()
If info("SerialNumber") Is Nothing Then
txt = "Non presente"
Else
txt = info("SerialNumber").ToString()
txt = txt.Trim
End If
TextBox1.Text += "Hard disk S/N: " & txt & ControlChars.NewLine
Next
For Each info In search4.Get()
'
' Fabbrica costruttrice PC
txt = (info("Manufacturer").ToString()).Trim()
TextBox1.Text += "Fabbrica costruttrice PC: " & txt & ControlChars.NewLine
'
' Modello PC
txt = info("Model").ToString()
Do
txt = txt.Replace(" ", " ")
Loop While (txt.IndexOf(" ") <> -1)
TextBox1.Text += "Modello PC: " & txt & ControlChars.NewLine
Next
End Sub