Diablo 2 Expansion Connection Problems

[Hero]

It ip bans me when I try to connect to diablo 2 expansion, all other clients work.

Code Select Expand

    InsertDWORD dblkey
    InsertDWORD version
    InsertDWORD CheckSum
    If varProduct = "PX2D" Then
    InsertDWORD &H2
    Else
    InsertDWORD 1
    End If
    InsertDWORD 0
    InsertDWORD Len(varCDkey)
    InsertDWORD CLng(dblProdID)
    InsertDWORD CLng(dblValue1)
    InsertDWORD 0
    InsertNonNTString AccountHash
    InsertNTString exeinfo
    InsertNTString "Register"
    sendPacket 81


Please help.

[warz]

Diablo 2 XP has 2 cdkeys. You need to supply the hashed information for both. Also, if you're going to be using the dec. value for packet id's - it'd probably be easiest to make some consts.

private const SID_AUTH_CHECK = 81

[Archangel]

(DWORD)       Client Token
(DWORD)       EXE Version
(DWORD)       EXE Hash
(DWORD)       Number of keys in this packet
(BOOLEAN)    Using Spawn (32-bit)

For Each Key:
(DWORD)       Key Length
(DWORD)       CD key's product value
(DWORD)       CD key's public value
(DWORD)       Unknown (0)
(DWORD[5])    Hashed Key Data

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

Packet Format from BNETDOCS.

Code Select Expand


    InsertDWORD dblkey
    InsertDWORD version
    InsertDWORD CheckSum

    'Number of Cd-Keys in the packet.
    If varProduct = "PX2D" Then
    '2 Cd-Keys in this packet.
    InsertDWORD &H2
    Else
    '1 Cd-Key in this packet.
    InsertDWORD 1
    End If

    InsertDWORD 0

    'Cd-Key 1 Data.
    InsertDWORD Len(varCDkey)
    InsertDWORD CLng(dblProdID)
    InsertDWORD CLng(dblValue1)
    InsertDWORD 0
    InsertNonNTString AccountHash

    If varProduct = "PX2D" Then
    'Cd-Key 2 Data.
    End if

    InsertNTString exeinfo
    InsertNTString "Register"
    sendPacket 81


[Hero]

thanks arch angel, i'm good now.

[Networks]

That's the spirit just give the newbies the code!

[Blaze]

That's the spirit just give the newbies the code!

Actually he just added comments to the person he was helpings code...

[Hero]

i love your networks, go make a bot.

[Networks]

That's the spirit just give the newbies the code!

Actually he just added comments to the person he was helpings code...

So does bnetdocs! Imagine that!

i love your networks, go make a bot.

I know you love my networks, they have good bandwidth. Nah, you're leeching one already, what's the point?

[Hero]

What one?

[Warrior]

What's with the sudden wave of arrogance? He seeked help, he got it. You havn't contributed anything to this thread except bitch about someone was helped. Good job.

[LivedKrad]

Networks is a supremacist for the racial group: Fans of Networks!

[Hero]

As I said before some one deleted my post, I shall lock this topic before networks says more stupid ass shit.