Client Information and Convert to MD5
Imports System Imports System.Management Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private Function CpuId() As String Dim computer As String = "." Dim wmi As Object = GetObject("WinMgmts:") Dim processors As Object = wmi.InstancesOf("Win32_Processor") Dim cpu_ids As String = "" For Each cpu As Object In processors cpu_ids = cpu_ids & ", " & cpu.ProcessorId Next cpu If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2) Return cpu_ids End Function Private Function SystemSerialNumber() As String ' Get the Windows Management Instrumentation object. Dim wmi As Object = GetObject("WinMgmts:") ' Get the "base boards" (mother boards). Dim serial_numbers As String = "" Dim mother_boards As Object = wmi.Insta