Sending 0x51

[CrAz3D]

[vb6]
I am almost possitive that this is correct, but I keep getting disconnected from BNET after I send 0x51

Code Select Expand


Private Sub p0x51()
           InsertDWORD GTC
           InsertDWORD version
           InsertDWORD Checksum
           If varproduct = "PX2D" Or varproduct = "PX3W" Then
               InsertDWORD &H2
           Else
               InsertDWORD &H1
           End If
           InsertDWORD &H0
           InsertNonNTString CdkeyHash
           If varproduct = "PX2D" Or varproduct = "PX3W" Then
               InsertNonNTString Cdkey2Hash
           End If
           InsertNTString ExeInfo
           InsertNTString "CrAz3D"
           sendPacket &H51
End Sub


The product was SEXP & I saw that exeinfo was:

Code Select Expand

Starcraft.exe 03/28/03 04:21:56 1064960.CrAz3D...


Maybe it is how I receive x51?

Code Select Expand

Case &H51
   Select Case GetWORD(Mid(data, 5, 2))
       Case &H0
           AddChat vbGreen, "BNET: (0x0000) Version and CD-key check passed!"
               If varproduct = "3RAW" Or varproduct = "PX3W" Then
                   InsertNTString varUser
                   InsertNTString varPass
                   sendBNLSPacket &H2
               Else
                   If frmLogin.chkPlug = vbChecked Then
                   Else
                       InsertNonNTString "tenb"
                       sendPacket &H14
                       sendPacket &H2D
                   End If
                   tempb = String(7 * 4, vbNullChar)
                   rb = A(tempb, servers, varPass)
                   InsertNonNTString tempb
                   InsertNTString varUser
                   sendPacket &H3A
               End If
       Case &H100
           AddChat vbRed, "BNET: Game version recognized, but out of date!"
       Case &H101
           AddChat vbRed, "BNET: Game version unrecognized!"
       Case &H200
           AddChat vbRed, "BNET: Invalid CD-key!"
       Case &H203
           AddChat vbRed, "BNET: Invalid CD-key for this product!"
       Case &H202
           AddChat vbRed, "BNET: CD-key banned by Battle.net!"
       Case &H201
           AddChat vbRed, "BNET: CD-key in use: " & Mid(data, 9, Len(data) - 9)
       End Select

[Arta]

This is the correct format:

Code Select Expand


(DWORD)       Client Token
(DWORD)       Version
(DWORD)       Checksum
(DWORD)       Number of keys in this packet
(BOOLEAN)    Using Spawn

For Each Key:
(DWORD)       Key Length
(DWORD)       Product
(DWORD)       CDKEY Value 1
(DWORD)       Unknown (0)
(DWORD[5])    Hashed Key Data

(STRING)       Exe Information
(STRING)       CD Key owner name


It looks to me like you are missing:

Code Select Expand


(DWORD)       Key Length
(DWORD)       Product
(DWORD)       CDKEY Value 1
(DWORD)       Unknown (0)


For both keys.

[CrAz3D]

Weird thing is that I have a simpler version of it that works fine, but once I've added it into a bigger project, actually I added the reast of my project to it, I keep becoming disconnected.

It works in the simpler version with the same code.

[Arta]

I don't know VB so maybe I'm mising something, but I don't see how that code could possibly work. It looks to me like you're missing out 16 bytes of the packet.

[Zakath]

He has got a vague "CDkeyHash" in there that presumably contains all that information. Doesn't say where he got it or exactly what's contained in it, so you might still be right.

[UserLoser]

He has got a vague "CDkeyHash" in there that presumably contains all that information. Doesn't say where he got it or exactly what's contained in it, so you might still be right.

I'm guessing he is using BNLS since there's just CDKeyHash, EXEInfo, Checksum and Version out of no where

[CrAz3D]

Correct you are Userloser.

I fixed it somehow, don't know what I did, can't remember.

[iago]

Correct you are Userloser.

I fixed it somehow, don't know what I did, can't remember.

That's an incrediably BAD thing..

[Soul Taker]

Nah it coulda been divine intervention!