[REL] SSO Without MYSQL

[Osiphen]

Easy,1 minute of work,GIVE ME CREDIT!!!!

May not work if you dont edit it abit,but it works mostly :P


ModPacketcheck.bas

'-----------------------------------------------------------------------
' ______          _        _     _____ _               _               '
' | ___ \        | |      | |   /  __ \ |             | |              '
' | |_/ /_ _  ___| | _____| |_  | /  \/ |__   ___  ___| | __           '
' |  __/ _` |/ __| |/ / _ \ __| | |   | '_ \ / _ \/ __| |/ /           '
' | | | (_| | (__|   <  __/ |_  | \__/\ | | |  __/ (__|   <            '
' \_|  \__,_|\___|_|\_\___|\__|  \____/_| |_|\___|\___|_|\_\           '
'                                                                      '
'-----------------------------------------------------------------------
Public Function DeterminePacket(Incdata As String, index As Integer)
Dim PacketHeader As String
Dim PacketRest As String
PacketHeader = Mid(Incdata, 4, 2)
PacketRest = Mid(Incdata, 6)


Select Case PacketHeader
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' _                 _         _____                                 '
'| |               (_)       /  ___|         | |                    '
'| |     ___   __ _ _ _ __   \ `--. _   _ ___| |_ ___ _ __ ___      '
'| |    / _ \ / _` | | '_ \   `--. \ | | / __| __/ _ \ '_ ` _ \     '
'| |___| (_) | (_| | | | | | /\__/ / |_| \__ \ ||  __/ | | | | |    '
'\_____/\___/ \__, |_|_| |_| \____/ \__, |___/\__\___|_| |_| |_|    '
'              __/ |                 __/ |                          '
'             |___/                 |___/                           '
'                                                                   '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "CN"
Call SendData(index, "DUIH" & Chr(1))

Case "CJ"
Call SendData(index, "DAQBHIIIKHJIPAIQAdd-MM-yyyyRAHSAHPBhttp://hotel-uk" & Chr(2) & Chr(1))

Case "CL"
Dim SSO_USERNAME As String
SSO_TICKET = Mid(PacketRest, 3)
SSO_USERNAME = Split(SSO_TICKET, "+")(0)
SSO_PASSWORD = Split(SSO_TICKET, "+")(1)

If GetData("Password", SSO_USERNAME) = SSO_PASSWORD Then
HabboUsername(index) = SSO_USERNAME
Dim Socket As String
Socket = index
        Call HabboSocket(SSO_USERNAME, index)
        Call UpdateAccountID(HabboID(index), "LastLogin", Date & " " & Time)
        Call UpdateAccountID(HabboID(index), "LastIP", FrmMain.SckCon(index).RemoteHostIP)
        
        
Call SendData(index, "@E19299095" & Chr(2) & SSO_USERNAME & Chr(2) & GetData("Apperance", SSO_USERNAME) & "mOh my lifeHch=s02/253,146,160HI")
Call SendData(index, "@Gclub_habbo" & Chr(2) & "HHHI" & Chr(1))
Call SendData(index, "@F0.0")
Call SendData(index, "BK" & FULLPCSPEC & Chr(1))
Call UpdateAccount(HabboUsername(index), "Online", "1")
Call SendData(index, "@Bfuse_room_queue_defaultfuse_buy_creditsfuse_logindefaultfuse_trade")
Call SendData(index, "DbIH@C" & Chr(13))


Else
Call SendData(index, "BK" & "Sorry! Username / Password Is Wrong." & Chr(1))
AddActivity "] Client [" & index & "] Bad Login!"
End If








Case "BV"
Call SendData(index, "@L")
DoEvents
Call SendData(index, PublicList)



Case "Bv"
Call SendData(index, "@L")
FrmMain.SckCon(index).SendData ("DB0")

Case "@}"


Case "@B"
Dim Room As String
RoomID(index) = Mid(PacketRest, 2)
Room = GETNAVINUM(RoomID(index))
CurrentRoomID(index) = Room
RoomID(index) = NAVIROOMS2(Room, "Room_Title")

CUR = NAVIROOMS2(GetROOMID(RoomID(index)), "Current_Population")
Max = NAVIROOMS2(GetROOMID(RoomID(index)), "Max_Population")
If CUR = Max Then
Call SendData(index, "@r" & Chr(1))
Call SendData(index, "BKRoom Full" & Chr(1))
Exit Function
End If

Call SendData(index, "@S")
Call SendData(index, "Bfhttp://hotel-uk/client.pub." & GetPublicRoomData(GetROOMODELID(RoomID(index)), "Code1") & ".0" & Chr(1) & "AE" & GetPublicRoomData(GetROOMODELID(RoomID(index)), "Code2"))


Case "@u"
Call SendToRoom(index, "@]" & index & "")
Call UpdateAccountID(HabboID(index), "Room", "0")

Case "As"
Call SendToRoom(index, "@]" & index & "")
Call SendData(index, "@R" & Chr(1))


Case "A~"
Call SendData(index, "@_" & GetMap(GetROOMODELID(RoomID(index))) & Chr(1))
Call UpdateAccountID(GetData("ID", HabboUsername(index)), "Room", GetROOMID(RoomID(index)))


'Call SendToRoom(index, "@\i:" & index & Chr(13) & "a:" & "19299095" & Chr(13) & "n:" & HabboUsername(index) & Chr(13) & "f:" & CurrentFigure(HabboUsername(index)) & Chr(13) & "l:" & GetPublicRoomData(GetROOMODELID(RoomID(index)), "StartingPoss") & " 0.0" & Chr(13) & "c:ffff" & Chr(13) & "s: " & CurrentGender(HabboUsername(index)) & Chr(1))
Call SendData(index, "@^" & GetFur(GetROOMODELID(RoomID(index))) & Chr(13) & Chr(1))
DoEvents
Call SendData(index, "@`H")



Case "@~"
'Call UpdateAccountID(GetData("ID", HabboUsername(index)), "Room", GetROOMID(RoomID(index)))
Dim x As String
Dim Y As String
Dim a As String
a = GetPublicNAVRoomData(CurrentRoomID(index), "Room_Code")

x = Split(GetPublicRoomData(a, "StartingPoss"), " ")(0)
Y = Split(GetPublicRoomData(a, "StartingPoss"), " ")(1)
Call UpdateAccountID(index, "Posx", x)
Call UpdateAccountID(index, "Posy", Y)
Call SendDudes(index, CurrentRoomID(index))


Case "@t"
Dim saocket As String
saocket = index
Call SendToRoom(index, "@X" & VL64Encode(saocket) & Mid(PacketRest, 3) & Chr(2) & Chr(1))

Case "@w"
saocket = index
Call SendToRoom(index, "@Z" & VL64Encode(saocket) & Mid(PacketRest, 3) & Chr(2) & Chr(1))

Case "@x"
saocket = index
Call SendToRoom(index, "@Y" & VL64Encode(saocket) & Mid(PacketRest, 3) & Chr(2) & Chr(1))

Case "AK"
Dim wantingx As String
Dim wantingy As String
wantingx = DecodeB64(Mid(PacketRest, 1, 2))
wantingy = DecodeB64(Mid(PacketRest, 3, 2))
Call SendToRoom(index, "@b" & index & " " & wantingx & "," & wantingy & ",0.0,5,6/" & Chr(13) & Chr(1))
Call UpdateAccountID(GetData("ID", HabboUsername(index)), "Posx", wantingx)
Call UpdateAccountID(index, "Posy", wantingy)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Select
End Function

[MentaL]

[NGangsta]

:O that looks nice ! i don't know if it works but it looks good:)

[Osiphen]

:) i tested myself and made myself aswell :P

[kuifjesjors]

I know, It's a noob question but why isn't there include a loader file?

[Osiphen]

its a code -.- not a server :P

[Nero]

Can u show us a example? ;)

good work

[Osiphen]

:) thanks mr. Nero the pwner i cant really give an example :P

[NGangsta]

Why not codyman give us a screenie of you SSOlogin

[Nero]

mr nero the pwner lol? what u mean

[mikesmack]

Taken from Atlantic Server (Free MySQL opensource server).

[flame237]

nice gonna use this XD

[James]

Sweet, You ripped it from, Atlantic Server, Source.

[q1w2e3]

Where can I find the Atlantic Server?

[Nillus]

Yup, it's from Atlantic Server, I recognized it on the LOGIN SYSTEM ASCII art etc.

Credit me.
Go to hell.
Credit Grape from Atlantic Server you would mean.

Thread restyle:
Hey since I'm such a lamer who likes being credited for someone elses stuff, I hereby release the Atlantic Server SSO login, credits to me and not to Grape.
It was easy, one minute of work ripping it from Atlantic Server source, but because I'm dumb I forgot to tell that some functions used are not part of USA111 source.

Case "CL"
Dim SSO_USERNAME As String
SSO_TICKET = Mid(PacketRest, 3)
SSO_USERNAME = Split(SSO_TICKET, "+")(0)
SSO_PASSWORD = Split(SSO_TICKET, "+")(1)

If GetData("Password", SSO_USERNAME) = SSO_PASSWORD Then
HabboUsername(index) = SSO_USERNAME
Dim Socket As String
Socket = index
        Call HabboSocket(SSO_USERNAME, index)
        Call UpdateAccountID(HabboID(index), "LastLogin", Date & " " & Time)
        Call UpdateAccountID(HabboID(index), "LastIP", FrmMain.SckCon(index).RemoteHostIP)
        
        
Call SendData(index, "@E19299095" & Chr(2) & SSO_USERNAME & Chr(2) & GetData("Apperance", SSO_USERNAME) & "mOh my lifeHch=s02/253,146,160HI")
Call SendData(index, "@Gclub_habbo" & Chr(2) & "HHHI" & Chr(1))
Call SendData(index, "@F0.0")
Call SendData(index, "BK" & FULLPCSPEC & Chr(1))
Call UpdateAccount(HabboUsername(index), "Online", "1")
Call SendData(index, "@Bfuse_room_queue_defaultfuse_buy_creditsfuse_logindefaultfuse_trade")
Call SendData(index, "DbIH@C" & Chr(13))
Else
Call SendData(index, "BK" & "Sorry! Username / Password Is Wrong." & Chr(1))
AddActivity "] Client [" & index & "] Bad Login!"
End If

Change your thread to that and god will retrieve you from hell.
No funny jokes about Jetgod/jetdog now lol, you know what happened to him.

Waves'
Nillus

[Cask]

Lols@this nub.
:)