windows cd-key 확인

윈도우 시디키 확인

현재 컴퓨터에 설치되어 있는 윈도우의 시디키가 확인 프로그램

홈 페이지
http://www.magicaljellybean.com/keyfinder/

파일 직접 다운로드

keyfinder.zip

 

바이러스 같은 것은 없네요!

http://virscan.org/report/72ed313c9affdfc16bc8d03121cc8fac.html

 

 

하지만 이렇게 해도 설치된 시디키가 검색이 되지 않는 경우가 있습니다.

 

그런 경우에는 VBS스크립트를 활용

또다른 방법으로 스크립트를 이용하면 별도의 프로그램 설치필요 없이도 가능 합니다.

아래는 구글링으로 찾아낸 VBS 

 

Set WshShell = CreateObject("WScript.Shell")

Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalID = WshShell.RegRead(key & "DigitalProductId")

ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine

ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine

ProductKey = "Installed Key: " & ConvertToKey(DigitalID)

ProductID = ProductName & ProductID & ProductKey

If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then

   Save ProductID

End if

Function ConvertToKey(Key)

    Const KeyOffset = 52

    isWin8 = (Key(66) \ 6) And 1

    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)

    i = 24

    Chars = "BCDFGHJKMPQRTVWXY2346789"

    Do

        Cur = 0

        X = 14

        Do

            Cur = Cur * 256

            Cur = Key(X + KeyOffset) + Cur

            Key(X + KeyOffset) = (Cur \ 24)

            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

    If (isWin8 = 1) Then

        keypart1 = Mid(KeyOutput, 2, Last)

        insert = "N"

        KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

        If Last = 0 Then KeyOutput = insert & KeyOutput

    End If

    a = Mid(KeyOutput, 1, 5)

    b = Mid(KeyOutput, 6, 5)

    c = Mid(KeyOutput, 11, 5)

    d = Mid(KeyOutput, 16, 5)

    e = Mid(KeyOutput, 21, 5)

    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

Function Save(Data)

    Const ForWRITING = 2

    Const asASCII = 0

    Dim fso, f, fName, ts

    fName = "Windows Key.txt"

    Set fso = CreateObject("Scripting.FileSystemObject")

    fso.CreateTextFile fName

    Set f = fso.GetFile(fName)

    Set f = f.OpenAsTextStream(ForWRITING, asASCII)

    f.Writeline Data

    f.Close

End Function

해당내용을 메모장에 붙여넣기 하여 .vbs 형식으로 저장한뒤 더블클릭으로 확인 가능합니다.

  ㄴ 이것도 귀찮다 하시는 분들은..... 파일로 다운로드를...

 

CDKey.vbs

 

 

하지만 위의 방법으로는 Volume license로 적용된 CD-Key는 확인이 불가능 하다고 합니다.

키값을 레지스트리에 암호화된 상태로 남아, 모두 BBBBB-BBBBB-BBBBB-BBBBB-BBBBB 이런 형식으로 보입니다.

또다시 구글링..........

 

PowerShell을 이용한 방법

다음 스크립트를 복사하고 실행->cmd->powershell 하시면

 

프롬프트가 이렇게 바뀝니다.

여기서 Set-ExecutionPolicy Unrestricted 와 Set-ExecutionPolicy RemoteSigned 를 각각 실행 합니다.

(아무것도 안나와요 ㄷㄷ)

그리고는 다음 스크립트를 복사해서 붙여넣어주시고

function Get-WindowsKey {

    param ($targets = ".")

    $hklm = 2147483650

    $regPath = "Software\Microsoft\Windows NT\CurrentVersion\DefaultProductKey"

    $regValue = "DigitalProductId4"

    Foreach ($target in $targets) {

        $productKey = $null

        $win32os = $null

        $wmi = [WMIClass]"\\$target\root\default:stdRegProv"

        $data = $wmi.GetBinaryValue($hklm,$regPath,$regValue)

        $binArray = ($data.uValue)[52..66]

        $charsArray = "B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9"

        ## decrypt base24 encoded binary data

        For ($i = 24; $i -ge 0; $i--) {

            $k = 0

            For ($j = 14; $j -ge 0; $j--) {

                $k = $k * 256 -bxor $binArray[$j]

                $binArray[$j] = [math]::truncate($k / 24)

                $k = $k % 24

            }

            $productKey = $charsArray[$k] + $productKey

            If (($i % 5 -eq 0) -and ($i -ne 0)) {

                $productKey = "-" + $productKey

            }

        }

        $win32os = Get-WmiObject Win32_OperatingSystem -computer $target

        $obj = New-Object Object

        $obj | Add-Member Noteproperty Computer -value $target

        $obj | Add-Member Noteproperty Caption -value $win32os.Caption

        $obj | Add-Member Noteproperty CSDVersion -value $win32os.CSDVersion

        $obj | Add-Member Noteproperty OSArch -value $win32os.OSArchitecture

        $obj | Add-Member Noteproperty BuildNumber -value $win32os.BuildNumber

        $obj | Add-Member Noteproperty RegisteredTo -value $win32os.RegisteredUser

        $obj | Add-Member Noteproperty ProductID -value $win32os.SerialNumber

        $obj | Add-Member Noteproperty ProductKey -value $productkey

        $obj

    }

}

 

 

Get-WindowsKey 입력해서  CD-Key확인 !!

 

Windows 7 Enterprise K ... 와... 아무리 해도 안나오네요 ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ