Code: Select all

; ProductKey von Windows 7, 8.x, 10 auslesen
#NoEnv
MsgBox, % GetWinProductKey()
ExitApp
GetWinProductKey() {
   Static Chars := "BCDFGHJKMPQRTVWXY2346789"
   Static KeyOffset := 52
   ProductKeyArray := []
   RegRead, ProductKey, HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion, DigitalProductId
   Loop, % (StrLen(ProductKey) // 2) {
      I := A_Index - 1
      ProductKeyArray[I] := "0x" . SubStr(ProductKey, (I * 2) + 1, 2)
   }
   IsW8 := (ProductKeyArray[66] // 6) & 1
   ProductKeyArray[66] := (ProductKeyArray[66] & 0xF7) | ((IsW8 & 2) * 4)
   I := 24
   KeyOutput := ""
   While (I >= 0) {
      Cur := 0
      X := 14
      While (X >= 0) {
         Cur := Cur * 256
         Cur := ProductKeyArray[X + KeyOffset] + Cur
         ProductKeyArray[X + KeyOffset] := (Cur // 24) & 0xFF
         Cur := Mod(Cur, 24)
         X--
      }
      KeyOutput := Substr(Chars, Cur + 1, 1) . KeyOutput
      Last := Cur
      I--
   }
   If (IsW8 = 1)
     {
      KeyPart1 := SubStr(KeyOutput, 2, Last)
      Insert := "N"
      KeyOutput := StrReplace(SubStr(KeyOutput, 2), KeyPart1, KeyPart1 . Insert, , 1)
      If Last := 0
        KeyOutput := Insert & KeyOutput
     }
   Return SubStr(KeyOutput, 1, 5) . "-" . SubStr(KeyOutput, 6, 5) . "-" . SubStr(KeyOutput, 11, 5) . "-"
        . SubStr(KeyOutput, 16, 5) . "-" . SubStr(KeyOutput, 21, 5)
}

Code: Select all

    If (isWin8 = 1)
      {
        keypart1 := SubStr(KeyOutput, 2, Last)
        insert := "N"
        KeyOutput := StrReplace(KeyOutput, keypart1, keypart1 & insert, 2, 1)
        If Last := 0
          KeyOutput := insert & KeyOutput
      }

Code: Select all

#NoEnv
MsgBox, % GetWinProductKey()
ExitApp
GetWinProductKey() {
   Static Chars := "BCDFGHJKMPQRTVWXY2346789"
   Static Insert := "N"
   Static KeyOffset := 52
   ProductKeyArray := []
   RegRead, ProductKey, HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion, DigitalProductId
   Loop, % (StrLen(ProductKey) // 2) {
      I := A_Index - 1
      ProductKeyArray[I] := "0x" . SubStr(ProductKey, (I * 2) + 1, 2)
   }
   IsW8 := (ProductKeyArray[66] // 6) & 1
   ProductKeyArray[66] := (ProductKeyArray[66] & 0xF7) | ((IsW8 & 2) * 4)
   I := 24
   KeyOutput := ""
   While (I >= 0) {
      Cur = 0
      X := 14
      While (X >= 0) {
         Cur := Cur * 256
         Cur := ProductKeyArray[X + KeyOffset] + Cur
         ProductKeyArray[X + KeyOffset] := (Cur // 24) & 0xFF
         Cur := Mod(Cur, 24)
         X--
      }
      KeyOutput := Substr(Chars, Cur + 1, 1) . KeyOutput
      Last := Cur
      I--
   }
   KeyPart1 := SubStr(KeyOutput, 2, Last)
   KeyOutput := StrReplace(SubStr(KeyOutput, 2), KeyPart1, KeyPart1 . Insert, , 1)
   If (Last = 0)
      KeyOutput := Insert . KeyOutput
   Return SubStr(KeyOutput, 1, 5) . "-" . SubStr(KeyOutput, 6, 5) . "-" . SubStr(KeyOutput, 11, 5) . "-"
        . SubStr(KeyOutput, 16, 5) . "-" . SubStr(KeyOutput, 21, 5)
}

Code: Select all

RegRead, DigitalID, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion, DigitalProductId
ProductKey := ConvertToKey(DigitalID)
MsgBox, %ProductKey%

ConvertToKey(Key) {
    KeyOffset := 52
    ;isWin8 := (Key[66] // 6) And 1
    ;Key(66) := (Key[66] And &HF7) Or ((isWin8 And 2) * 4)
    isWin8 := 1
    Key[66] := 1
    i := 24
    Chars := "BCDFGHJKMPQRTVWXY2346789"
    Loop {
          Cur := 0
          X := 14
          Loop {
                Cur := Cur * 256
                Cur := Key[X + KeyOffset] + Cur
                Key[X + KeyOffset] := (Cur // 24)
                Cur := Mod(Cur, 24)
                X -= 1
              } While X >= 0
          i -= 1
          KeyOutput := SubStr(Chars, Cur + 1, 1) & KeyOutput
          Last := Cur
         } While i >= 0
    If (isWin8 = 1)
      {
        keypart1 := SubStr(KeyOutput, 2, Last)
        insert := "N"
        KeyOutput := StrReplace(KeyOutput, keypart1, keypart1 & insert, 2, 1)
        If Last := 0
          KeyOutput := insert & KeyOutput
      }
    a := SubStr(KeyOutput, 1, 5)
    b := SubStr(KeyOutput, 6, 5)
    c := SubStr(KeyOutput, 11, 5)
    d := SubStr(KeyOutput, 16, 5)
    e := SubStr(KeyOutput, 21, 5)
    ConvertToKey := a "-" b "-" c "-" d "-" e
}

Code: Select all

  isW8 = (KeyInput(66) \ 6) And 1
  KeyInput(66) = (KeyInput(66) And &HF7) Or ((isW8 And 2) * 4)

Code: Select all

; Embedded VBScript to get the Windows(R) 7/8.x/10 DigitalProductID (registry) converting to Product Key
myVBScript =
(
Set WshShell = WScript.CreateObject("WScript.Shell")
RegKeyPath   = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"
ProductKey   = ConvertKey(WshShell.RegRead(RegKeyPath))
MsgBox ProductKey, , "My Windows Product-Key:"

Function ConvertKey(KeyInput)
  Const KeyOffset = 52
  Dim isW8, i, x, Cur, KeyOutput, Last, keypart1, insert
  'If Windows >= 8:
  isW8 = (KeyInput(66) \ 6) And 1
  KeyInput(66) = (KeyInput(66) And &HF7) Or ((isW8 And 2) * 4)
  i = 24
  Chars = "BCDFGHJKMPQRTVWXY2346789"
  Do
    Cur = 0
    x = 14
    Do
      Cur = Cur * 256
      Cur = KeyInput(x + KeyOffset) + Cur
      KeyInput(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
    Last = Cur
  Loop While i >= 0 
  keypart1 = Mid(KeyOutput, 2, Last)
  insert = "N"
  KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
  If Last = 0 Then KeyOutput = insert & KeyOutput
  ConvertKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
  
End Function
)
FileAppend, %myVBScript%, ProductKey.vbs 
RunWait,    ProductKey.vbs
FileDelete, ProductKey.vbs
ExitApp