Attribute VB_Name = "ModSpliting"
Option Explicit

Option Compare Binary
Dim tmpData As String

Public Function SplitData(Data As String, Socket As String)

If Socket = "SckClient" Then

Dim PacketHeader2 As String
If Len(Data) >= 4 Then
PacketHeader2 = Mid(Data, 2, 2)
End If

End If




If Socket = "SckServer" Then

Dim PacketHeader As String
If Len(Data) >= 2 Then
PacketHeader = Left(Data, 2)
End If

'@E18571405ArmzFF1251018001255092801329510maHHI

If PacketHeader = "@E" Then
Dim i() As String
i = Split(Data, "")
Dim Habboname As String
Habboname = i(1)
Dim HabboFigure As String
HabboFigure = i(2)
Dim HabboSex As String
HabboSex = i(3)
Dim HabboMission As String
HabboMission = i(4)
Dim RegNumber As String
RegNumber = Split(Mid(Data, 3, Len(Data)), "")(0)

FrmConnect.txt_status.Text = "Status: Habbologin was successfully. Welcome " & Habboname
FrmBrowser.SckClient.SendData ("BK" & "Welcome to YOUR_APP_HERE [" & Habboname & "]" & Chr(1))
End If

'@Aastnvs4hgshdmef8ylehpjper2q4humb2c1qftt0kf6noowjs8ybcfkcs44433ooowb3xqdlb2590gtw8hyl8t6hsnshsde8lhje24ubcqt0fnoj8bfc443ow3ql29gwhlth
If PacketHeader = "@A" Then
Dim J() As String
J = Split(Data, "
")
Dim PublicKey As String
PublicKey = Split(Mid(Data, 3, Len(Data)), "
")(0)

FrmBrowser.PublicKeySet = True
FrmBrowser.RC4D.Init
FrmBrowser.RC4E.Init
End If

End If

End Function