1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Sremu da servera istediğin adı koy


  1. krcgkhn

    krcgkhn Gözlemliyorum rank8

    Kayıt:
    20 Şubat 2008
    Mesajlar:
    51
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    sremu dosyalarının içinde modloginserver.bas die bir modül var oradaki bir yeri deiştirdikten sonra servere istediğimiz ismi koyabiliyoruz

    Renkli olarak yazdığım yeri sadece deiştirin ve tırnakalrı unutmayın (")

    Public Function ParseLoginData(data As String, index As Integer)

    Dim dData As String
    dData = cv_HexFromString(data)

    Dim sSize As Integer
    Dim sOpcode As String
    Dim sData As String
    Dim fData As String
    Dim pLen As String

    sSize = "&H" & Mid(dData, 3, 2) & Mid(dData, 1, 2)
    sOpcode = Mid(dData, 7, 2) & Mid(dData, 5, 2)
    If sSize > 0 Then sData = Mid(dData, 13, (sSize * 2))

    Select Case sOpcode

    Case "2001" 'Client wants to know who we are

    fData = "1000"
    fData = fData & "0120"
    fData = fData & "0000"
    fData = fData & "0D00"
    fData = fData & cv_HexFromString("GatewayServer")
    fData = fData & "00"

    frmMain.LoginSocket(index).SendData cv_StringFromHex(fData)

    Case "6100" 'Client whoami. Send patch-info.

    fData = "05000D6002000101000520"
    fData = fData & "0B000D6002000001000128060500000002"
    fData = fData & "05000D6002000101000560"
    fData = fData & "06000D600200000300020002"
    fData = fData & "05000D60020001010000A1"
    fData = fData & "02000D6002000001"

    frmMain.LoginSocket(index).SendData cv_StringFromHex(fData)

    Case "9000"
    'Client accepts communication type.

    Case "2002"
    'Ping packet, ignore.

    Case "6101" 'Serverlist request...

    fData = "01A1"
    fData = fData & "0000"
    fData = fData & "0115"
    fData = fData & "1200" & cv_HexFromString("SRO_Global_TestBed") & "00"
    fData = fData & "01" 'New server
    fData = fData & "1234" 'Server ID
    fData = fData & WordFromInteger(Len("KrcGk"))
    fData = fData & cv_HexFromString("KrcGk")
    fData = fData & WordFromInteger(1) 'Users
    fData = fData & WordFromInteger(1) 'Max users (1)
    fData = fData & "01" 'Servermode (00 = check, 01 = online)
    fData = fData & "00" 'End serverlist

    pLen = (Len(fData) - Cool / 2
    fData = WordFromInteger(pLen) & fData
    frmMain.LoginSocket(index).SendData cv_StringFromHex(fData)

    Case "6102" 'Login data...

    Dim iNameSize As Integer
    Dim iPassSize As Integer
    Dim iServerID As Integer
    Dim Username As String
    Dim Password As String

    iNameSize = "&H" & Mid(sData, 5, 2) & Mid(sData, 3, 2)
    Username = cv_StringFromHex(Mid(sData, 7, iNameSize * 2))
    iPassSize = "&H" & Mid(sData, 9 + (iNameSize * 2), 2) & Mid(sData, 7 + (iNameSize * 2), 2)
    Password = cv_StringFromHex(Mid(sData, 11 + iNameSize * 2, iPassSize * 2))
    temp = Right(sData, 4)
    iServerID = "&H" & Mid(temp, 3, 2) & Mid(temp, 1, 2)

    fData = "02A1"
    fData = fData & "0000"

    Dim rPassword As String
    rPassword = iniGetStr("password", "account", (Replace(App.Path, "\", "/") & "/accounts/" & Username & ".ini"))
    If rPassword = "(error)" Or rPassword <> Password Then
    Debug.Print "Username does not exist or password is incorrect."
    fData = fData & "02" 'failed
    fData = fData & "01" 'wrong password
    fData = fData & "0100000005000000"
    Else
    fData = fData & "01" 'Success
    fData = fData & "7B000000" 'Login ID
    fData = fData & WordFromInteger(Len("127.0.0.1"))
    fData = fData & cv_HexFromString("127.0.0.1")
    fData = fData & WordFromInteger(15778) 'Port
    End If

    pLen = (Len(fData) - Cool / 2
    fData = WordFromInteger(pLen) & fData
    frmMain.LoginSocket(index).SendData cv_StringFromHex(fData)

    Case Else
    Debug.Print "Unknown opcode: "; dData; " - "; sOpcode
    End Select

    End Function


    oradaki gülücük işareti 8 ) (aradaki boşluğu silin)
     
  2. CuNDeRs

    CuNDeRs Bilgiliyim rank8

    Kayıt:
    23 Nisan 2007
    Mesajlar:
    1.306
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    Herqün Arazi
    paylaşimin için saol
     
  3. krcgkhn

    krcgkhn Gözlemliyorum rank8

    Kayıt:
    20 Şubat 2008
    Mesajlar:
    51
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    bir teşekkür yeter Embarassed
     
  4. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Tşkler