Public Function BypassLoginServer(Index As Integer)
Dim strCheat As String
strCheat = "14 " & Hexarize2("317" & vbCrLf & "Welcome to Blackd Proxy!") & "64 01 "
strCheat = strCheat & Hexarize2(frmAdvanced.txtLoginCharacter.Text) & "" ' char name
strCheat = strCheat & Hexarize2(frmAdvanced.cmbTibiaServers.Text) & "" ' gameserver name
strCheat = strCheat & "7F 00 00 01 " '127.0.0.1
strCheat = strCheat & FiveChrLon(frmMain.txtClientGameP.Text) & " " ' blackd proxy gameserver port
strCheat = strCheat & "E8 03" ' 1000 days of premium account mirage (not real)
sendStringAtStageOne Index, strCheat
DoEvents
End Function