[vb6]
I am almost possitive that this is correct, but I keep getting disconnected from BNET after I send 0x51
[code]
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
[/code]

The product was SEXP & I saw that exeinfo was:[code]Starcraft.exe 03/28/03 04:21:56 1064960.CrAz3D...[/code]


Maybe it is how I receive x51?
[code]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[/code]

This is the correct format:

[code]
(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
[/code]

It looks to me like you are missing:

[code]
(DWORD)       Key Length
(DWORD)       Product
(DWORD)       CDKEY Value 1
(DWORD)       Unknown (0)
[/code]

For both keys.

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.

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.

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.

[quote author=Zakath link=board=17;threadid=3019;start=0#msg23654 date=1065795394]
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.
[/quote]
I'm guessing he is using BNLS since there's just CDKeyHash, EXEInfo, Checksum and Version out of no where

Correct you are Userloser.

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

[quote author=CrAz3D link=board=17;threadid=3019;start=0#msg23820 date=1065894008]
Correct you are Userloser.

I fixed it somehow, don't know what I did, can't remember.
[/quote]

That's an incrediably BAD thing..

Nah it coulda been divine intervention!