Sanity Free Coding

ok. putting away the fact that the server ip extraction takes a while, i got into the server query part to retrive the info, so i put the following code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click
        Dim GLOIP As IPAddress
        Dim GLOINTPORT As Integer
        Dim challenge_code1 As Byte() = New Byte() {&HFE, &HFD, &H9, &H10, &H20, &H30, &H40, &HFF, &HFF, &HFF, &H1}
        Dim udpClient As New UdpClient
        Dim pRet As Integer
        Dim HereAndNow As Date
        Dim TimeOutSecs As Integer = 10000

        GLOIP = IPAddress.Parse(TxtIp.Text)
        GLOINTPORT = TxtPort.Text
        Dim RemoteIpEndPoint As New System.Net.IPEndPoint(GLOIP, GLOINTPORT)
        pRet = udpClient.Send(challenge_code1, challenge_code1.Length, RemoteIpEndPoint)

        HereAndNow = Now.AddMilliseconds(TimeOutSecs)
        Do While udpClient.Client.Available = 0 AndAlso Now < HereAndNow
            StatusTimer.Text = "Time until timeout " & (HereAndNow - Now).ToString
            StatusStrip.Refresh()
        Loop
        StatusTimer.Text = "Time until timeout " & (HereAndNow - Now).TotalSeconds
        StatusStrip.Refresh()

        If udpClient.Available = 0 Then
            udpClient.Close()
        Else
            Dim ReceiveBytes As Byte()
            Dim ReceiveString1 As String
            Dim receivestring2 As String
            'HERE I RECEIVE THE FIRST DATA PACKET  (LENGTH = 17) --> 09,16,32,48,64,45,49,53,49,54,49,49,49,56,56,49,00
            ReceiveBytes = udpClient.Receive(RemoteIpEndPoint)
            'HERE I CONVERT THE BYTE ARRAY TO STRING --> " 0@-1516111881"
            ReceiveString1 = Encoding.Default.GetString(ReceiveBytes)
            'HERE I REMOVE THE HEADER (FIRST 5 BYTES, AND THE END LAST BYTE --> "-1516111881"
            ReceiveString1 = ReceiveString1.Substring(5, ReceiveString1.Length - 6)
            'HERE I CONVERT THE RESULT TO HEX STRING --> 2D,31,35,31,36,31,31,31,38,38,31
            receivestring2 = str2hex(ReceiveString1)
            'HERE I GRAB JUST THE LAST 8 BYTES (NOT SURE I THIS IS OK, SINCE I REMOVED THE LAST BYTE BEFORE)
            receivestring2 = receivestring2.Substring(receivestring2.Length - 8, 8)
            'HERE I CREATE THE NEW CHALLENGE CODE WITH THE REMANING DATA
            Dim challenge_code2 = New Byte() {&HFE, &HFD, &H0, &H97, &H6D, &HE, &H0, _
            CByte(receivestring2.Substring(0, 2)), CByte(receivestring2.Substring(2, 2)), _
            CByte(receivestring2.Substring(4, 2)), CByte(receivestring2.Substring(6, 2)), _
            &HFF, &HFF, &HFF, &H1}
            'HERE I SEND THE NEW CHALLENGE TOKEN, BUT IT HANGS AND TIMES OUT
            udpClient.Send(challenge_code2, challenge_code2.Length, RemoteIpEndPoint)
            Dim receiveBytes2 As Byte() = udpClient.Receive(RemoteIpEndPoint)
            TxtReceive.Text = TxtReceive.Text & vbCrLf & Encoding.Default.GetChars(receiveBytes2)
        End If
    End Sub

    Public Function str2hex(ByVal str As String) As String
        Dim hexval As String = "", i As Integer = 0, hextmp As String = ""
        Do While i < str.Length
            hextmp = Hex(Asc(str.Substring(i, 1)))
            If (hextmp.Length < 2) Then hexval &= "0" & hextmp Else hexval &= hextmp
            i += 1
        Loop
        Return hexval.ToUpper
    End Function ' OK

Last edited by winsr (22 Jun 2007 2:48 pm)

Well, i finally got it, just have a minor problem, but the hard things (communication and responce from the server) is allready done, here is the code:

Dim GLOIP As IPAddress
        Dim GLOINTPORT As Integer
        Dim challenge_code1 As Byte() = New Byte() {&HFE, &HFD, &H9, &H83, &H58, &H34, &H0}
        Dim udpClient As New UdpClient
        Dim pRet As Integer
        Dim HereAndNow As Date
        Dim TimeOutSecs As Integer = 10000
        GLOIP = IPAddress.Parse(TxtIp.Text)
        GLOINTPORT = TxtPort.Text
        Dim RemoteIpEndPoint As New System.Net.IPEndPoint(GLOIP, GLOINTPORT)
        pRet = udpClient.Send(challenge_code1, challenge_code1.Length, RemoteIpEndPoint)
        HereAndNow = Now.AddMilliseconds(TimeOutSecs)
        Do While udpClient.Client.Available = 0 AndAlso Now < HereAndNow
            StatusTimer.Text = "Time until timeout " & (HereAndNow - Now).ToString
            StatusStrip.Refresh()
        Loop
        StatusTimer.Text = "Time until timeout " & (HereAndNow - Now).TotalSeconds
        StatusStrip.Refresh()

        If udpClient.Available = 0 Then
            udpClient.Close()
        Else
            Dim ReceiveBytes As Byte()
            Dim ReceiveBytes2 As Byte()
            Dim ReceiveString1 As String
            Dim ReceiveString2 As String
            Dim ReceiveString3 As String
            Dim ReceiveLong As Long
            ReceiveBytes = udpClient.Receive(RemoteIpEndPoint)
            ReceiveString1 = Encoding.Default.GetString(ReceiveBytes)
            ReceiveString1 = ReceiveString1.Substring(5, ReceiveString1.Length - 6)
            ReceiveLong = Long.Parse(ReceiveString1)
            receivestring2 = ReceiveLong.ToString("X")
            If receivestring2.Length > 8 Then receivestring2 = receivestring2.Substring(receivestring2.Length - 8, 8)
            Select Case receivestring2.Length
                Case 7 : receivestring2 = "0" & receivestring2
                Case 6 : receivestring2 = "00" & receivestring2
                Case 5 : receivestring2 = "000" & receivestring2
                Case 4 : receivestring2 = "0000" & receivestring2
                Case 3 : receivestring2 = "00000" & receivestring2
                Case 2 : receivestring2 = "000000" & receivestring2
                Case 1 : receivestring2 = "0000000" & receivestring2
                Case 0 : receivestring2 = "00000000" & receivestring2
            End Select
            'LITE QUERY
            Dim challenge_code2 = New Byte() {&HFE, &HFD, &H0, &HB3, &H44, &HFC, &H1, _
            CByte("&H" & receivestring2.Substring(0, 2)), CByte("&H" & receivestring2.Substring(2, 2)), _
            CByte("&H" & receivestring2.Substring(4, 2)), CByte("&H" & receivestring2.Substring(6, 2)), _
            &H12, &H1, &H6, &H5, &H8, &HA, &H4, &H7, &H13, &H3, &H35, &H34, &H39, &H36, _
            &H46, &H47, &H49, &H3B, &H3A, &H0, &H0}
            'FULL QUERY
            'Dim challenge_code2 = New Byte() {&HFE, &HFD, &H0, &HB3, &H44, &HFC, &H1, _
            'CByte("&H" & receivestring2.Substring(0, 2)), CByte("&H" & receivestring2.Substring(2, 2)), _
            'CByte("&H" & receivestring2.Substring(4, 2)), CByte("&H" & receivestring2.Substring(6, 2)), _
            '&HFF, &HFF, &HFF, &H1}
            udpClient.Send(challenge_code2, challenge_code2.Length, RemoteIpEndPoint)
            ReceiveBytes2 = udpClient.Receive(RemoteIpEndPoint)
            ReceiveString3 = Encoding.Default.GetString(ReceiveBytes2)
            Me.TxtReceive.Text = ReceiveString3

ReceiveString3 = Encoding.Default.GetString(ReceiveBytes2)

ReceiveString3 = Encoding.Default.GetString(ReceiveBytes2,1,100)

So, ill just post another update, i have managed to order the full query packets so i have all the info i need on the right order, not only the player info comes on the packet, also the PID, which makes finding players A LOT easier.

Great work, I'll have to check it out.

yea Mort was wanting to know about the in game buddy list stuff, but to access that requires the same process as logging in (its part of what gets passed over during the login process).

I'm really behind on extra-curricular projects at the moment (I still have Butcher's mail script to check out).  I've been out for a while.  I sold my old house and bought my new one june 29th, and on the same day I found out that the company I worked for was sacking me (long story).  I've started up a new company (vizual f/x studios) and am now in the process of getting everything up and running (getting office space, hiring a few game developers, getting all the software and hardware I need, and so on), so I've been quite tied up.

I have the packet dumps of the protocol, but since it has the the login stuff with it (and lord only knows how they're doing the challenge / request token on that) I haven't had much time to decompile the client to see what its doing.

lol@the-the-page-graphic.com, yea, thats because that guy and girl looking at the laptop is a royalty free image, so I'm sure a lot of web developers have used it.  I just created that theme real quick because we used to just have a public forum, but someone had hacked the forum and filled it with pron, so I had to get something up quick so that we didn't have investors looking pr0n links.

I'm re-designing it now, and its going to be a darker cooler looking design.

There are quite a few things that sets this game apart from other games, like being able to go anywhere, see anything, modify anything and so on.  another hot thing is being able to have all the seamless transition (visually).

yea there are other visual f/x companies but ours is spelled with a z (vizual f/x studios) and to my knowledge none of them are game studios.

at the moment we use joomla for the website, and they have quite a few plugins for forums (smf being the widest used as far as I can tell) and it integrates with the rest of the website authentication.

I can speak too much about the game right now.  It's going to have quite a few things that haven't ever been seen in one game before (yea the barrage of missles could blow up another space ship sending massive amounts of metal flying through space, you could blow up a planet killing everyone living there and sending massive amounts of planet into the rest of the solar system which would probably cause some major problems to the solar system).  The game has an over all story line and objective, but is--for the most part--open ended, so the game becomes what you make of it.  each player can make up story lines, create quests and so on.  one of the big things is that the game is going to have whats known as a virtual economy (similar to second life) where real money maps to game money.  unlike other games that do this, money transactions can happen both ways (you'll be able to invest real money into your virtual life, as well as be able to cash out game money for real money) which allows you to become a really wealthy player in game as well as out of game.  we'll also have associations with retailers and so forth so you could exchange some of your game money (and loose less on the cash out process) on a gift cert. for a local store or something to that effect.

we'll have a couple of 20 core IBM Cell processor (Cell Broadband Engine) blade servers running the simulation that will end up processing that type of thing (large scale destruction), as well as running physics on hardware on the client side (to accurately render the animation on the client side).

20 core?! Does that mean that you are creating customized hardware? Wouldn't it cost a lot to produce them? Seems very advanced , will probably get you a lot of players just to see the awesome graphical options.

Hey winsr, your app doesn't work on 64 bit machines because you use microsoft jet oledb 4.0 which does not have a 64 bit version.  are you using this to access an access database?  if so you may want to use firebird which can actually embed into your app (no need to have a database installed to run the app but you'll have the full blown access to a database as if you did, which means you can store all the data from EA as well as stats for servers and players on those servers).

here's the stack trace:

System.InvalidOperationException: The 'Microsoft.Jet.OLEDB.4.0' provider is not registered on the local machine.
   at System.Data.OleDb.OleDbServicesWrapper.GetDataSource(OleDbConnectionString constr, DataSourceWrapper& datasrcWrapper)
   at System.Data.OleDb.OleDbConnectionInternal..ctor(OleDbConnectionString constr, OleDbConnection connection)
   at System.Data.OleDb.OleDbConnectionFactory.CreateConnection(DbConnectionOptions options, Object poolGroupProviderInfo, DbConnectionPool pool, DbConnection owningObject)
   at System.Data.ProviderBase.DbConnectionFactory.CreateNonPooledConnection(DbConnection owningConnection, DbConnectionPoolGroup poolGroup)
   at System.Data.ProviderBase.DbConnectionFactory.GetConnection(DbConnection owningConnection)
   at System.Data.ProviderBase.DbConnectionClosed.OpenConnection(DbConnection outerConnection, DbConnectionFactory connectionFactory)
   at System.Data.OleDb.OleDbConnection.Open()
   at System.Data.Common.DbDataAdapter.QuietOpen(IDbConnection connection, ConnectionState& originalState)
   at System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   at System.Data.Common.DbDataAdapter.Fill(DataTable[] dataTables, Int32 startRecord, Int32 maxRecords, IDbCommand command, CommandBehavior behavior)
   at System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)
   at BF2142_Stats.BFStatsDataSetTableAdapters.SettingsTableAdapter.Fill(SettingsDataTable dataTable)
   at BF2142_Stats.FrmBF2142Main.LoadSettingsTA()
   at BF2142_Stats.FrmBF2142Main.FrmMain_Load(Object sender, EventArgs e)
   at System.EventHandler.Invoke(Object sender, EventArgs e)
   at System.Windows.Forms.Form.OnLoad(EventArgs e)
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.Control.CreateControl()
   at System.Windows.Forms.Control.WmShowWindow(Message& m)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

Microsoft.Jet.OLEDB.4.0 was pulled out of mdac at some point, and there are installers for it, but only for 32 bit versions.

its not included in mdac anymore, and the ones that do, do not install on 64 bit machines.

well after a little bit of investigation, i have found a nice way to fix it

Ill just force the application to compile on x86 , it should work on your computer and any other x64 MS OS out there.

Ill deploy a new version tomorow, luckily it will auto update yours, and you will be able to use now. This one its for you, and all the good advice you gave me.