[vb6]
I am almost possitive that this is correct, but I keep getting disconnected from BNET after I send 0x51
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:Starcraft.exe 03/28/03 04:21:56 1064960.CrAz3D...
Maybe it is how I receive x51?
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
This is the correct format:
(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:
(DWORD) Key Length
(DWORD) Product
(DWORD) CDKEY Value 1
(DWORD) Unknown (0)
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 from: Zakath on October 10, 2003, 09:16 AM
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
Correct you are Userloser.
I fixed it somehow, don't know what I did, can't remember.
Quote from: CrAz3D on October 11, 2003, 12:40 PM
Correct you are Userloser.
I fixed it somehow, don't know what I did, can't remember.
That's an incrediably BAD thing..
Nah it coulda been divine intervention!