Windows ürün anahtarı programsız nasıl bulunur?

Bir ürün anahtarı girin.

Ürün anahtarı nedir?
Kayıt anahtarı, etkinleştirme kodu, aktivasyon kodu, CD anahtarı, lisans anahtarı, serial key olarak da adlandırılan ürün anahtarı (product key), yazılım korsanlığını önlemeye yardımcı olan herhangi bir uzunlukta, genellikle benzersiz, alfa-sayısal bir koddur. Ürün anahtarı gerektiren bir yazılım, ancak belirli bir ücret karşılığında özellik ve süre kısıtlamasız olarak kullanılabilir.


Peki, Windows ürün anahtarları?
Windows'un ve diğer Microsoft yazılımlarının çoğu sürümünde ürün anahtarları, 25 karakter uzunluğundadır ve hem harfleri hem de sayıları içerir. Windows ürün anahtarı, Windows’u etkinleştirmek için kullanılır ve şu şekildedir:
ÜRÜN ANAHTARI: XXXXX-XXXXX-XXXXX-XXXXX-XXXXX


Windows ürün anahtarımı unuttum / bilmiyorum / ürün anahtarım tam okunmuyor! Ne yapayım?
Windows kopyanızı edinme yönteminize bağlı olarak ürün anahtarınızın bulunduğu yer değişim gösterir. Windows ürün anahtarınızı nerede sakladığınızı unuttuysanız veya ürün anahtarı etiketiniz var fakat tam okunmuyorsa veya hiç bilmiyorsanız, şu an doğru konudasınız. Üstelik herhangi bir üçüncü parti program kullanmadan Windows ürün anahtarınızı öğrenebilirsiniz.

Önceden Windows yüklü bilgisayarlar, makine gövdesi üzerine (ya da pil bölmesinin içine) yerleştirilmiş bir ürün anahtarı etiketi veya bilgisayar kılavuzları ile birlikte gelirdi. Ancak son yıllarda bilgisayar üreticileri, Windows ürün anahtarını cihazın UEFI/BIOS'unda saklamaya başladı ve makinenin üzerinde artık yalnızca Windows logosu yer alıyor. Kesinlikle bu, güzel bir yaklaşım. Windows'u başarılı bir şekilde etkinleştirmiş iseniz ve Windows lisansınızı Microsoft hesabınızla ilişkilendirdiyseniz, tekrar Windows ürün etkinleştirmesinde muhtemelen sorun da yaşamayacaksınız.

İpucu: Windows 10'u yeniden yüklüyorsanız, Windows ürün anahtarına ihtiyacınız olmayabilir.
Önemli: Windows 10 kullanıyorsanız ve anakart değiştirmek gibi önemli değişiklikler yapmayı düşünüyorsanız (cihazın başarılı bir şekilde etkinleştirilmiş olduğundan emin olduktan sonra) Windows 10 lisansınızı Microsoft hesabınızla ilişkilendiriniz. Bkz.
Ayarlar > Güncelleştirme ve Güvenlik > Etkinleştirme ekranında iken, Microsoft hesabı ekle'ye tıklayın. Şu şekildedir:

Microsoft hesabı ekle

Önemli: Eğer Windows sürümünde bir yükseltme yaptıysanız veya ürünü etkinleştirmede farklı bir ürün anahtarı kullandıysanız, söz konusu yüklü ürün anahtarını bulmak ve kullanmak için sayfanın aşağısındaki (3 numaralı) VBScript komut dosyası ile olan yönteme bakınız. Çünkü orijinal ürün anahtarı, yüklü ürün anahtarı olmayacaktır.


1) Komut İstemi'ni kullanarak Windows orijinal ürün anahtarınızı bulma (Windows 10 / 8.1 geçerlidir.)

Windows logo tuşu  + R tuş kombinasyonunu kullanarak Çalıştır iletişim kutusunu açın.
CMD
yazıp Enter'layın
aşağıdaki komutu kopyalayıp yapıştırın.
wmic path softwarelicensingservice get OA3xOriginalProductKey
Windows ürün anahtarınız görüntülenecektir.

Komut İstemi

Windows ürün anahtarını not aldıktan sonra
Exit
yazıp Enter'layın (Komut istemi penceresi kapanacaktır.)



2) Windows PowerShell'i kullanarak Windows orijinal ürün anahtarınızı bulma (Windows 10 / 8.1 / 7 / Vista için geçerlidir.)

Windows logo tuşu  + R tuş kombinasyonunu kullanarak Çalıştır iletişim kutusunu açın.
CMD
yazıp Enter'layın.
aşağıdaki komutu kopyalayıp yapıştırın.
powershell "(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey"

Windows PowerShell

Windows ürün anahtarınız görüntülenecektir.
Windows ürün anahtarını not aldıktan sonra
Exit
yazıp Enter'layın (Windows PowerShell penceresi kapanacaktır.)



3) VBScript komut dosyası ile yüklü Windows ürün anahtarınızı bulma (Windows 10 / 8.1 / 7 için geçerlidir.)

Visual Basic Script'inin ne olduğu hakkında hiçbir fikriniz olmayabilir, ancak fark etmez. Sadece aşağıdaki basit adımları takip etmeniz yeterlidir.

Yeni bir Not Defteri açın. Aşağıdaki kod parçasını kopyalayıp yapıştırın. (VBScript komut dosyası kodları, TechSpot web sitesinden edinilip Türkçe'leştirilmiştir.)

Option Explicit Dim objshell,path,DigitalID, Result Set objshell = CreateObject("WScript.Shell") 'Set registry key path Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Registry key value DigitalID = objshell.RegRead(Path & "DigitalProductId") Dim ProductName,ProductID,ProductKey,ProductData 'Get ProductName, ProductID, ProductKey ProductName = "Windows sürümü: " & objshell.RegRead(Path & "ProductName") ProductID = "Ürün Kimliği: " & objshell.RegRead(Path & "ProductID") ProductKey = "Yüklü ürün anahtarı: " & ConvertToKey(DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Show messbox if save to a file If vbYes = MsgBox(ProductData & vblf & vblf & "Veriler bir dosyaya kaydedilsin mi?", vbYesNo + vbQuestion, "Windows anahtar bilgilerini yedekle") then Save ProductData End If 'Convert binary to chars Function ConvertToKey(Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'Check if OS is Windows 8 isWin8 = (Key(66) \ 6) And 1 Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) i = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Do Current= 0 j = 14 Do Current = Current* 256 Current = Key(j + KeyOffset) + Current Key(j + KeyOffset) = (Current \ 24) Current=Current Mod 24 j = j -1 Loop While j >= 0 i = i -1 KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput Last = Current 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 ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5) End Function 'Save data to a file Function Save(Data) Dim fso, fName, txt,objshell,UserName Set objshell = CreateObject("wscript.shell") 'Get current user name UserName = objshell.ExpandEnvironmentStrings("%UserName%") 'Create a text file on desktop fName = "C:\Users\" & UserName & "\Desktop\AnahtarBul.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set txt = fso.CreateTextFile(fName) txt.Writeline Data txt.Close End Function

Dosya> Farklı Kaydet...'e tıklayın
Gelen Farklı Kaydet penceresinde; AnahtarBul.vbs gibi bir dosya adı girin (Sonunda *.vbs olsun) Kayıt türü: "Tüm Dosyalar" olarak seçin. Dosya konumuna karar verin ve Kaydet'i tıklayın.

VBScript komut dosyası

Çalıştırmak için .vbs dosyasını çift ​​tıklatın. Windows anahtar bilgilerini gösteren küçük bir pencere açılacak.

Yüklü Windows ürün anahtarınıza ilişkin bilgilerin bir yedeğini almak için Evet'i tıklayın.

Windows anahtar bilgilerini yedekle

Masaüstünüzde AnahtarBul adında .txt uzantılı bir Not Defteri dosyası oluşacak. Bu dosyayı saklayın.

AnahtarBul.txt dosyası

Umarım faydalı bir yazı hazırlayabilmişimdir, kalın sağlıcakla. ;)