1. Hello Guest, selamat datang di Forum WinPoin. Kamu bisa bertanya, berdiskusi, sharing, dan ngobrolin apapun seputar Windows, Windows Phone, PC, Gadget, atau hal seputar Teknologi lainnya. Selamat berkomunitas! ;)

OS Windows teraktivasi sendiri

Discussion in 'Windows 8' started by isnandard, Nov 3, 2014.

  1. isnandard

    isnandard New Member

    Joined:
    Nov 1, 2014
    Messages:
    10
    Sebelumnya di forum ini saya nyari untuk mengetahui cara mengetahui Produk Key Windows 8.1 OEM yang ada di laptop saya.
    Setelah saya baca-baca, saya nemu ini cara (komentar dari : Icha Kumalasari) http://forum.winpoin.com/diskusi-back-up-activasi-windows?page=2

    Kalau Mau ShowKeynya pke VBS saja
    Nih Copas:
    Set WshShell = CreateObject("WScript.Shell")
    Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
    DigitalID = WshShell.RegRead(key & "DigitalProductId4")

    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


    dan cara lain pakai software OEM-DM Key Dumper (Komentar dari : mabaega) http://forum.winpoin.com/diskusi-gimana-aktivasi-windows-8-1-oem?highlight=aktivasi%2bwindows%2b8.1


    Saya mencoba ke-dua tips diatas, lalu saya restart laptop. dan setelah nyala. OS Windows laptop saya sudah teraktivasi dengan sendiri.
    kenapa bisa keaktivasi sendiri ya?
     
  2. Jazz

    Jazz Windows Freak Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,720
    OEM Windows 8.x bisa teraktivasi sendiri karena Terkoneksi Internet
    Karena Keynya dh Embedded di MSDM BIOS
     
  3. isnandard

    isnandard New Member

    Joined:
    Nov 1, 2014
    Messages:
    10
    oh gitu toh, awalnya sempet takut.
    kirain OEM-DM Key Dumper itu semacam ***** aktivasi OS secara ilegal.
    terima kasih Icha sudah membantu saya. :)
     
  4. Jazz

    Jazz Windows Freak Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,720
    OEM-DM Key Bumper itu semacam Tool buat Detect Key OEM Win8.x :)
    jd gak perlu takut deh, ga ada share yg ilegal kog disini
     
  5. isnandard

    isnandard New Member

    Joined:
    Nov 1, 2014
    Messages:
    10
    siiip, ini forum sangat membantu. :kagum:
     
  6. Jazz

    Jazz Windows Freak Staff Member

    Joined:
    Jan 6, 2014
    Messages:
    14,720
    Seep :)
    Jika sudah harap Ganti Prefix ke SOLVED`
     

Share This Page