Как я могу сделать проверку HWID перед загрузкой формы

Question

Прежде всего хочу пояснить, что я не являюсь «PRO» на визуальном основании, ни C#. Но у меня был этот вопрос несколько дней в моей голове.

«Возможно ли проверить HWID перед загрузкой формы? И как это работает?»

Поскольку я создаю программное обеспечение для местного тренажерного зала, я хотел бы реализовать некоторую безопасность, а не только базовую «форму входа». Итак, это подводит меня к этому вопросу ... Как я могу создать простой способ получить HWID из ЦП и проверить из простого текста (возможно, с помощью хеширования md5), если в этом списке такое же значение? Я искал объяснения, как это сделать и как реализовать его как на VB.NET, так и на C#.

Private Sub frmprincipal_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim janela As New frmLogin 
    janela.MdiParent = Me 
    janela.Show() 
    Label4.Text = "Faça login!" 
    tmrRelogio.Enabled = True 
    bttLogout.Enabled = False 
    bttLogout.Visible = False 
    Dim hwid As String = String.Empty 
    Dim mc As New ManagementClass("win32_processor") 
    Dim moc As ManagementObjectCollection = mc.GetInstances() 
    For Each mo As ManagementObject In moc 
     If hwid = "" Then 
      hwid = mo.Properties("processorID").Value.ToString() 
      Exit For 
     End If 
    Next 
    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/zewro4zubg9qc1s/HWID.txt") 
    Dim response As System.Net.HttpWebResponse = request.GetResponse() 
    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) 
    Dim hwidcheck As String = sr.ReadToEnd 
    If hwidcheck.Contains(hwid) Then 
     MsgBox("This is the original copy!", "INFORTGEI", MessageBoxButtons.OK) 
     If DialogResult.OK = True Then 
      Close() 
     End If 
    Else 
     MsgBox("Contact the admin to activate the copy!", MessageBoxButtons.OK, "INFORTGEI") 
    End If 
End Sub 

Все советы?

Заранее спасибо.

Answer 1

Я нашел способ решить мою проблему. Вот код, который я сделал:

Dim hwid As String = String.Empty 
    Dim mc As New ManagementClass("win32_processor") 
    Dim moc As ManagementObjectCollection = mc.GetInstances() 
    For Each mo As ManagementObject In moc 
     If hwid = "" Then 
      hwid = mo.Properties("processorID").Value.ToString() 
      Exit For 
     End If 
    Next 
    Dim hash As List(Of String) = New List(Of String)(System.IO.File.ReadAllLines("..\HWID.txt")) 

    If Not hash.Contains(hwid) Then 
     MsgBox("Contact administrator to activate the hardware on the database.", MessageBoxButtons.OK, "INFORTGEI") 
     If DialogResult.OK = True Then 
      Close() 
     End If 
    Else 
     MsgBox("Activated sucessfully!", MessageBoxButtons.OK, "INFORTGEI") 
    End If