BNLS Connection Disconnected

[Freeware]

On connecting to BNLS, I send the 0x0E packet with a valid BNLS userid, but I get disconnected right after sending it, and nothing is returned at all. Im pretty sure im doing it right, but then again maybe im not. Here my code:

Code Select Expand


With packetbuf
.InsertNTString strBNLSname
.SendBNLSPacket sckBNLS, &HE
End With


[Skywing]

That has been fixed (mostly).  There was a problem with the authorization database, so it was restored from a backup.  I re-added a number of accounts added between now and the time of the most recent backup; however, if you have a recently issued ID/password and find that it isn't working, you'll need to get it re-added.

[Arthas]

Hey Skywing; mine was deleted. When would be the best time to contact you, or someone else to get it re-added? Currently everyone in Op [vL] is AFK :-D

[Skywing]

Hey Skywing; mine was deleted. When would be the best time to contact you, or someone else to get it re-added? Currently everyone in Op [vL] is AFK :-D

Actually, I'm there now - either contact me on Battle.net or send me a forum message.

[Freeware]

Ok it works great, thanks.  

[TriCk]

Hey.... umm how does this work ...
Where would i put the pw... also my ID may of expired so i would like to get a new one too...

[Freeware]

Hey.... umm how does this work ...
Where would i put the pw... also my ID may of expired so i would like to get a new one too...

The password is sent later with a simple checksum alithogram.

Code Select Expand


Public Function BNLSChecksum(ByVal Password As String, ByVal ServerCode As Long) As Long
   BNLSChecksum = CRC32(Password & Right("0000000" & hex(ServerCode), 8))
End Function


Of course you will still need the CRC32 code, so if you dont have it ask me.

[Freeware]

Ok this problem is happening again... Upon sending my username I get disconnected, and Im sure the screename is valid because I tried it with CleanSlateBot and it works fine.

Code Select Expand


With packetbuf
.InsertNTString strBNLSname
.SendBNLSPacket sckBNLS, &HE
End With


[Adron]

Code Select Expand


Public Function BNLSChecksum(ByVal Password As String, ByVal ServerCode As Long) As Long
   BNLSChecksum = CRC32(Password & Right("0000000" & hex(ServerCode), 8))
End Function


Why was this function selected? (Especially with CRC being a linear function and all)