Unveränderbare System-Konstante lesen und Lizenz-Schlüssel erstellen

VanDerLars · 10. Januar 2012, 21:09

Hallo Freunde,

ich möchte mir einen kleinen und feinen Lizenz-Checker bauen.

Der Lizenz-Schlüssel-Ersteller soll ei eigenes Programm sein. Der Lizenz-Schlüssel-Checker soll in einem meiner Programme integiert werden.
Der Lizenz-Schlüssel-Ersteller (LSE)

soll eine Datei in ein Verzeichnis erstellen, mein Programm (Lizenz-Schlüssel-Checker (LSC)) soll diese Datei prüfen.
Wenn die Datei nicht den Lizenz-Bestimmungen entspricht, öffnet sich das Programm nicht.

Bis dahin habe ich natürlich keine Probleme.

Mein Problem:
Wie erstelle ich einen COMPUTERABHÄNGIGEN Text? Ich habe daran gedacht einen System-irgendwas-inhalt auszulesen, den ein bissl zu verändern und diesen zu nutzen. Wichtig: er muss wirklich Computerabhängig sein und darf sich nach Erstellung nicht ändern, da ja mein LSC diesen zur Laufzeit jederzeit prüfen muss und mit dem vom LSE erstellten String vergleichen muss! Egal wie lang dieser Lizenz-code ist.

Kurz:
Kann mir einer eine ComputerKonstante nennen, und wie ich diese einfach auslesen kann?

Der Hintergrund:
Ich habe ein Ergänzungsprogramm zu einem Programm von einem anderen Entwickler geschrieben. Ich habe angst, dass der andere Entwickler mein Projekt klaut und in anderen Unternehmen einsetzt, ohne, dass ich davon etwas mitbekomme!

DANKE LEUTE!

Sebastian.Trzynka · 10. Januar 2012, 21:13

Vielleicht die Hardware/Windows Version bzw. den Lizenzschlüssel von Windows probieren?
Ansonsten würde ich die Festplatten-Produktions-ID auslesen, wenn möglich, die sollte sich ja nicht ändern.
Edit: siehe hier:
[Allgemein] Windows CD-Key auslesen

VanDerLars · 10. Januar 2012, 21:27

uff, das ist mir echt zu hart! oioioioi

ich hatte eher an sowas wie

variable = system.konstante.wert

gedacht

*scherzl

Myrax · 10. Januar 2012, 21:31

Leider nicht sehr sicher da VB.NET, auch alle .NET Sprachen, reflektierbar, sprich dekompilierbar, sind. So hat jeder Einblick in deinen Code.

Mangafreak1995 · 10. Januar 2012, 21:32

Ich weiß gar nicht was du hast. Es wird halt nur auf Variable = Funktion() verändert

VanDerLars · 10. Januar 2012, 22:00

@Myrax: Obfuskakator!?
@Mangafreak1995: ???

Sebastian.Trzynka · 10. Januar 2012, 22:06

Naja es ist genau das gleiche, da dir die Funktion auch nen String zurückliefert, den du dann vergleichen kannst. Ich würde den als x-fachen MD5-Hash nehmen und dann einfach mit dem MD5-Hash in der Datei vergleichen... Oder per Datenbank/PHP

VanDerLars · 10. Januar 2012, 22:18

habs schnell probiert, klappt leider nicht, weiß aber nicht warum!

Sebastian.Trzynka · 10. Januar 2012, 22:26

Ich hab da mal was vorbereitet... Beispielprojekt. Du musst nur deinen eigenen Hash in die reg.dat eintragen, dann startet das Programm. Ansonsten beendet es sich per Meldung.
Wäre schön wenn du uns eine Fehlermeldung und deinen Code geben kannst, dann können wir dir weiterhelfen...

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports Microsoft.Win32
Imports System
Imports System.Security.Cryptography
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = WindowsCDKey
TextBox1.Text = encode(WindowsCDKey)
checkreg()
End Sub
Private Function encode(ByVal t As String) As String
For i As Integer = 0 To 100
Dim MD5 As New MD5CryptoServiceProvider
MD5.ComputeHash(System.Text.Encoding.Default.GetBytes(t))
t = BitConverter.ToString(MD5.Hash).Replace("-", "")
Next
Return t
End Function
Private Sub checkreg()
Dim k As String = encode(WindowsCDKey)
Dim sr As New System.IO.StreamReader(Application.StartupPath & "/reg.dat")
If sr.ReadLine = k Then
ListBox1.Items.Add("Status: Registriert auf diesen Lizenzschlüssel")
Else
MsgBox("Ungültige Registrierungsdatei")
Me.Close()
End If
End Sub
#Region "Properties"
Public Shared ReadOnly Property WindowsCDKey() As String
Get
Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion")
Dim rpk As Byte() = CType(rKey.GetValue("DigitalProductId", 0), Byte())
Dim strKey As String = ""
Const iRPKOffset As Integer = 52
Const strPossibleChars As String = "BCDFGHJKMPQRTVWXY2346789"
Dim i As Integer = 28
Do
Dim lAccu As Long = 0
Dim j As Integer = 14
Do
lAccu *= 256
lAccu += Convert.ToInt64(rpk(iRPKOffset + j))
rpk(iRPKOffset + j) = Convert.ToByte(Convert.ToInt64(Math.Floor(CSng(lAccu) / 24.0F)) And Convert.ToInt64(255))
lAccu = lAccu Mod 24
j -= 1
Loop While j >= 0
i -= 1
strKey = strPossibleChars(CInt(lAccu)).ToString() + strKey
If (0 = ((29 - i) Mod 6)) AndAlso (-1 <> i) Then
i -= 1
strKey = "-" + strKey
End If
Loop While i >= 0
Return strKey
End Get
End Property
Public Shared ReadOnly Property WindowsCDKeyParts() As String()
Get
Dim strKeyParts As String() = WindowsCDKey.Split("-"c)
Return strKeyParts
End Get
End Property
#End Region
End Class

VanDerLars · 11. Januar 2012, 08:02

Sebastian.Trzynka:
Ich danke dir!

Ich hab's ein wenig umgeschrieben, und jetzt klappt es hervorragend! Genau soetwas wollte ich haben!

Perfekt, Perfekt, Perfekt!

Grüße

VDL

Unveränderbare System-Konstante lesen und Lizenz-Schlüssel erstellen

Unveränderbare System-Konstante lesen und Lizenz-Schlüssel erstellen

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben