[UNSUPPORTED] Open 7 act*vator by Nononsence [revised by HotCarl] ;-)

You need to login to view this posts content.

 

Thanks guy's

Im still a toddler when it comes to vb coding, heres what i did using your codes, i added 9 textboxs and 1 button to a form with this code:

PHP:

Imports System.Runtime.InteropServices
Imports System.Text

Public Class Form1
    Declare Auto Function PidGenX Lib "pidgenx.dll" (ByVal key As String, ByVal pkeyconfigLocation As String, ByVal mpcID As String, ByVal unknown As Integer, ByVal generatedPID As IntPtr, ByVal oldDigitalPID As IntPtr, ByVal digitalPID4 As IntPtr) As Integer

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim serial As String = TextBox1.Text
        TextBox1.Clear()
        If serial = Nothing Then Exit Sub

        Dim genPID As IntPtr = Marshal.AllocHGlobal(100)
        Marshal.WriteByte(genPID, 0, &H32)
        Dim clearGenPID As Integer = 0
        For clearGenPID = 1 To 99
            Marshal.WriteByte(genPID, clearGenPID, &H0)
        Next clearGenPID

        Dim oldPID As IntPtr = Marshal.AllocHGlobal(164)
        Marshal.WriteByte(oldPID, 0, &HA4)
        Dim clearOldPID As Integer = 0
        For clearOldPID = 1 To 163
            Marshal.WriteByte(oldPID, clearOldPID, &H0)
        Next clearOldPID

        Dim DPID4 As IntPtr = Marshal.AllocHGlobal(1272)
        Marshal.WriteByte(DPID4, 0, &HF8)
        Marshal.WriteByte(DPID4, 1, &H4)
        Dim clearDPID4 As Integer = 0
        For clearDPID4 = 2 To 1271
            Marshal.WriteByte(DPID4, clearDPID4, &H0)
        Next clearDPID4

        Dim pkeyconfig As String = Environment.GetFolderPath(Environment.SpecialFolder.System) + "\spp\tokens\pkeyconfig\pkeyconfig.xrm-ms"
        Dim RetID As Integer = PidGenX(serial, pkeyconfig, "XXXXX", 0, genPID, oldPID, DPID4)

        If RetID = 0 Then
            TextBox3.AppendText("Valid")
        ElseIf RetID = -2147024894 Then
            TextBox1.AppendText("Error: pkeyconfig.xrm-ms is missing")
        ElseIf RetID = -2147024809 Then
            TextBox1.AppendText("Error: Invalid arguments")
        ElseIf RetID = -1979645695 Then
            TextBox1.AppendText("Error: Invalid key")
        Else
            TextBox1.AppendText("Error: Invalid key")
        End If


        If RetID = 0 Then
            Dim pidb As Byte() = New Byte(99) {}
            For i As Integer = 0 To pidb.Length - 1
                pidb(i) = Marshal.ReadByte(genPID, i)
            Next
            Dim core As Byte() = New Byte(1271) {}
            For i As Integer = 0 To core.Length - 1
                core(i) = Marshal.ReadByte(DPID4, i)
            Next
            Dim enc As Encoding = Encoding.ASCII
            Dim pid As String = enc.GetString(pidb).Replace(vbNullChar, "")
            TextBox2.Text = pid
            'PID 
            Dim epid As String = enc.GetString(core, 8, 96).Replace(vbNullChar, "")
                        'Extendend PID 
            Dim aid As String = enc.GetString(core, 136, 72).Replace(vbNullChar, "")
            TextBox4.Text = aid
            'Activation ID 
            Dim edi As String = enc.GetString(core, 280, 40).Replace(vbNullChar, "")
            TextBox5.Text = edi
            'Edition 
            Dim [sub] As String = enc.GetString(core, 888, 20).Replace(vbNullChar, "")
            TextBox6.Text = [sub]
            'SubType 
            Dim lit As String = enc.GetString(core, 1016, 25).Replace(vbNullChar, "")
            TextBox7.Text = lit
            'License Type 
            Dim lic As String = enc.GetString(core, 1144, 20).Replace(vbNullChar, "")
            'License Channel 
            'Crypto ID 
            Dim cid As String = epid.Substring(8, 3)
            TextBox8.Text = cid
        End If
    End Sub
End Class



I think it worked

Alfa

 

@ HotCarl
Actually it does, how else do you think the DLL will know what function to use without using "Alias" either?

Code:

Declare Auto Function OooItsCustom Lib "pidgenx.dll" Alias "PidGenX" (WindowsKey As String, PkeyPath As String, MPCID As String, UnknownUsage As IntPtr, GeneratedProductID As IntPtr, OldDigitalProductID As IntPtr, DigitalProductID As IntPtr) As Integer

Or

Code:

Declare Auto Function PidGenX Lib "pidgenx.dll" (WindowsKey As String, PkeyPath As String, MPCID As String, UnknownUsage As IntPtr, GeneratedProductID As IntPtr, OldDigitalProductID As IntPtr, DigitalProductID As IntPtr) As Integer

Anything else will likely throw an error of some sort.

 

@ HotCarl
Not sure why you are filling up with nulls, shouldn't be required (as shown via the code I posted). Also you have converted the integers to hex?

 

Understandable, I can be the same when something that was hard to get working isn't (a complex fiddly API) and then I get it working. It's just odd though since you said you looked at my source that gives them as integers

You're welcome though, it was something I have been meaning to do but never got around to it. If you get it displaying the outputs feel free to drop it in the open source thread I created for it, I already wrote it in 2 languages but this would be a good addiction

 

Will this not work?


Stop:

PHP:

 Interaction.Shell("net stop sppsvc", AppWinStyle.MinimizedFocus, False, -1)

Start:

PHP:

 Interaction.Shell("net start sppsvc", AppWinStyle.MinimizedFocus, False, -1)

Alfa