Packete umrechnen ?! (New: Login-Packete)

Dr.No · 4. März 2011

user000user schrieb:

müssen da nicht noch diese security bytes rein?

Habe nie Security Bytes benutzt. Bin da überfragt, aufjedenfall hat das so immer bei mir funktioniert, wenn man NuConnector, o.a. benutzt.
Hier ein Code um das vllt besser zu verstehen.

[cs]#Include <String.au3>
$String = "0107460B000000"
$Opcode = "7158"
$StringLength = ChangeStringLength(Hex(StringLen($String)/2,4))
$Opcode = ChangeOpcode($Opcode)
$Packet = "0x"&$StringLength&$Opcode&$String
MsgBox(0,"",$Packet)

Func ChangeStringLength($StringLength)
$StringLength = StringMid($StringLength,3,2)&StringMid($StringLength,1,2)
Return $StringLength
EndFunc

Func ChangeOpcode($Opcode)
$Opcode = StringMid($Opcode,3,2)&StringMid($Opcode,1,2)
Return $Opcode
EndFunc[/cs]

Awesome · 5. März 2011

Dr.No , leider klappt das nicht.
Wenn ich das mit diesem Packet mache:

Code

; Pferd aufsteigen (lvl 30)
;~ [C->J](7158)0107460B000000

Kommt bei mir das raus:

Code

0x070058710107460B000000

Habe es dann so mit TCPSend versucht:

Code

TCPSend($iSocket, "0x070058710107460B000000")

vergebens.

Wie es richtig aussehen müsste und klappt ist dieser code:

Code

TCPSend($iSocket, _HexToString("03004C70030018EC11")

Wie ich dadrauf komme ?
Habe einfach ein AutoIt code gestartet wo er alle Packete empfängt, bin an eine verlassene Stelle in Downhang gegangen und habe ein Pferd gespawnt.
Dann stand unten in der Console (von au3) dieser Code 03004C70030018EC11.
Nunja ich finde es doof, dass ich immer noch nicht weiß wie man es anders machen könnte.

kuhkuh · 5. März 2011

Dr.No schrieb:

Der Befehl würde dann so ausehen:
TCPSend($iSocket,"0x070058710107460B000000")
Glaube ich jedenfalls^^

@Awesome
Ich schau mir das jetzt auch mal genauer an und werde ein Lv10 Horse spawnen lassen.
(Hab keinen höheren Char als 13 in iSRO) xD

Kuh :>

EDIT: Ich werd's in rSRO testen.

Also:
Das Packet ist wie folgt aufgebaut:
S->C(eigentlich C->S)
Encrypted !
Opcode(rSRO):
704C

DATA:
[BYTE] InventoryPosition Wichtig: Erster Slot, erste Seite = 0D ! Nicht 00, weil man die CharSlots mitrechnen muss.
[BYTE] EC (bleibt konstant)
[BYTE] 11 (Evtl. sowas wie eine TypID) 11 = Horse !?

Nun zu deinem Packet:

Code

03004C70030018EC11

0300 - SecurityBytes
4C70 - Opcode 704C, da 4C70 inversed werden muss. Sprich: Die beiden Bytes werden gedreht.
0300 - PacketLength
18 - InventoryPosition = 18(16) = 24(10)
EC - Konstante
11 - TypID = Horse

Fazit:
Genau das, was ich auch herausgefunden habe :>
Nichts da mit dem Packet mit dem Opcode "7158"

Kuh geht pennen

Awesome · 5. März 2011

Danke kuhkuh für deine Antwort & hilfe.

Habe das Pferd mal auf 30verschiedene Slots gepackt.
Resultat:

Code

;~ Pferd level (30) spawnen
;~ TCPSend($iSocket, _HexToString("03004C7003000DEC11"))
; 03004C7003000DEC11 = Slot 1
; 03004C7003000EEC11 = Slot 2
; 03004C7003000FEC11 = Slot 3

Packete die ich empfangen habe durch 'Silkroad Packet Analysator OS'

Code

[C->J](7158)0107460B000000

Nun habe ich 2. fragen

1 :Gibt es eine möglichkeit raus zu finden wo sich Pferde im Inventar befinden ?
2 :Gibt es eine möglichkeit die Packete die sich im laufe des Spiels ändern zu analysieren ? z.B. Skills ? Pot menge ?

dongdong · 5. März 2011

Natürlich kannst du das machen

Aber noch kurz zur Berichtigung:
Ihr redet über das "Use Item" Packet, dass erste (data) Byte ist der Slot das stimmt schonmal, danach kommt allerdings ein Word was angibt, welchen "Effekt" das Item hat. Das "0xEC" ist also nicht konstant.
Alle Angaben in Network Order, müssten also eig. noch umgedreht werden (aber so im Packet stehen)
0xEC09 = ret Scroll
0xEC08 = hp pot
0xEC10 = mp pot
0x6C31 = universal pill

So und wenn ihr ein Packet versenden wollt, solltet ihr schon wissen wie das aufgebaut sein soll:
Zunächst kommt der Header:
[Word]Length
[Word]Opcode
[Byte]Security Byte
[Byte]Security Byte
Danach kommt der Data Abschnitt, der genau Length Bytes lang ist und den eig. Inhalt des Packets beinhaltet.
Da Ihr mit Nuconnector arbeitet müsst ihr über die Security Bytes die Richtung angeben, ob das Packet zum Client oder zum Server gesendet werden soll und ob es gecryptet sein soll oder nicht
(Auschnitt aus DickerNoobs Analyzer)

Code

if (Encrypted)
{
if (ToServer)
{
Packet = Len + Opcode + "0300" + Data;
}
else
{
Packet = Len + Opcode + "0400" + Data;
}
}
else
{
if (ToServer)
{
Packet = Len + Opcode + "0100" + Data;
}
else
{
Packet = Len + Opcode + "0200" + Data;
}
}

Alles anzeigen

Gecryptet wird dann durch den Proxy. Wenn ihr die Length setzt, müsst ihr daran denken, dass der Header nicht mitgerechnet wird. Und die Bytes im Packet müssen Network Order sein (ich glaube so nennt man das sicher bin ich mir aber nicht :P), d.h. die Bytes werden so zusagen von hinten nach vorne geschrieben. Also wenn ihr ein Packet mit der Länge 9 habt (Data Abschnitt!) dann ist das als Word ausgeschrieben 00 09 = 9 und im Packet muss dann 09 00 stehen. Bei einem DWORD A2 B5 56 34, dann ist das Network Order 34 56 B5 A2.
Ich hoffe ich konnte euch dadurch etwas klarer machen, wie das mit den Packets funktioniert.

So und jetzt nochmal zu Awesome:
1. Wenn dein Charakter gespawned wird bekommst du ein Packet mit den Daten zu deinem Character. Da kommt dann auch der Inventory Inhalt mit. Den musst du parsen und abspeichern. Auch wenn du ingame ein Item kaufst, aufsammelst, verschiebst, usw. bekommst du ein Inventory Update Packet. Da steht dann der Slot usw. drin, dass kannst du dann auch parsen und weißt was du wie zu verschieben hast.

2. Du musst alle Packets die du receivest nach dem Opcode untersuchen. Also du holst dir den Opcode und machst dann eine Switch Case Abfrage und kannst das Packet dann weiter analysieren.

Dr.No · 5. März 2011

Ok, habe dann die Security Bytes vergessen, aber sonst war mein Code ja eigentlich richtig, bloß, dass was vom Analyser kommt ist dann ja falsch.

Awesome · 5. März 2011

dongdong : Erstmal ein riesen dankeschön

- - -
Habe nun aus dem AutoIt-Clientless von drew benton den Aufbau fürs Char auslesen genommen und es klappt wunderbar.
Nun weiß ich auch wie des genauer geht.
Hier mal die Packete von dem "edxSilkroadLoader"

Packet B007

Code

[S -> C][B007]
02 ................
01 ................
01 ................
8D 39 00 00 .9..............
0B 00 ................
54 75 74 74 69 5F 4E 75 74 74 69 Tutti_Nutti.....
00 ................
2C ,...............
F3 D0 39 00 00 00 00 00 ..9.............
C0 00 ................
3F 00 ?...............
00 00 ................
92 11 00 00 ................
C4 05 00 00 ................
00 ................
00 ................
00 ................
00 ................
08 ................
E9 33 00 00 .3..............
00 ................
31 34 00 00 14..............
01 ................
0D 34 00 00 .4..............
00 ................
7C 34 00 00 |4..............
00 ................
57 34 00 00 W4..............
00 ................
9D 34 00 00 .4..............
00 ................
92 2A 00 00 .*..............
02 ................
88 28 00 00 .(..............
00 ................
00

Alles anzeigen

Der Aufbau um alles einzelnd auszulesen:

AutoIt Code zum auslesen

Code

Case "B007" ; Char listing [TODO: Update each opcode change] // 3013 Kann es auch sein. // old: B007
BeginParse($packetData, Dec($packetSize))
$operation = Dec(ParseByte())
If $operation == 2 Then ; char listing
$result = Dec(ParseByte())
$charCount = Dec(ParseByte())
AppendStatusText("Found " & $charCount & " characters")
For $c = 1 To $charCount
$charType = Dec(ParseDword())
$charNameLength = Dec(ParseWord())
$charName = ParseAscii($charNameLength)
AppendStatusText("Found character: " & $charName)
GUICtrlSetData($controlCharacter, $charName, 1)
$charVol = Dec(ParseByte())
$charLvl = Dec(ParseByte())
AppendStatusText("Level: " & $charLvl)
$charExp = Dec(ParseQWord())
$charStr = Dec(ParseWord())
$charInt = Dec(ParseWord())
$charAttr = Dec(ParseWord())
$charHp = Dec(ParseDword())
$charMp = Dec(ParseDword())
AppendStatusText("HP/MP: " & $charHp & "/" & $charMp)
$doDelete = Dec(ParseByte())
If $doDelete == 1 Then
$charMinsToDel = Dec(ParseDword())
EndIf
$unk1 = Dec(ParseWord())
$unk2 = Dec(ParseByte())
$itemCount = Dec(ParseByte())
AppendStatusText("This character has " & $itemCount & " items equipped.")
For $i = 1 To $itemCount
$itemId = Dec(ParseDword())
$itemPlus = Dec(ParseByte())
AppendStatusText("[" & $itemId & "][+ " & $itemPlus & "]")
Next
$itemCount = Dec(ParseByte())
AppendStatusText("This character has " & $itemCount & " avatar items equipped.")
For $i = 1 To $itemCount
$itemId = Dec(ParseDword())
$itemPlus = Dec(ParseByte())
AppendStatusText("[" & $itemId & "][+ " & $itemPlus & "]")
Next
AppendStatusText("")
Next
EndIf

Alles anzeigen

So wie ich das verstanden habe ist an der 6.ten Data-stelle des Packetes der Char Name

Code

54 75 74 74 69 5F 4E 75 74 74 69 Tutti_Nutti.....

Beim auslesen in Autoti ist an der 6.ten Stelle

Code

$charName = ParseAscii($charNameLength)

- - -
Frage dazu.
Woher weiß ich wann ich welches Func zum auslesen brauche.

Fürs Level wird das benutzt:
$charLvl = Dec(ParseByte())

Für den Namen wird das benutzt:
$charNameLength = Dec(ParseWord())
$charName = ParseAscii($charNameLength)

Das Packet des Inventars habe ich glaube ich auch schon.
Entweder "3013 "oder "0000", muss ich einfach mal ausprobieren.

kuhkuh · 5. März 2011

dongdong
Kleiner Nachtrag:
Bei diesem konkretem Beispiel(Horse) ist das "0xEC" insofern konstant, dass sich das Byte "EC" beim spawnen eines Pferdes nie ändern wird.
Allgemein betrachtet hast du natürlich Recht.
Das ich das "EC" als konstant angesehen habe, beruht auf meinen Tests :>

Kuh :>

user000user · 5. März 2011

Awesome schrieb:

Frage dazu.
Woher weiß ich wann ich welches Func zum auslesen brauche.

Fürs Level wird das benutzt:
$charLvl = Dec(ParseByte())

Für den Namen wird das benutzt:
$charNameLength = Dec(ParseWord())
$charName = ParseAscii($charNameLength)

Das Packet des Inventars habe ich glaube ich auch schon.
Entweder "3013 "oder "0000", muss ich einfach mal ausprobieren.

Alles anzeigen

das wird wahrscheinlich abhängig, von der länge der jeweiligen daten sein.
da das lvl denke ich mal nur aus einem byte besteht, wird parseByte() benutzt.
die länge von etwas besteht ja meistens aus 2 byte und deswegen wird parseWord() benutzt, usw.

Awesome · 5. März 2011

user000user schrieb:

das wird wahrscheinlich abhängig, von der länge der jeweiligen daten sein.
da das lvl denke ich mal nur aus einem byte besteht, wird parseByte() benutzt.
die länge von etwas besteht ja meistens aus 2 byte und deswegen wird parseWord() benutzt, usw.

Wollte es nun mit x & y probieren.
Weiß aber leider nicht was ich wo nehmen muss.

Code

$areax = Dec(ParseQWord())
$areay = Dec(ParseQWord())
$x = Dec(ParseQWord())
$y = Dec(ParseQWord())
ReadByte()
ParseByte()
ParseDword()
ParseQWord()
ParseWord()
ParseAscii($length) ; länge
ReadWord($iSocket)

Alles anzeigen

dongdong · 6. März 2011

Die Kunst besteht ja gerade darin herauszufinden, was in dem Packet was bedeuted.
Move Packet:
[DWORD]UniqueID
[Byte] xSec
[Byte] ySec
[Word] X
[Word] Z
[Word] Y
wenn ich das jetzt richtig aus dem Kopf weiß (die Formel wie man dass dann umrechnet findet ihr in nem anderen Thread hiern :))

PS: Fehler sind auf die Faasend zurück zuführen

Awesome · 6. März 2011

Bisschen anders aber sonst okay.
Klappt trozdem nicht, hier mal der Code wo es nicht klappt.

Code

BeginParse($packetData, Dec($packetSize))
$result = Dec(ParseByte())
If $result == 1 Then
$areax = Dec(ParseByte())
$areay = Dec(ParseByte())
$x = Dec(ParseWord())
$y = Dec(ParseWord())
calccord($areax, $areay, $x, $y)
$recvtitle = "Moved: "
AppendStatusText(@CRLF & $recvtitle & $cordx & ", " & $cordy)
Else
AppendStatusText(@CRLF & "Fehler beim bewegen")
EndIf

Alles anzeigen

Und hier so es klappt, aber noch mit StringMid gemacht ist.

Code

$areax = StringMid($recv, 15, 2)
$areay = StringMid($recv, 17, 2)
$x = StringMid($recv, 19, 4)
$y = StringMid($recv, 27, 4)
calccord($areax, $areay, $x, $y)
ConsoleWrite(@CRLF & "+>Gemovet " & $cordx & ", " & $cordy & @CRLF)

dongdong · 7. März 2011

Du hast vergessen in der Mitte ein Word zu überspringen.
Zuerst kommt [Word] X, dann [Word] Z!!!! (musst du überspringen) und dann erst [Word] Y

Awesome · 7. März 2011

Trozdem vergebens.
Ich denke, dass in dem Packet folgendes steht.

Code

;~ 01 - Erfolgreich gelaufen oder nicht
;~ 99 67 -area X
;~ D2 02 - area Y
;~ A2 FF - X
;~ 7D 06 - Y

Weil dort auch kein Y ist *verwirr*

Code

$areax = StringMid($recv, 15, 2)
$areay = StringMid($recv, 17, 2)
$x = StringMid($recv, 19, 4)
$y = StringMid($recv, 27, 4)

Hier mal der jetzige Code mit Y:

Code

Case "7021" ;Send Movement 7021
BeginParse($packetData, Dec($packetSize))
$areax = Dec(ParseByte())
$areay = Dec(ParseByte())
$x = Dec(ParseWord())
$z = Dec(ParseWord())
$y = Dec(ParseWord())
calccord($areax, $areay, $x, $y)
$recvtitle = "Moved: "
AppendStatusText(@CRLF & $recvtitle & "x: " & $cordx & ", y: " & $cordy); & ", z: " & $z)

Hier die Calcoord Funktion + Funcs die dazu gehöhren:

(Das komische ist mit StringMid klappt es zwar, aber dafür brauche ich immer ein TCPRev deswegen bin ich umgestiegen auf Dec(ParseWord)

calcoord + EndianReverse + reverse

Code

; für x & y
Func calccord($areax, $areay, $x, $y)
$dareax = Dec($areax)
$dareay = Dec($areay)
$x = reverse($x)
$y = reverse($y)
$1 = (Dec($areax) * 3 - 0x195)
$11 = (Dec($x) / 10)
$2 = (Dec($areay) * 3 - 0x114)
$22 = (Dec($y) / 10)
$1 = Round($1)
$11 = Round($11)
$2 = Round($2)
$22 = Round($22)
Global $cordx = $1 * 64 + $11;
Global $cordy = $2 * 64 + $22;
;~ msgbox(0,"",$cordx & " " & $cordy)
EndFunc ;==>calccord
Func _EndianReverse($NUM)
Switch Not IsNumber($NUM) And StringIsXDigit($NUM)
Case True
Return Hex(Binary(Dec($NUM)))
Case Else
Return Dec(Hex(Binary(Number($NUM))))
EndSwitch
EndFunc ;==>_EndianReverse
Func reverse($hex)
$hexr = _EndianReverse($hex)
$hexl = StringLen($hex)
$hexrl = StringLen($hexr)
$cut = $hexrl - $hexl
$cut = StringTrimRight($hexr, $cut)
Return $cut
EndFunc ;==>reverse

Alles anzeigen

dongdong · 7. März 2011

Ich hab gerade nach geschaut, dass Packet ist so aufgebaut:

[DWord]PlayerID
[Byte] StatusFlag 1 = OK
--- falls StatusFlag = 1
[Byte]xSec
[Byte]ySec
[Signed Word]X
[Signed Word]Z
[Signed Word]Y

(Signed Word = short bzw. int16, also mit Vorzeichen)

Awesome · 7. März 2011

Wuhu 300Post.
- - -
Ehm nimmst du Packet 7021 wo der C->S oder S->C ?
Weil bei mir "iSro" ist C->S nur das bei Packet 7021.

Code

[C -> S][7021]
01 ................
99 67 .g..............
D2 02 ................
A2 FF ................
7D 06 }...............

dongdong · 7. März 2011

ich rede vom B021, was man vom Server bekommt

Awesome · 7. März 2011

Danke Mit Paket B021 klappt es wunderbar.

Code

Case "B021" ;Send Movement c->s 7021 / s->c B021
BeginParse($packetData, Dec($packetSize))
$playerid = Dec(ParseDword())
$result = Dec(ParseByte())
If $result == 1 Then
$areax = Dec(ParseByte())
$areay = Dec(ParseByte())
$x = Dec(ParseWord())
$z = Dec(ParseWord())
$y = Dec(ParseWord())
$region135x = Round(($areax - 135) * 192 + $x / 10)
$region135y = Round(($areay - 92) * 192 + $y / 10)
$recvtitle = "Moved: "
AppendStatusText(@CRLF & $recvtitle & "x: " & $region135x & " y: " & $region135y)
;~ AppendStatusText(@CRLF & $recvtitle & "x: " & $cordx & ", y: " & $cordy); & ", z: " & $z)
Else
AppendStatusText("Fehler beim Laufen")
EndIf

Alles anzeigen

- - - - - - - - - - - - - - - - -

Update: 23:33

So, mein Tcp-Programm ist weiter als vorher.
Wollte nun einen Login machen nur ich wüsste nicht welches Packet das ist.
Habe mit 3Programmen die Packete ausgelesen aber da steht nix was dem Login ähnlich sein könnte.

Packte bis zur Char auswahl

Code

[C->J](9000)
[J->C](600D)0101000520
[J->C](600D)000300020002
[J->C](600D)01010000A1
[J->C](0)FF
[J->C](6107)
[J->C](A107)020011006773706B72312E6A6F796D61782E636F6DBD320111006773707573312E6A6F796D61782E636F6DBD32
[J->C](0)FF
[J->C](0)FF
[J->C](0)FF
[J->C](0)FF
[C->J](9000)
[J->C](600D)0101000520
[J->C](600D)0001000199090500000002
[C->J](7007)02

Alles anzeigen

Code

[S -> C][1007]
00 00 00 00 ................
00 00 00 00 ................
[S -> C][0FF1]
01 00 00 00 ................
00 00 00 00 ................
[S -> C][A107]
02 ................
00 ................
11 00 ................
67 73 70 6B 72 31 2E 6A 6F 79 6D 61 78 2E 63 6F gspkr1.joymax.co
6D m...............
BD 32 .2..............
01 ................
11 00 ................
67 73 70 75 73 31 2E 6A 6F 79 6D 61 78 2E 63 6F gspus1.joymax.co
6D m...............
BD 32 .2..............
[S -> C][0FF2]
00 00 00 00 ................
00 00 00 00 ................
[S -> C][0FF2]
00 00 00 00 ................
00 00 00 00 ................
[S -> C][0FF3]
08 00 00 00 ................
06 00 00 00 ................
[S -> C][0FF3]
00 00 00 00 ................
01 00 00 00 ................
[C -> S][7007]
02 ................

Alles anzeigen

Ausschnitte des Codes fürs einloggen.

Spoiler anzeigen

Code

Func BeginPacket($opcode)
$globalSendBuffer = ""
$globalSendSize = 0
$sOpcode = HexToStrWord(Hex($opcode))
$globalSendBuffer = StringMid($sOpcode, 3, 2) & StringMid($sOpcode, 1, 2)
$globalSendBuffer = $globalSendBuffer & "0000" ; Security bytes
;MsgBox(0, "", $globalSendBuffer)
EndFunc
Func HexToStrWord($var)
$len = StringLen($var)
if $len > 4 then
return StringRight($var, 4)
elseif $len == 4 then
return $var
elseif $len == 3 then
return "0" & $var
elseif $len == 2 then
return "00" & $var
elseif $len == 1 then
return "000" & $var
endif
EndFunc
Func AppendByte($value)
$sValue = HexToStrByte(Hex($value))
$globalSendBuffer = $globalSendBuffer & $sValue
$globalSendSize = $globalSendSize + 1
EndFunc
Func HexToStrByte($var)
$len = StringLen($var)
if $len > 2 then
return StringRight($var, 2)
elseif $len == 2 then
return $var
else ; Error condition
return "00"
endif
EndFunc
Func AppendWord($value)
$sValue = HexToStrWord(Hex($value))
$globalSendBuffer = $globalSendBuffer & StringMid($sValue, 3, 2) & StringMid($sValue, 1, 2)
$globalSendSize = $globalSendSize + 2
EndFunc
Func AppendString($value)
For $i = 1 to StringLen($value) Step 1
$xh = StringMid($value, $i, 1)
$sValue = HexToStrByte(Hex(Asc($xh)))
$globalSendBuffer = $globalSendBuffer & $sValue
$globalSendSize = $globalSendSize + 1
Next
EndFunc
Func EndPacket()
$sSize = HexToStrWord(Hex($globalSendSize))
$globalSendBuffer = (StringMid($sSize, 3, 2) & StringMid($sSize, 1, 2)) & $globalSendBuffer
;MsgBox(0, "", $globalSendBuffer)
EndFunc
Func GetPacket()
return _HexToString($globalSendBuffer)
EndFunc
Func _Gui()
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
SetError(-2)
Exit
Return
Case $msg = $controlLogin
$n = GUICtrlRead($controlName)
If StringLen($n) == 0 Then
MsgBox(0, "", "Account eingeben")
Return
EndIf
$p = GUICtrlRead($controlPass)
If StringLen($p) == 0 Then
MsgBox(0, "", "Password eingeben")
Return
EndIf
$s = "113" ; Helios
;~ MsgBox(0, "", $n & " " & $p & " " & $s)
;~ $doRequestStats = False
BeginPacket(0x6102)
AppendByte(18)
AppendWord(StringLen($n))
AppendString($n)
AppendWord(StringLen($p))
AppendString($p)
;~ AppendWord(ServerToId($s))
AppendWord(113)
EndPacket()
TCPSend($iSocket, GetPacket())
EndSelect
EndFunc ;==>_Gui

Alles anzeigen

teRRRa · 8. März 2011

Awesome schrieb:

Danke Mit Paket B021 klappt es wunderbar.

Code

Case "B021" ;Send Movement c->s 7021 / s->c B021

BeginParse($packetData, Dec($packetSize))

$playerid = Dec(ParseDword())

$result = Dec(ParseByte())

If $result == 1 Then

$areax = Dec(ParseByte())

$areay = Dec(ParseByte())

$x = Dec(ParseWord())

$z = Dec(ParseWord())

$y = Dec(ParseWord())

$region135x = Round(($areax - 135) * 192 + $x / 10)

$region135y = Round(($areay - 92) * 192 + $y / 10)

$recvtitle = "Moved: "

AppendStatusText(@CRLF & $recvtitle & "x: " & $region135x & " y: " & $region135y)

;~ AppendStatusText(@CRLF & $recvtitle & "x: " & $cordx & ", y: " & $cordy); & ", z: " & $z)

Else

AppendStatusText("Fehler beim Laufen")

EndIf

Alles anzeigen

- - - - - - - - - - - - - - - - -

Update: 23:33

So, mein Tcp-Programm ist weiter als vorher.
Wollte nun einen Login machen nur ich wüsste nicht welches Packet das ist.
Habe mit 3Programmen die Packete ausgelesen aber da steht nix was dem Login ähnlich sein könnte.

Packte bis zur Char auswahl

Code

[C->J](9000)

[J->C](600D)0101000520

[J->C](600D)000300020002

[J->C](600D)01010000A1

[J->C](0)FF

[J->C](6107)

[J->C](A107)020011006773706B72312E6A6F796D61782E636F6DBD320111006773707573312E6A6F796D61782E636F6DBD32

[J->C](0)FF

[J->C](0)FF

[J->C](0)FF

[J->C](0)FF

[C->J](9000)

[J->C](600D)0101000520

[J->C](600D)0001000199090500000002

[C->J](7007)02

Alles anzeigen

Code

[S -> C][1007]

00 00 00 00 ................

00 00 00 00 ................

[S -> C][0FF1]

01 00 00 00 ................

00 00 00 00 ................

[S -> C][A107]

02 ................

00 ................

11 00 ................

67 73 70 6B 72 31 2E 6A 6F 79 6D 61 78 2E 63 6F gspkr1.joymax.co

6D m...............

BD 32 .2..............

01 ................

11 00 ................

67 73 70 75 73 31 2E 6A 6F 79 6D 61 78 2E 63 6F gspus1.joymax.co

6D m...............

BD 32 .2..............

[S -> C][0FF2]

00 00 00 00 ................

00 00 00 00 ................

[S -> C][0FF2]

00 00 00 00 ................

00 00 00 00 ................

[S -> C][0FF3]

08 00 00 00 ................

06 00 00 00 ................

[S -> C][0FF3]

00 00 00 00 ................

01 00 00 00 ................

[C -> S][7007]

02 ................

Alles anzeigen

Ausschnitte des Codes fürs einloggen.

Spoiler anzeigen

Code

Func BeginPacket($opcode)

$globalSendBuffer = ""

$globalSendSize = 0

$sOpcode = HexToStrWord(Hex($opcode))

$globalSendBuffer = StringMid($sOpcode, 3, 2) & StringMid($sOpcode, 1, 2)

$globalSendBuffer = $globalSendBuffer & "0000" ; Security bytes

;MsgBox(0, "", $globalSendBuffer)

EndFunc

Func HexToStrWord($var)

$len = StringLen($var)

if $len > 4 then

return StringRight($var, 4)

elseif $len == 4 then

return $var

elseif $len == 3 then

return "0" & $var

elseif $len == 2 then

return "00" & $var

elseif $len == 1 then

return "000" & $var

endif

EndFunc

Func AppendByte($value)

$sValue = HexToStrByte(Hex($value))

$globalSendBuffer = $globalSendBuffer & $sValue

$globalSendSize = $globalSendSize + 1

EndFunc

Func HexToStrByte($var)

$len = StringLen($var)

if $len > 2 then

return StringRight($var, 2)

elseif $len == 2 then

return $var

else ; Error condition

return "00"

endif

EndFunc

Func AppendWord($value)

$sValue = HexToStrWord(Hex($value))

$globalSendBuffer = $globalSendBuffer & StringMid($sValue, 3, 2) & StringMid($sValue, 1, 2)

$globalSendSize = $globalSendSize + 2

EndFunc

Func AppendString($value)

For $i = 1 to StringLen($value) Step 1

$xh = StringMid($value, $i, 1)

$sValue = HexToStrByte(Hex(Asc($xh)))

$globalSendBuffer = $globalSendBuffer & $sValue

$globalSendSize = $globalSendSize + 1

Next

EndFunc

Func EndPacket()

$sSize = HexToStrWord(Hex($globalSendSize))

$globalSendBuffer = (StringMid($sSize, 3, 2) & StringMid($sSize, 1, 2)) & $globalSendBuffer

;MsgBox(0, "", $globalSendBuffer)

EndFunc

Func GetPacket()

return _HexToString($globalSendBuffer)

EndFunc

Func _Gui()

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

SetError(-2)

Exit

Return

Case $msg = $controlLogin

$n = GUICtrlRead($controlName)

If StringLen($n) == 0 Then

MsgBox(0, "", "Account eingeben")

Return

EndIf

$p = GUICtrlRead($controlPass)

If StringLen($p) == 0 Then

MsgBox(0, "", "Password eingeben")

Return

EndIf

$s = "113" ; Helios

;~ MsgBox(0, "", $n & " " & $p & " " & $s)

;~ $doRequestStats = False

BeginPacket(0x6102)

AppendByte(18)

AppendWord(StringLen($n))

AppendString($n)

AppendWord(StringLen($p))

AppendString($p)

;~ AppendWord(ServerToId($s))

AppendWord(113)

EndPacket()

TCPSend($iSocket, GetPacket())

EndSelect

EndFunc ;==>_Gui

Alles anzeigen

Alles anzeigen

Loginserver Auth
Opcode 0x6102

Code

12 locale
05 00 username len
12 23 34 45 56 username
05 00 password len
12 23 34 45 56 password
96 00 server id

Loginserver Response
Opcode 0xa102

Code

01 - Result
if(result == 0x01) {
12 34 56 78 - Login ID
12 34 - Worldserver name length
worldserver ip
12 34 - Worldserver port
}
if(result == 0x02) {
01 - Submode
// Wrong password
if(Submode == 0x01)
{
12 34 56 78 - Current try
12 34 56 78 - Max try
}
// Block
if(Submode == 0x02)
{
01 - Subsubmode
if(Subsubmode == 0x01) {
12 34 - Block reason length
block reason
}
}
// C7
if(Submode == 0x06) {
//c7
}
// Already logged in
if(Submode == 0x03) {
//c7
}
}

Alles anzeigen

Awesome · 8. März 2011

Die SroPackets.rar habe ich auch, nur ob das alles noch stimmt ist fraglich.
Charlistining stimme auch nicht mehr mit dem Opcode von der SroPackets.rar & iSro überein.

Wenn das nicht der richtige ist, wie könnte ich den neuen rausfinden ?

Teilen