Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports SunDofus___Realm.Packet.Identification
- Imports SunDofus___Realm.Packet.Server
- Imports SunDofus___Realm.Packet.Identification.Success
- Namespace Realm
- Public Class RealmParser
- Public _ToParse As String = ("")
- Public _Client As Client.RealmClient
- Public Sub Parse()
- Select Case _Client._RealmState
- Case Client.RealmState.State.OnCheckVersion : CheckVersion()
- Case Client.RealmState.State.OnCheckAccount : CheckAccount()
- Case Client.RealmState.State.OnServerList : ServerList()
- End Select
- End Sub
- Private Sub CheckVersion()
- If _ToParse = CorrectVersion Then
- _Client._RealmState = Client.RealmState.State.OnCheckAccount
- Else
- _Client.Send(New Packet.Identification.LoginFailed _
- (LoginFailed.LoginFailed.WrongVersion))
- _Client.Disconect()
- End If
- End Sub
- Private Sub CheckAccount()
- Dim AuthStr() As String = _ToParse.Split("#")
- Dim Username As String = AuthStr(0)
- Dim Password As String = AuthStr(1)
- Dim Account As Client.RealmAccount = SQL.PG.PgAccount.GetAccount(Username)
- If Not Account Is Nothing Then
- If Utils.StringUtils.CryptPassword(Account.GetContent("password"), _Client.LoginKey) = Password Then
- If Not Account.GetContent("banned") = 1 Then
- If Not RealmServer.IsConnected(Account.GetContent("username")) Then
- _Client._Account = Account
- _Client.Update()
- _Client.Send(New Pseudo(Account.GetContent("pseudo")))
- _Client.Send(New Communauty(0))
- _Client.Send(New Hosts(GameServer.gameServerList))
- _Client.Send(New Gmlevel(Account.GetContent("gmlevel")))
- _Client._RealmState = Client.RealmState.State.OnServerList
- Utils.MyConsole.Info("Client @" & Username & "@ Successfuly authenficated")
- Else : _Client.Send(New Packet.Identification.LoginFailed _
- (LoginFailed.LoginFailed.AlreadyConnected))
- End If
- Else : _Client.Send(New Packet.Identification.LoginFailed _
- (LoginFailed.LoginFailed.Banned))
- End If
- Else : _Client.Send(New Packet.Identification.LoginFailed _
- (LoginFailed.LoginFailed.WrongAccount))
- End If
- Else : _Client.Send(New Packet.Identification.LoginFailed _
- (LoginFailed.LoginFailed.WrongAccount))
- End If
- End Sub
- Private Sub ServerList()
- Select Case Mid(_ToParse, 1, 2)
- Case ("Ax") : _Client.Send(New CharactersList(GameServer.gameServerList, _Client))
- Case ("AX")
- _Client.Send(New GameKey(GameServer.GetGameServer(_ToParse.Substring(2)), Utils.StringUtils.createGameKey))
- End Select
- End Sub
- End Class
- End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement