Cara Melihat Product Key Windows yang Hilang/Terkena crack

Cara Melihat Product Key Windows yang Hilang/Terkena crack 

 

Kalau kamu ingin install ulang Windows dan tidak dapat menemukan Product Key? Mungkin kamu harus membeli Windows baru, atau kamu bisa juga menghubungi Microsoft. Tapi tunggu dulu, ternyata ada cara yang lebih murah, mudah dan praktis. Product Key dari Windows ternyata disimpan di Windows Registry. Sayangnya itu tidak mudah untuk ditemukan dan sangat tidak mungkin untuk dibaca tanpa software tertentu.

Sebagai contoh kamu bisa melihat gambar di atas, Product Key dari Windows yang disimpan di registry berupa angka binary yang tidak bisa dibaca oleh manusia.

Tidak ada yang mengetahui alasan mengapa Microsoft membuat Product Key di Windows Registry sulit dibaca. Alasan yang masuk akal hanyalah, mereka tidak ingin ada seseorang yang kembali menggunakan Product Key tersebut di komputer yang sudah terinstall.

Berikut ini WinPoin akan memberikan tutorial cara melihat Product Key Windows yang hilang. Bahkan jika komputer kamu tidak bisa booting, kamu bisa melihat Product Key dari Windows tersebut. Yang kamu butuhkan hanyalah akses dari hardisk yang masih bekerja di komputer itu.

Ada sedikit hal yang perlu kamu tahu, software seperti keyfinder juga bisa menemukan Product Key dari Windows, tapi itu kadang tidak bekerja untuk komputer OEM. Hal itu juga tergantung cara mengaktifkan lisensi apakah mereka menggunakan satu lisensi untuk semua komputer. Selain itu software tersebut juga tidak akan bekerja.

Cara Melihat Product Key Windows Tanpa Software Apapun

Kalau komputer kamu bisa booting secara normal tanpa masalah, kamu dapat membuat VBscript simpel yang bisa membaca isi Registry dan kemudian ditampilkan secara normal.

Copy dan paste script berikut ini di Notepad, atau download scriptnya disini.

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 = "WindowsKey(oktawiratama).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

Setelah itu Save As script tersebut, ganti Save as type menjadi All Filedan beri nama productkey.vbsatau nama apapun dengan extensi vbs.

Ketika sudah kamu simpan, cukup double klik script tersebut maka akan muncul pop-up yang menampilkan product key.

PASSWORD ZIP : ampelgadingtutoral.com

Baca juga : cara aktifasi windows permanen

Share this post