Makeservers

[WTFMATE]

Hi, i'm adding Realm to my bot (torn`bot) and I need the makeserver function for it... does anyone have this?
           CLaN vA

[PaiD]

What would this function do?

[BinaryzL]

Converts the raw data from battle.net to the Realm server IP address.

[BaDDBLooD]

You conver it to Long

than you turn it into hex

that's basically the function ;O

[PaiD]

I wanted him to answer that 1 b/c he comes here and asking us for the "makeserver" function. I know what it does BinaryzL but thx.

[BaDDBLooD]

yeah..

i have only seen the "makeserver" function in one bot...   ... SOUP BOT!!!!!!!

[BinaryzL]

I believe you convert the string to hex values first then convert it to a long in the "makeserver" function.

[Networks]

Code Select Expand


Public Function MakeServer(data As String) As String
   MakeServer = CLng("&H" & ToHex(Mid(data, 1, 1))) & "." & CLng("&H" & ToHex(Mid(data, 2, 1))) & "." & CLng("&H" & ToHex(Mid(data, 3, 1))) & "." & CLng("&H" & ToHex(Mid(data, 4, 1)))
End Function


[WTFMATE]

I would also need...

Code Select Expand


Public Function ToHex(Data As String) As String
Dim i As Integer
For i = 1 To Len(Data)
   ToHex = ToHex & Right("00" & Hex(Asc(Mid(Data, i, 1))), 2)
Next i
End Function


I was looking at soup bot LOD and i put it all in and it says argument type mismatch for

Code Select Expand


.InsertNTString BNCSName


Would'nt I?

[PaiD]

WTFMATE: You tell us. Does the "Makeservers" function call for the "ToHex" function or not?

Edit: Spelling

[BaDDBLooD]

networks.. why did you give him that >_<

[WTFMATE]

Yes, It would.... Read my edit!

all that is.. is ur username correct?

[BinaryzL]

Longer version of the original "makeserver" that I just made for fun ;p

Code Select Expand

Public Function MakeServer2(strData As String) As String
Dim i As Integer, strBuffer As String

   If strData = vbNullString Then Exit Function
   
   For i = 1 To Len(strData) ' Should always be four but what the heck '
       strBuffer = strBuffer & CLng("&H" & ToHex(Mid$(strData, i, 1)))
       If i <> Len(strData) Then strBuffer = strBuffer & "."
   Next i

   MakeServer2 = strBuffer
End Function

[WTFMATE]

that is what the string is sending... is the username or vuser if you will... (the name used to connect to battle.net)

Code Select Expand



   .InsertNonNTString p1 & p2
   .InsertNTString vUser
   .SendMCPPacket &H1



[BinaryzL]

I would also need...

Code Select Expand


Public Function ToHex(Data As String) As String
Dim i As Integer
For i = 1 To Len(Data)
   ToHex = ToHex & Right("00" & Hex(Asc(Mid(Data, i, 1))), 2)
Next i
End Function


I was looking at soup bot LOD and i put it all in and it says argument type mismatch for

Code Select Expand


.InsertNTString BNCSName


Would'nt I?

BNCSName has nothing to do with the makeserver function; your probably getting a type mismatch because BNCSName isn't a string?