[Release] LC-Server fertig / Basierend auf -AquaLung- dateien

Quote:

Originally Posted by Schiriki Auf jeden Fall ist es ein Anfang, es gab ja schon Aion-Privatserver als man nur "herumlaufen" konnte. Allerdings war zu dem Zeitpunkt meines Wissens immerhin schon die Charerstellung möglich / Der Server konnte eigene Pakete und nicht nur festgelegte senden. Ich gehe nicht davon aus, dass das hier schon so weit fortgeschritten ist. Trotzdem bin ich naürlich gespannt was es wird :)

Quote:

Originally Posted by Schiriki Auf jeden Fall ist es ein Anfang, es gab ja schon Aion-Privatserver als man nur "herumlaufen" konnte. Allerdings war zu dem Zeitpunkt meines Wissens immerhin schon die Charerstellung möglich / Der Server konnte eigene Pakete und nicht nur festgelegte senden. Ich gehe nicht davon aus, dass das hier schon so weit fortgeschritten ist. Trotzdem bin ich naürlich gespannt was es wird :)

Quote:

Originally Posted by dsfgd Bei meinem Emu kann man rumlaufen, Char erstellen, Char löschen, Items an/ablegen, items bewegen und etwas mit sich selbst chatten ^^ Sowas ist nicht sonderlich kompliziert, schwieriger wird es die NPC erscheinen/verschwinden zu lassen wenn sich player nähert/entfernt, monster angreifbar machen, die ganzen serverseitigen berechnungen (Schaden, Ausweichen etc...) Momentan arbeite ich daran, das man per GM Befehl items/npc's spawnen kann, dafür reverse ich u.a. den gameserver der 2005er files um mir das ganze um einiges zu erleichtern.

Quote:

Originally Posted by Progaming? ich wollte wissen auch wenn ich weiß ,dass es doof klingt ,wie bekomme ich einen account auf dem server dann hin? thx im vorraus

Quote:

Originally Posted by dsfgd that's just the "encrypted data" part add 01 00 00 00 EA before the package and 00 00 after the whole package should look like this: Code: 01 81 00 00 00 00 00 00 00 00 00 F1 - 12 byte Header (0xF1 = EncryptedHeaderSize + DataSize + keysize) 01 00 00 00 EA - 5 Byte Header (0xEA = DataSize) 22 00 00 00 01 00 00 00 06 00 00 00 04 00 00 00 01 00 00 00 01 00 00 00 08 00 - Data 00 00 00 01 00 00 08 AD 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 05 00 00 00 02 00 00 08 73 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 06 00 00 00 03 00 00 08 54 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 07 00 00 00 04 00 00 08 38 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 08 00 00 00 05 00 00 08 7B 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 09 00 00 00 06 00 00 08 16 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 0A 00 00 00 07 00 00 08 0F 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 0B 00 00 00 08 00 00 08 16 32 31 32 2E 37 2E 32 30 37 2E 31 38 35 00 00 00 10 0C 00 00 - Key ?

Quote:

Originally Posted by wizatek Great! that worked perfectly, Thanks! Just, how is it possible u can sniff those packets ? When i activate the encryption and login on 777 and such i can only see the encrypted packages. But when i turn the encryption off, then i cant login to 777. U mentioned something about seeing it with ollydbg. Does olly lets u see the unencrypted packets somehow ? (i know nearly nothing about asm :P )

Quote:

01 81 00 00 00 00 00 00 00 00 00 39 01 00 00 00 30 22 00 00 00 01 00 00 00 06 00 00 00 04 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 00 01 00 00 08 ad 31 32 37 2e 30 2e 30 2e 31 00 00 00 10 05 00 00

Quote:

Originally Posted by wizatek well the fact that u can see the npc's is already verry impressive. i guess u have to take the players coordinates and send the package that says there is a mob in that range or something ? :P Im still stuck on the login part of EP2. the packet u gave me works perfect. I guess the client searches first if there is a gameserver listening to that ip/port and when it is, then it shows the channels. ] I used that package to send back after the login request. It sends 127.0.0.1 but i have no idea why it does not want to connect. I tought maybe there is a port number in it also maybe

    Public Shared Sub ServerList(ByVal packethandler As PacketHandler)
        Dim pc As New PacketCreator(packethandler.handler)

        Dim ChannelCount As Integer = 8
        Dim ServerCount As Integer = 1
        Dim LastLoggedInServer As Integer = 1
        Dim LastLoggedInChannel As Integer = 1

        pc.addByte(&H22) 'Opcode
        pc.addInt(LastLoggedInServer)
        pc.addInt(LastLoggedInChannel)
        pc.addInt(ServerCount)
        pc.addInt(1) 'ServerID
        pc.addInt(1) 'ServerID
        pc.addInt(ChannelCount)
        pc.addByte(0) ' ???

        For x As Integer = 0 To ChannelCount - 1
            pc.addInt(x + 1) 'ChannelID
            pc.addInt(&H8AD) ' ServerState
            pc.addString("127.0.0.1")
            pc.addInt(4110 + x) ' Gameserver Port
        Next x

        pc.addByte(0)
        pc.addByte(0)
        pc.send()
    End Sub