Bridewin: A day Hacking and Cracking Office 2013

A day with Office 2013! It was a wonderful experience installing Office 2013 and taking a peek at its new sky drive facility! To be honest I am using a pirated version of Office 2013!

Installation was very smooth on my Windows 8 PC. Later on I found an activator or can be said as a crack which is to be used for activating the Office 2013. My fun turned to be misery when I realized that the crack is not working for me since I installed my office 2013 in my ‘G’ drive.

Whole of a sudden it was terror for me! Now what?!?! Should I get back to my previous version of Office or should I reinstall Office 2013 in my ‘C’ drive after uninstalling some application?!?!

Now at this point my Misery turned into fun guess what I thought of writing my own Crack for Office 2013 so that I can fix it once and for all! And why not share it with other peoples too who might be having same problem.

Slowly and slowly I started to look for loop hole and the way to hack Office 2013! Later by noon time I found some ways and wrote my own first Crack application for Office 2013 and voila it’s working!!!

You can find the source code for the same below:

Public Class Main

#Region " Variable Declaration "
    Private Const _osppFile As String = "OSPP.VBS"
    Private Const _osppRearmFile As String = "OSPPREARM.EXE"
#End Region

#Region " Events Declaration "
    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.tbOffice15FolderPath.Text = Me.lDefaultOffice15.Text.Trim
    End Sub

Private Sub bSelect_Click(sender As Object, e As EventArgs) Handles bSelect.Click
        Me.fbdOffice15.Description = "Office 15 Folder"
        Me.fbdOffice15.RootFolder = Environment.SpecialFolder.MyComputer

If fbdOffice15.ShowDialog() = DialogResult.OK Then
            Me.tbOffice15FolderPath.Text = Me.fbdOffice15.SelectedPath
        Else
            Me.tbOffice15FolderPath.Text = Me.lDefaultOffice15.Text.Trim
        End If
    End Sub

Private Sub bActivateOffice2013_Click(sender As Object, e As EventArgs) Handles bActivateOffice2013.Click
        Dim permission As PrincipalPermission

Try
            permission = New PrincipalPermission(Nothing, "BUILTIN\Administrators", True)

permission.Demand()

Call Me.ActivateOffice2013()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Unhandled Exception")
        End Try
    End Sub
#End Region

#Region " Subroutine Declaration "
    Private Sub ActivateOffice2013()
        Dim exe As String
        Dim osppPath As String
        Dim osppRearmPath As String
        Dim status As String
        Dim remHst As String
        Dim rearm As String
        Dim act As String

exe = "cmd"
        osppPath = "/c @cscript /nologo " & """" & Me.tbOffice15FolderPath.Text.Trim & "\" & Main._osppFile & """"
        osppRearmPath = "/c @cscript /nologo " & """" & Me.tbOffice15FolderPath.Text.Trim & "\" & Main._osppRearmFile & """"

status = Me.ExecuteWithResult(exe, osppPath & " /dstatus")
        remHst = Me.ExecuteWithResult(exe, osppPath & " /remhst")

Call Me.Execute(exe, osppPath & " /sethst:127.0.0.1")
        Call Me.Execute(exe, osppPath & " /setprt:1688")
        Call Me.Execute(exe, osppPath & " /inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT")

rearm = Me.ExecuteWithResult(exe, osppRearmPath)
        act = Me.ExecuteWithResult(exe, osppPath & " /act")

MessageBox.Show("Status: " & Environment.NewLine & status & Environment.NewLine & _
                        "Remove Host: " & Environment.NewLine & remHst & Environment.NewLine & _
                        "Rearm: " & rearm & Environment.NewLine & _
                        "Activation: " & act, "Result")

End Sub

Private Sub Execute(ByVal exe As String, ByVal param As String)
        Dim processStartInfo As ProcessStartInfo
        Dim process As Process

processStartInfo = New ProcessStartInfo(exe, param)
        processStartInfo.RedirectStandardOutput = True
        processStartInfo.UseShellExecute = False
        processStartInfo.CreateNoWindow = True

process = New Process

process.StartInfo = processStartInfo

process.Start()
        process.WaitForExit()

process.StandardOutput.ReadToEnd()
    End Sub
#End Region

#Region " Function Declaration "
    Private Function ExecuteWithResult(ByVal exe As String, ByVal param As String) As String
        Dim text As String

Dim processStartInfo As ProcessStartInfo
        Dim process As Process

processStartInfo = New ProcessStartInfo(exe, param)

processStartInfo.RedirectStandardOutput = True
        processStartInfo.UseShellExecute = False
        processStartInfo.CreateNoWindow = True

process = New Process()

process.StartInfo = processStartInfo

process.Start()
        process.WaitForExit()

text = process.StandardOutput.ReadToEnd()

Return text
    End Function
#End Region

End Class

If you are interested in the EXE then please click here (from Rapidshare) to download the zip file and then extract it.

To use this crack you must be having KMS emulator or qemu running on your machine and then execute my crack. Everything will go fine!

This is how it should look when you run it!

Enjoy Office 2013 for free!

Sorry my post was down for some time due to Infringement Notification you know from whom! ;)

Please do not use this post for illegal purpose!

Bridewin

Sunday, February 24, 2013

A day Hacking and Cracking Office 2013

No comments: