5 Antworten in diesem Thema

[kotzbroedchen]

Mit den hier nachstehenden Zeilen ist es möglich den Windows key auszulesen.

Editor auf und reinkopiert:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function




Abgespeichert und die .txt Datei in .vbs umbenannt.

fertig

[Jar3d]

Super, vielen Dank für den Code. Als interessierter Coder finde ich es immer spannend Codes von anderen zu analysieren.
Funktioniert bei mir übrigens einwandfrei.

Grüße,

Jar3d

[Blackfox]

Hier das ganze mal modern in VB.net

Imports Microsoft.Win32
Imports System

Public Class Key
    Private Sub Key_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	    'Ließt den Namen des Betriebssystems und den Produktschlüssel aus.
	    MsgBox("Betriebssystem: " & My.Computer.Info.OSFullName & " Key: " & WindowsCDKey.ToString, MsgBoxStyle.Information, "Informationen:")
    End Sub
#Region "Read Key"
    ''' Reads the Windows CD key from the registry and returns it as string separated by '-' chars.
    Public Shared ReadOnly Property WindowsCDKey() As String
	    Get
		    Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion")
		    Dim rpk As Byte() = DirectCast(rKey.GetValue("DigitalProductId", New Byte(-1) {}), 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

    ''' Reads the Windows CD key from the registry and returns it as string array.
    '''
    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

Bearbeitet von Blackfox, 05 December 2014 - 17:32 Uhr.

[nibble nibble]

Mit den hier nachstehenden Zeilen ist es möglich den Windows key auszulesen.

Editor auf und reinkopiert:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function




Abgespeichert und die .txt Datei in .vbs umbenannt.

fertig

Bei mir geht es nur wenn ich Zeile 30 so schreibe
"KeyInput(x + KeyOffset) = (Cur \ 24) And 255" Ohne ""
System Win7 64bit.

[Blackhook]

Hier noch Mal funktionierende Versionbei Windows 8.1 64 bit

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

[smc2014]

Habe mal alle Shells ausprobiert:

Also der von Croco geteilte Shell, funktioniert auch einwandfrei unter WINDOWS 7 64bit.

Bei NibbleNibble bekomm ich ein "Typenkonflikt:KeyInput" wobei auch zu achten ist das die MsgBox Zeile folgendermaßen aussieht:

MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

LG