[VB.NET] Non-Pub Programm mit HD ID schützen

[Slawa]

Hallo, ich habe ein Programm gecodet, dieses möchte ich jetzt mit der Hardware ID schützen, also dass jeder User bzw. nicht alle das Programm benutzen können, gibts da en Souce oder wie funktioniert das? :)

P.S. Werde das Programm mal später hochladen, habe eine Public Version davon.

Gruß :)

Slawa

Danke :p

[100]

Hey such dir doch selber aus was du willst.. du kannst nehmen was immer du willst.. du könntest auch die Anzahl der Zeichen vom Benutzernamen auslesen und mal 4 rechnen ;)

Schau dir das mal an http://www.codeproject.com/KB/system/GetHardwareInformation.aspx

Kannst auch den Computernamen dazunehmen.. wie gesagt kannst aus fast allem nen Key machen.. andere Frage ist dann sicherlich wie cracksicher das ist ;)
Wenn du nichts in die Richtung machst kann jeder Horst das umgehen.

[krusty]

das mit dem user-/Computernamen ist eine variante, ist asber nicht so gut, wenn dein kunde mal seinen rechner neu formatiert.
Ein mal google wirkt wunder:

Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each wmi_HD As ManagementObject In searcher.Get()
ListBox1.Items.Add((wmi_HD("SerialNumber")).ToString())
NextHier ist dogar eine ganze klasse:

Imports System
Imports System.Management

Public Class clsComputerInfo

Friend 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

End Class

Mfg Krusty

[Digifree]

Super sowas hat mich immer schon Interressiert

[c2x]

Hallo, ich habe ein Programm gecodet, dieses möchte ich jetzt mit der Hardware ID schützen, also dass jeder User bzw. nicht alle das Programm benutzen können, gibts da en Souce oder wie funktioniert das?

http://free-hack.com/showthread.php?t=32761 Bitteschön ;)

[juRiii]

mich interessiert jetzt was für ein tool das sein soll? muss ja was ganz besonderes sein wenn du es mit nem key versehen willst

[c2x]

Ich würde einfach mal auf Geld verdienen tippen ;)