Packete umrechnen ?! (New: Login-Packete)

Awesome · 27. Februar 2011

Hallo stagetwo,

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Update: 7.März.2011
23:26Uhr

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

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

ich habe mich grade mal hingesetzt und wollte ein paar Packete in iSro versenden.

Benutzen tuhe ich den PHMediaPatcher um meine IP auf 127.0.0.1 Port: 15778 zu patchen.
MultiSocket + nuConnector v8.1 + MultiSocket (By Kaz)
Silkroad Online Launcher

Es klappt eigentlich alles ganz gut, nur mit den Packeten umrechnen nicht so.

z.B. der Code für hinsetzen aus dem 'Silkroad Packet Analysator OS'

Code

[C->J](704F)04

Der Code für "hallo" schreiben aus dem 'edxSilkroadLoader5'

Code

[C -> S][7025]
01 ................
02 ................
06 00 ................
68 00 61 00 6C 00 6C 00 6F 00 6F 00 h.a.l.l.o.o.....

Bevor ich den AutoIt poste ist hier mal ein TCPSende der den Char zum hinsetzen bringt. (iSro klappt es zu 100%)

Code

TCPSend($iSocket, _HexToString("01004F70010004"))

war nur zufall, dass er klappte.

So habe ich die Packete fürs hinsetzen/aufstehen ausgelesen.

Code

[C->J](704F)04

Wenn ich den _HexToString("01004F70010004") umwandel mit diesem Code.

Code

$recv = "01004F70010004"; TCPRecv($iSocket, 48)
$recv = BinaryToString($recv)
$recv = _StringToHex($recv)
$opcode2 = StringMid($recv, 5, 2) ;ab 5te Zeichen die 2 Zeichen wählen
$opcode = StringMid($recv, 7, 2) ;ab 7te Zeichen die 2 Zeichen wählen
$opcode = $opcode & $opcode2 ; Hex umtauschen Bsp: 6773 zu 7367
Msgbox(0,"",$opcode)

Dann kommt da 3030 raus.

Meine eigentliche frage ist jetzt, wie ich die Opcodes,packete nun richtig umwandel und dann sende.
z.B. wie könnte ich den text 'hallo' senden ?

---
Ich hoffe ich habe mich verständlich ausgedrückt da es doch schon spät ist

Update 17:15 Uhr. AutoIt Quellcode hinzugefügt.

Öffne mich um den AutoItQuellcode zu sehen

Code

#include <string.au3>
;#########################################
;
;Code by Awesome aka Alexander
;Visit me on http://the-franky.de
;
;#########################################
HotKeySet("{ESC}", "_Exit") ; Programm Exit
HotKeySet("{F5}", "_Senden") ; TCP Senden
TCPStartup()
$iIP = TCPNameToIP("127.0.0.1")
$iSocket = TCPConnect($iIP, 22580)
If $iSocket = -1 Then
$Error = MsgBox(270629, "Error", "Fehler beim Verbinden mit dem TCP")
Select
Case $Error = 4 ;Versuchen
$iIP = TCPNameToIP("127.0.0.1")
$iSocket = TCPConnect($iIP, 22580)
If $iSocket = -1 Then MsgBox(8224, "Error", "Erneuter Verbindungsfehler, Programm wird nun beendet.")
Exit
Case $Error = 2 ;Abbrechen
Exit 0
EndSelect
EndIf ;Verbindung überprüfen
AdlibRegister("_Empfangen")
While 1
Sleep(250)
WEnd
Func _Empfangen()
;Daten empfangen
$recv = TCPRecv($iSocket, 48) ;Empfangen
$recv = BinaryToString($recv) ;Umwandeln in String
$recv = _StringToHex($recv) ;umwandeln Strin to Hex
;Verändern
$opcode2 = StringMid($recv, 5, 2)
$opcode = StringMid($recv, 7, 2)
$opcode = $opcode & $opcode2
Switch $opcode
Case "704F" ;Hinsetzen
$recvtitle = "Hinsetzen"
ConsoleWrite(@CRLF & "+>" & $recvtitle & @CRLF)
Case "70B1" ; Stall öffnen
$recvtitle = "Stall öffnen"
ConsoleWrite(@CRLF & "+>" & $recvtitle & @CRLF)
EndSwitch
EndFunc ;==>_Empfangen
Func _Senden()
TCPSend($iSocket, _HexToString("01004F70010004")) ;Hinsetzen
EndFunc ;==>_Senden
Func _Exit()
Exit
EndFunc ;==>_Exit
;Hinsetzen
;~ [C->J](704F)04
;Stall öffnen mit dem Title "Awesome"
;~ [C->J](70B1)070041007700650073006F006D006500

Alles anzeigen

Dr.No · 27. Februar 2011

[cs]$recv = BinaryToString($recv)
$recv = _StringToHex($recv)[/cs]
Der Teil ist doch total sinnlos, da die Packete doch schon in Hex vorliegen. Wenn du nun also diese beiden Zeile löscht, sollte es funktionieren^^

Awesome · 27. Februar 2011

Also müsste dann $opcode richtig umgewandelt sein , oder ?

Ich bekomme beim analysieren ja nur an diese Nummern:

[C->J](70B1)070041007700650073006F006D006500
oder
[C->J](704F)04

Code

$recv = "704F"; TCPRecv($iSocket, 48)
$opcode2 = StringMid($recv, 5, 2) ;ab 5te Zeichen die 2 Zeichen wählen
$opcode = StringMid($recv, 7, 2) ;ab 7te Zeichen die 2 Zeichen wählen
$opcode = $opcode & $opcode2 ; Hex umtauschen Bsp: 6773 zu 7367
ConsoleWrite(@CRLF &"+------------->Anfang" & @CRLF & $opcode & @CRLF & "+--------------->Ende" & @CRLF)

Update im 1. Post

Dr.No · 27. Februar 2011

Also du bekommst über TCPRecv die Packete ja direkt in Hex, d.h. du musst du nicht mehr umwandeln.
Wenn du z.B. [C->J](704F)04 das im Analysor bekommst, dann musst du das so "0x01004F7004" wegschicken.

Zitat

0x = Anfang von Hex
0100 = Länge des Inhalts in Byte verdreht, also 1
4F70 = Opcode, verdreht
04 = Eigentlicher Inhalt des Packetes

Du musst nichts zum String oder Hex umwandeln.

Awesome · 27. Februar 2011

Also den Anfang und Ende habe ich verstanden.
Aber wie weiß ich , wie ich den Opcode verdrehen muss ?

Code formation war nicht so gut, deshalb ein Bild

Dr.No · 27. Februar 2011

Ja hatte mich unten versehen. Also F407 ist dann richtig. Sollte eigentlich so funktionieren, wenn ich mich nicht irre.
Bei [C->J](70B1)070041007700650073006F006D006500 wäre es dann ja "0x1000 B170 070041007700650073006F006D006500" oder?

user000user · 27. Februar 2011

muss das 704F nicht zu 4F70 verdreht werden?!

Awesome · 28. Februar 2011

Ich bin grade am ipod und werde es morgen einfach mal testen

Update:
Ich habe beides mal probiert klappte nicht so wirklich.
Deshalb habe ich mich erstmal an Packete rangemacht , die gleich aufgebaut sind wie das hinsetzten / aufstehen.

Update: 09:06Uhr es klappt mit Packeten gleicher größe siehe der Sonne:

Code

TCPSend($iSocket, _HexToString("01000274010002")) ; Sonne an
sleep(2000) ; 2Sekunden warten
TCPSend($iSocket, _HexToString("01000274010000")) ; Sonne aus

Update: 09:28Uhr
Habe es geschaft eine 4er Party auf zu machen mit dem Namen "LTP 24/7 by Awesome" , nur die Packete umgerechnet habe ich nicht , sonder mit:

Code

$recv = TCPRecv($iSocket, 48) ;Empfangen
$recv = BinaryToString($recv) ;Umwandeln in String
$recv = _StringToHex($recv) ;umwandeln Strin to Hex
ConsoleWrite($recv & @CRLF)

mir anzeigen lassen und einfach kopiert.

4er Party:

Code

TCPSend($iSocket, _HexToString("34006970010000000000000000000400016E13004C00540050002000320034002F003700200062007900200041007700"))
TCPSend($iSocket, _HexToString("650073006F006D006500350069B00200014B690000000000000400016E13004C00540050002000320034002F00370020"))
TCPSend($iSocket, _HexToString("0062007900200041007700650073006F006D006500"))

- - -
Meine eigentlich frage ist immer noch offen

Kann man aus [C->J](704F)04 (was der Analyser ausspuckt) nicht irgendwie so richtig umformen, dass man direkt das richtige umgewandelte hat?

- - -
Update: 09:35 Uhr

Habe nun geschaft das er ein Stall öffnent nur ich kann ihn weder schließen noch ansehen.
Meine Figur hat zwar den Stall offen mit dem title "awesome" aber mehr nicht.

Code

TCPSend($iSocket, _HexToString("1000B1700100070041007700650073006F006D0065004500BA700100062100570065006C0063006F006D006500200074"))
TCPSend($iSocket, _HexToString("006F0020005B00540075007400740069005F004E0075007400740069005D002700730020007300740061006C006C002E"))
TCPSend($iSocket, _HexToString("1800B8300200D7D60F02070041007700650073006F006D00650000000000"))
TCPSend($iSocket, _HexToString("0100B1B00200014600BAB0020001062100570065006C0063006F006D006500200074006F0020005B0054007500740074"))
TCPSend($iSocket, _HexToString("0069005F004E0075007400740069005D002700730020007300740061006C006C002E00"))

Update: 14:47 Uhr
Ich glaube ich habe es nun ein wenig mehr verstanden.

Code

0 = anfang
100 =länge
0274 =code
0=anfang
100=länge
02= inhalt
TCPSend($iSocket, _HexToString("01000274010002"))

Oder irre ich mich ?

user000user · 28. Februar 2011

also laut drew benton geben die ersten 2 bytes die länge nach den ersten 6 bytes an
also 0100 muss dann umgedreht werden zu 0001 = länge 1
die nächsten 2 bytes sind der opcode
danach kommt jeweils 1 byte für irgendwelche security bytes, falls das packet vom client kommt, ansonsten 0
und danach kommt der inhalt des packets
also:

Code

0100 = länge (=1 byte)
0274 = opcode
01 = security count
00 = security crc
02 = inhalt

[quelle]http://www.scribd.com/doc/14184021/Silk-Road-Security[/quelle]

weiß jemand wie man mobs angreifen kann? hab mal versucht die packets von mobs zu sniffen und habe bis jetzt das:
340019300200BF6D0000AC6ABC09305892FDDC4401205044C9A09744D95F01003058E1063903C4040102000000704100005C420000C842000000000018300200
180021B00200AC6ABC09013058E8064103F904013058D344374050449E2F
weiß aber nich wie bzw. ob die zusammen gehören und ob es auch die richtigen sind^^

kuhkuh · 28. Februar 2011

Greif doch einfach mal ein Mob mit NormalAttack an.
Da kommt aufjedenfall die MobID als wesentlicher und größter Bestandteil drin vor.

Kuh :>

Awesome · 28. Februar 2011

Ich habe was sehr tolles von Drew, vll hilft euch das weiter mir weiter zu helfen den dort blicke ich nicht wirklich durch.
Dort ist doch bestimmt irgendwie, das er die Packete richtig umwandeln kann und direkt senden kann.

Code

Func HexToStrDword($var)
$len = StringLen($var)
if $len > 8 then
return StringRight($var, 8)
elseif $len == 8 then
return $var
elseif $len == 7 then
return "0" & $var
elseif $len == 6 then
return "00" & $var
elseif $len == 5 then
return "000" & $var
elseif $len == 4 then
return "0000" & $var
elseif $len == 3 then
return "00000" & $var
elseif $len == 2 then
return "000000" & $var
elseif $len == 1 then
return "0000000" & $var
endif
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

Alles anzeigen

Password für das Zip da .au3 datein nicht hinzugefügt werden können

user000user · 4. März 2011

welche packets willst du denn wie umwandeln?

und wie kann ich encrypted packets versenden?
03 00 4C 70 01 00 0D EC 11
das wäre jetzt z.b. das packet (encrypted) um ein lvl 60 horse zu spawnen, aber wie hab ich das jetzt mit der bit mask 0x8000 zu verstehen

Zitat

However, an encrypted packet is marked with a bit mask of 0x8000

wie kann ich das dann zu einem packet umwandeln und versenden, das er das horse spawnt und ich kein dc bekomme?^^

Awesome · 4. März 2011

Das mit dem Disconnect habe ich auch bei vielen Packeten.
Werde mich vll am Samstag und am Mittwoch dann erst wieder damit beschäftigen

dongdong · 4. März 2011

Dc bekommt man, wenn man ein falsches Packet an den Server sendet. D.h. wenn der Inhalt keine Bedeutung hat oder es diesen Opcode nicht gibt.
Verschlüsseln müsst ihr mit den Keys aus den Handshake Packets, da ihr aber mit SrProxy oder nuConnector oder sowas in der Art arbeitet (wenn ich das richtig nachverfolgt habe) müsst ihr die Packets nicht verschlüsseln das erledigt der Proxy für euch.

user000user · 4. März 2011

ich hab mal versucht ein horse zu spawnen.
ich benutze den nuConnector, wenn ich das packet dann sende, kommt die meldung, "cannot use the selected item while dead" oder so ähnlich und dann bin ich dc.
wenn ich ingame ein horse spawne kommt da dieses packet:
[C -> S][704C][3 bytes][Enc]
0D EC 11
sollte ich es dann doch verschlüsseln? und wie müsste man das dann ungefähr machen?

kuhkuh · 4. März 2011

user000user schrieb:

ich hab mal versucht ein horse zu spawnen.
ich benutze den nuConnector, wenn ich das packet dann sende, kommt die meldung, "cannot use the selected item while dead" oder so ähnlich und dann bin ich dc.
wenn ich ingame ein horse spawne kommt da dieses packet:
[C -> S][704C][3 bytes][Enc]
0D EC 11
sollte ich es dann doch verschlüsseln? und wie müsste man das dann ungefähr machen?

Wie dongi schon gesagt hat, brauchst du nichts verschlüsseln.
Der Proxy macht das für dich.
Einfach das Packet senden.

user000user · 4. März 2011

ja, das habe ich schon mehrmals versucht aber ich bekomme dann jedes mal einen dc
das packet müsste dann ja eigentlich so
03004C7001000DEC11
gesendet werden oder nicht?

Awesome · 4. März 2011

Ich habe es gradmal mit einem level 30 pferd benutzt.
Dies ist der Code:

Code

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

@kuhkuh:
Mit dem nix verschlüsseln das der Proxy das macht, meinst du damit das _HexToString ?
Wenn ja wie sollte dann so ein TCPSend ausehen ?
So z.B.
; Pferd aufsteigen (lvl 30)
;~ [C->J](7158 )0107460B000000
Habe einfach die Klammern weggelassen

Code

TCPSend($iSocket,"71580107460B000000")

Dr.No · 4. März 2011

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

user000user · 4. März 2011

Dr.No schrieb:

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

müssen da nicht noch diese security bytes rein?

Teilen