VB.NET Tutorials:
Ich zeige heute mal wie man ganz einfach eine HWID Protection machen kann.
Nachdem ihr diese ganzen Methoden implementiert habt könnt ihr jetzt die Methode folgendermaßen aufrufen.
Wir ihr ne komplette Protection schreibt müsst ihr selber rausfinden. Kommt evtl. im WebAPI Tutorial.
Ich zeige heute mal wie man ganz einfach eine HWID Protection machen kann.
Code:
Dim cpu As String = GetProcessorId()
Dim hdd As String = GetVolumeSerial("C")
Dim mb As String = GetMotherBoardID()
Dim mac As String = GetMACAddress()
Public Shared Function GetProcessorId() As String
Dim strProcessorId As String = String.Empty
Dim query As New SelectQuery("Win32_processor")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strProcessorId = info("processorId").ToString()
Next
Return strProcessorId
End Function
Friend Function GetMACAddress() As String
Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MACAddress As String = String.Empty
For Each mo As ManagementObject In moc
If (MACAddress.Equals(String.Empty)) Then
If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
mo.Dispose()
End If
MACAddress = MACAddress.Replace(":", String.Empty)
Next
Return MACAddress
End Function
Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
disk.Get()
Return disk("VolumeSerialNumber").ToString()
End Function
Friend Function GetMotherBoardID() As String
Dim strMotherBoardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherBoardID = info("SerialNumber").ToString()
Next
Return strMotherBoardID
End Function
Public Shared Function GetHWID(ByVal cpu, hdd, mb, mac) As String
Return Strings.UCase(cpu & "-" & hdd & "-" & mb & "-" & mac)
End FunctionNachdem ihr diese ganzen Methoden implementiert habt könnt ihr jetzt die Methode folgendermaßen aufrufen.
Code:
GetHWID(cpu, mb, hdd, mac)Wir ihr ne komplette Protection schreibt müsst ihr selber rausfinden. Kommt evtl. im WebAPI Tutorial.
