Ms office ürün anahtarı

[mest3651]

Merhaba. Pc ye yüklediğim lisanlı ms office ürün anahtarımı nasıl görebilirim ( 2013 Office )

Teşekkürler.

 

[Haluk]

Sanırım sadece son 5 karakterini bulabilirsiniz....

.

 

[Haluk]

Aşağıdaki linkte tarif edilen şekilde yapınca, Office anahtarını görüntüledim....

How to get Microsoft Office product key without using third party software

Here is a simple solution to extract your Office product key from the OS installed on your PC without using any third party software.

winaero.com

.

 

[Korhan Ayhan]

Haluk Bey,

Paylaşım için teşekkürler.

Ben Windows 11 64 Bit & Ofis 365 64 Bit sistemde denedim olumlu sonuç alamadım.

 

[Haluk]

Korhan Bey, olumlu sonuç alamadım derken ...... ne elde ettiniz?

.

 

[Korhan Ayhan]

Paylaştığınız linkteki işlemleri yaptım. 64 bit kullandığım için ona uygun PowerShell uygulamasını açarak devam ettim.

PowerShell ekranı boş şekilde kaldı.. (PS C:\WINDOWS\system32>)

8. adımda gelen uyarıya Y diyerek devam ettim. Acaba orada mı hata yaptım.

 

[Haluk]

Bende öyle yapmıştım ....

O script'i inceliyorum şimdi..... adamın orada ne halt ettiğini anladım sanırım. Birazdan detayları paylaşırım.

.

 

[Haluk]

Script'in yaptığı iş özetle, aşağıdaki resimde belirtilen DigitalProductID isimli "registery" değerini (binary) alıp, onu okunabilir şekle çeviriyor....





.

 

[Haluk]

Bu işi VBA ile yapmak için aşağıdakini hazırladım. Bende sorun çıkmadı ....

Ben Office 2010 kullandığım için "strParentKey" değişkeninde "14.0" kullandım. Siz kendi versiyonunuza göre değiştirebilirsiniz....

Sub Test()
'   Haluk - 28/10/2022
'   sa4truss@gmail.com

    Dim objWMI As Object
    
    Const HKEY_LOCAL_MACHINE As Long = &H80000002
    Const strParentKey As String = "SOFTWARE\Microsoft\Office\14.0\Registration"
    
    Set objshell = CreateObject("WScript.Shell")
 
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    
    objWMI.EnumKey HKEY_LOCAL_MACHINE, strParentKey, arrSubKeys
    
    For Each strSubKey In arrSubKeys
        strKey = strParentKey & "\" & strSubKey
        
        objWMI.EnumKey HKEY_LOCAL_MACHINE, strKey, arrKeys
        
        If IsArray(arrKeys) Then
            regPath = "HKEY_LOCAL_MACHINE\" & strKey & "\"
    
            ProductName = "Product Name: " & objshell.RegRead(regPath & "ProductNameNonQualified")
            ProductID = "Product ID: " & objshell.RegRead(regPath & "ProductID")
    
            DigitalID = objshell.RegRead(regPath & "DigitalProductId")
            ProductKey = "Product Key: " & ConvertToKey(DigitalID)
    
            ProductData = ProductName & vbCrLf & ProductID & vbCrLf & ProductKey
        End If
    Next
    
    MsgBox ProductData
    
    Set objshell = Nothing
    Set objWMI = Nothing
End Sub
'
Function ConvertToKey(Key)
    Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
    Const KeyOffset = 52
    
    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

.

 

[tahsinanarat]

Sn. @Haluk Hocam;
For Each sSubKey In aSubKeys

satırını sarıya boyayıp hata veriyor. Referanslardan işaretleyeceğiniz bir kutu varmıdır.

 

[Haluk]

Herhangibir referansa ihtiyaç yok. Kullandığınız Office versiyonunu doğru girdiniz mi?

.

 

[tahsinanarat]

sn. @Haluk Hocam, Office 2019 kullanıyorum;
Const strParentKey As String = "SOFTWARE\Microsoft\Office\16.0\Registration"

16 olarak değiştirdim, başka değiştirilecek bir yer varmı bilemedim.

 

[Haluk]

Valla bilemedim Tahsin Bey ..... belki sizdeki Registery daha değişiktir

Muhtemelen Office programının tipi, yükleniş şekli ..... vb nedenlerle registery'de değişik konumlara bakmak gerekebilir.

.

 

[netzone]

Merhaba Tahsin bey (@tahsinanarat),

Office 2019 Lisansınızı marketten görebileceğiniz gibi, bu sayfada Regedit den belirtilen Bilgisayar\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform yolda BackupProductKeyDefault anahtarından Office 2019 yedek anahtarınızı temin edebilirsiniz.

İyi çalışmalar.

Bu arada..... 14 No'lu mesajda önerilen yolda bulunan anahtar Office programının mı yoksa Windows'un mu tam emin değilim ....

Merhaba,

@Haluk Bey'in söylemi sonrası benim de kafamı kurcaladı: OSPP (Software Protection Platform) 'nin Ofis'e değil Windows'a ait olduğunu Lisanslarımı kontrol ettikten sonra açıkça belirtebilirim.

Yanlış yönlendirme için kusura bakmayın.

İyi çalışmalar.

 

[Korhan Ayhan]

Bende Ofis 365 için @netzone'nun tarif ettiği yerden ofis anahtarına ulaşabildim. Paylaşımlarınız için teşekkürler.

 

[hakki83]

Merhaba,
Şu programın faydası olur mu?

 

[Korhan Ayhan]

@hakki83,

Paylaşımınızı indirip deneyemedim. Google browser zararlı içerik uyarısı veriyor.

 

[hakki83]

H

@hakki83,

Paylaşımınızı indirip deneyemedim. Google browser zararlı içerik uyarısı veriyor.

Hocam çok eski bir mini program. Yeni tip antivirüs ve benzerleri bu sebepten uyarı veriyor olabilir.

 

[hakki83]

ProduKey.zip dosyasını indir - download

ProduKey.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Bir de buraya yükledim.

 

[Haluk]

@netzone 'un önerdiği "Registery" yolu bende istenilen anahtar olmadığı için işe yaramadı.

Demek, kullanılan OS ve Office versiyonlarına göre Registery yolu değişiklik gösteriyor. Yanlış bir şey bence....

.