How to get office2010 Home & Student Product Key in 64Bit

Dear Genuius,

I want to Re-create a application for getting MS office 2010 Home & Student product key for 64 bit windows.

The product key of MS Office 2010 Home & Student found in registry through ( Digital Product ID) is totally different from My Licence Certificate.

My Code is in VB.net:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox18.Text = GetOfficeKey1("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Registration\{90140000-003D-0000-0000-0000000FF1CE}", "DigitalProductID")

Public Function GetOfficeKey1(ByVal KeyPath As String, ByVal ValueName As String) As String

Dim HexBuf As Object = My.Computer.Registry.GetValue(KeyPath, ValueName, 0)

'If HexBuf Is Nothing Then Return "N/A"

If HexBuf Is Nothing Then Return "Empty"

Dim tmp As String = ""

For l As Integer = LBound(HexBuf) To UBound(HexBuf)

tmp = tmp & " " & Hex(HexBuf(l))

Dim StartOffset As Integer = 52

Dim EndOffset As Integer = 67

Dim Digits(24) As String

Digits(0) = "B" : Digits(1) = "C" : Digits(2) = "D" : Digits(3) = "F"

Digits(4) = "G" : Digits(5) = "H" : Digits(6) = "J" : Digits(7) = "K"

Digits(8) = "M" : Digits(9) = "P" : Digits(10) = "Q" : Digits(11) = "R"

Digits(12) = "T" : Digits(13) = "V" : Digits(14) = "W" : Digits(15) = "X"

Digits(16) = "Y" : Digits(17) = "2" : Digits(18) = "3" : Digits(19) = "4"

Digits(20) = "6" : Digits(21) = "7" : Digits(22) = "8" : Digits(23) = "9"

Dim dLen As Integer = 29

Dim sLen As Integer = 15

Dim HexDigitalPID(15) As String

Dim Des(30) As String

Dim tmp2 As String = ""

For i = StartOffset To EndOffset

HexDigitalPID(i - StartOffset) = HexBuf(i)

tmp2 = tmp2 & " " & Hex(HexDigitalPID(i - StartOffset))

Dim KEYSTRING As String = ""

For i As Integer = dLen - 1 To 0 Step -1

If ((i + 1) Mod 6) = 0 Then

Des(i) = "-"

KEYSTRING = KEYSTRING & "-"

Else

Dim HN As Integer = 0

For N As Integer = (sLen - 1) To 0 Step -1

Dim Value As Integer = ((HN * 2 ^ 8) Or HexDigitalPID(N))

HexDigitalPID(N) = Value \ 24

HN = (Value Mod 24)

Des(i) = Digits(HN)

KEYSTRING = KEYSTRING & Digits(HN)

End If

Return StrReverse(KEYSTRING)

'..............................................End of office key..........................................

End Function

Please Help Me :-(

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Bhuvanesh Mohankumar10y ago
Use the windows you can view the Key in regedit:
http://www.howtogeek.com/206329/how-to-find-your-lost-windows-or-office-product-keys/
Programatically, this link may help:
https://msdn.microsoft.com/en-us/library/xz88758e.aspx?f=255&MSPPError=-2147217396
https://msdn.microsoft.com/en-us/library/microsoft.win32.registry.getvalue%28v=vs.110%29.aspx?f=255&MSPPError=-2147217396
Mark as answer, if helpful.
0