Feedback

VB - 2000 / 2003 / XP / Vista Installationsschlüssel auslesen

Veröffentlicht von am 04.12.2006
(18 Bewertungen)
Dieses Snippet liest den Produkt-Installationsschlüssel (Schlüssel auf dem Echtheitszertifikat) und die Seriennummer aus.

Der Schlüssel wird als Listview Item zurückgegeben und kann somit direkt in ein Listview-Steuerelement eingetragen werden.
GFU-Schulungen  [Anzeige]

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

Visual Studio Team Foundation Server 2017/2015 (TFS) - Komplett 

Public Function sGetXPKey() As ListViewItem
        
        'Registry öffnen und Wert auslesen (byte array) 
        Dim RegKey As RegistryKey = _
        Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion", False)
        Dim bytDPID() As Byte = RegKey.GetValue("DigitalProductID")
        'Nur die benötigten Teile ins Array laden
        ' Key beginnt ab byte 52 und ist 15 Bytes lang.
        Dim bytKey(14) As Byte '0-14 = 15 bytes
        Array.Copy(bytDPID, 52, bytKey, 0, 15)
        'Unser "Array" beinhaltet nun  gültige Zeichen
        Dim strChar As String = "BCDFGHJKMPQRTVWXY2346789"
        'jetzt muss der decodierte Schlüssel zurückgegeben werden
        Dim strKey As String = ""
              
        For j As Integer = 0 To 24
            Dim nCur As Short = 0
            For i As Integer = 14 To 0 Step -1
                nCur = CShort(nCur * 256 Xor bytKey(i))
                bytKey(i) = CByte(Int(nCur / 24))
                nCur = CShort(nCur Mod 24)
            Next
            strKey = strChar.Substring(nCur, 1) & strKey
        Next
        'nun muss das Ganze in einen String eingestzt werden.
        For i As Integer = 4 To 1 Step -1
            strKey = strKey.Insert(i * 5, "-")
        Next


        Dim strPName As String = RegKey.GetValue("ProductName")
        Dim strPID As String = RegKey.GetValue("ProductID")

        Dim lvi As New ListViewItem
        lvi.Text = strPName

        Try
            lvi.SubItems.Add(strKey)
        Catch ex As Exception
            lvi.SubItems.Add("n.a.")
        End Try


        Try
            lvi.SubItems.Add(strPID)
        Catch ex As Exception
            lvi.SubItems.Add("n.a.")
        End Try

        RegKey.Close()
        Return lvi
    End Function
Abgelegt unter PID, Seriennummer, Key.

1 Kommentare zum Snippet

Heinz-Peter Dettmar schrieb am 29.12.2006:
läuft prima, kann mit dem Progamm auf USB Stick Lizenzen auf lokalen Systemen prüfen. Habe auf Nachfrage ein Programm erhalten was auch MS Applikationsschlüssel, auch remote auslesen kann.

Vielen Dank auch dafür :-)
 

Logge dich ein, um hier zu kommentieren!