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

If FrmBrowser.PacketSplitted = True Then
  data = tmpData & data
  FrmBrowser.PacketSplitted = False
End If

If Len(data) >= 1400 Then
  If PacketHeader = "@_" Then
  tmpData = data
  FrmBrowser.PacketSplitted = True
  Exit Function
  End If
Else
FrmBrowser.PacketSplitted = False
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 SnG Fun Version 1 [" & 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.RC4D.setKey (PublicKey)
FrmBrowser.RC4E.setKey (PublicKey)
FrmBrowser.PublicKey = PublicKey
End If

End If

End Function