Visual Basic Forum

Verfasst am: 09.04.2009, 18:15 Aufrufe: 3601

Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& 'Funktion, gibt den Serial zurück Public Function sGetXPCDKey() As String 'Read the value of: 'HKLM\SOFTWARE\MICROSOFT\Windows NT\Curr ' entVersion\DigitalProductId Dim bDigitalProductID() As Byte Dim bProductKey() As Byte ...

Verfasst am: 28.07.2008, 10:03 Aufrufe: 2511

Verfasst am: 10.06.2008, 21:27 Aufrufe: 1174

LocalMachine.OpenSubKey("SoftwareMicrosoftWindows NTCurrentVersion", 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 Strin ...

Verfasst am: 01.05.2008, 14:20 Aufrufe: 1174

Beschreibung: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.Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 23.02.2008, 12:11 Aufrufe: 534

Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& 'Funktion, gibt den Serial zurück Public Function sGetXPCDKey() As String 'Read the value of: 'HKLM\SOFTWARE\MICROSOFT\Windows NT\Curr ' entVersion\DigitalProductId Dim bDigitalProductID() As Byte Dim bProductKey() As Byte ...

Verfasst am: 15.02.2008, 17:34 Aufrufe: 573

dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& Public Function sGetXPCDKey() As String Dim bDigitalProductID() As Byte Dim bProductKey() As Byte ...

Verfasst am: 15.02.2008, 17:32 Aufrufe: 573

dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& Public Function sGetXPCDKey() As String Dim bDigitalProductID() As Byte Di ...

Verfasst am: 02.11.2007, 02:43 Aufrufe: 3076

Text = "WindowsXP - Product Key" End Sub Puplic Class GetCDKeyFromWindowsXP #Region "Functions" Puplic SharedOnly property ReturnproductKey() As String Get Return GetCDKey() End Get End Property Private Shared Function GetCDKey() As String Dim tmp() As Byte ReDim Preserve tmp(14) Dim Valuename As String = "DigitalProductId& ...

Verfasst am: 09.10.2007, 16:52 Aufrufe: 1122

zumindest fürs erste nicht. Und nein es ist kein einfacher reg eintrag ist verschlüsselt. Mein Key in der reg sieht so aus: 0030 00 00 00 00 F6 D5 5B 4C 0038 E7 46 1D 0A D2 74 90 C9 0040 EE 0E 02 00 00 00 00 00 Das fette, da steht der Key aber ich brauche eben den algo/schlüssel zum verschlüsseln der Daten. liegt außerdem net in ProductID sondern in DigitalProductID mfg nom Loooooool! Selfown³³ ...

Verfasst am: 09.10.2007, 12:30 Aufrufe: 1122

das soll nicht fürn trojaner sein. zumindest fürs erste nicht. Und nein es ist kein einfacher reg eintrag ist verschlüsselt. Ein Key in der reg sieht so aus: 0030 00 00 00 00 F5 FR 53 BC 0038 E7 46 1D 0A D2 74 90 C9 0040 EE 0E 22 00 00 00 00 00 Das fette, da steht der Key aber ich brauche eben den algo/schlüssel zum verschlüsseln der Daten. liegt außerdem net in ProductID sondern in DigitalProductID ...