Attribute VB_Name = "modClientPackets"
Public RC4E As New clsHabboRC4
Public RC4D As New clsHabboRC4
Public Keysetted As Boolean
Public PublicKey As String
Public Function Client(Data As String)
'RC4 Encryption Set Key
Dim Header As String 'Dims a VAr
Header = Mid(Data, 1, 2) 'Split Header
If Header = "@A" Then 'Fetsch Key Packet
Dim j() As String 'Dims a Var
j = Split(Data, "
") ' Split the Key
Dim DimKey As String ' Dims the DimKey
DimKey = Split(Mid(Data, 3, Len(Data)), "
")(0) 'Split the Key complete
RC4E.setKey (DimKey) 'SetKey
RC4D.setKey (DimKey) 'SetKey
PublicKey = DimKey ' Make Pulic Key
Keysetted = True 'Key is Setted
End If 'Endif
End Function