Archiv verlassen und diese Seite im Standarddesign anzeigen : [VB.NET] Non-Pub Programm mit HD ID schützen
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
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.
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
14.02.2010, 02:23
Super sowas hat mich immer schon Interressiert
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 ;)
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
Ich würde einfach mal auf Geld verdienen tippen ;)
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.