• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ms office ürün anahtarı

M

mest3651

Altın Üye
Katılım
5 Ocak 2006
Mesajlar
189
Merhaba. Pc ye yüklediğim lisanlı ms office ürün anahtarımı nasıl görebilirim ( 2013 Office )

Teşekkürler.
 
Sanırım sadece son 5 karakterini bulabilirsiniz....

.
 
Haluk Bey,

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

Ben Windows 11 64 Bit & Ofis 365 64 Bit sistemde denedim olumlu sonuç alamadım.
 
Korhan Bey, olumlu sonuç alamadım derken ...... ne elde ettiniz?

.
 
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.
 
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.

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


Capture.PNG


.
 
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....


C#: 
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



.
 
Son düzenleme:
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.
 
Herhangibir referansa ihtiyaç yok. Kullandığınız Office versiyonunu doğru girdiniz mi?

.
 
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.
 
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.

.
 
Son düzenleme:
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.
Genişletmek için tıkla ...

Haluk' Alıntı:
Bu arada..... 14 No'lu mesajda önerilen yolda bulunan anahtar Office programının mı yoksa Windows'un mu tam emin değilim ....
Genişletmek için tıkla ...

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.
 
Son düzenleme:
Merhaba,
Şu programın faydası olur mu?
 

Ekli dosyalar

@hakki83,

Paylaşımınızı indirip deneyemedim. Google browser zararlı içerik uyarısı veriyor.
 
@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....

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst