Valhalla Legends Archive

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:


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


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.

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

Quote from: Arthas on October 05, 2003, 01:49 PM
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.

Ok it works great, thanks.  ;)

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...

Quote from: TriCk on October 06, 2003, 03:15 AM
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.


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.

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.


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


Quote from: Freeware on October 06, 2003, 10:55 AM

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)