[Autoit]using opcodes

[kondos]

I don't know how to send packet like this I copied some codes from "acer2000" but i don't know how to convert packet like this
[C -> S][704F]
04
To binary like he did


btw sorry for bad English.
that's code

PHP Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
local $edit
$g_IP = "127.0.0.1"
$stan = "0x704F04"
;$ss = "0x04004570010004020000"  ;start talk
;$s1 = "0x0500467001000402000003"   ; deposite
;$s2 = "0x070034700100020D0004020000"   ; put item #1 at inventory to storage
TCPStartUp()
$socket = TCPConnect($g_IP, 16000)
$Form1 = GUICreate("Form1", 624, 449, 191, 114)
$Button1 = GUICtrlCreateButton("start", 208, 376, 193, 57)
$Button2 = GUICtrlCreateButton("Button2", 400, 328, 145, 49)
 $edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
#EndRegion ### END Koda GUI section ###
if $socket = -1 Then
MsgBox(0, "Ops", "Run proxy and program will close after 3 sec")
Sleep(3000)

else
   GUISetState(@SW_SHOW)


   
While 1
   
    $nMsg = GUIGetMsg(0)
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         case $Button1
          $recv = TCPRecv($socket , 8)    
        $binFirst = BinaryMid($recv, 1, 10)
         If @error Then MsgBox(0, "Ops", "Run proxy and program will close after 3 sec")
            If $recv <> "" Then GUICtrlSetData($edit, _
               $g_IP & " > " & $binFirst & @CRLF & GUICtrlRead($edit))
              case $Button2
TCPSend($socket,$stan)
;Sleep(2000)
;TCPSend($socket,$s1)
;Sleep(2000)
;TCPSend($socket,$s2)
    EndSwitch
WEnd
EndIf 


when i send it i got crash can anyone help me and thx

[jremy]

You have to reverse byte order, and build the packet like:

"0100" = data length
"4F70" = opcode
"0100" = security, for nu/phConnector used to tell direction/encryption
"04" = packet data

So the sit packet would be "0x01004F70010004". To make life little easier, you should use functions like:

Func Rev($val)
	$result = ""
	For $i = 1 To StringLen($val) / 2
		$byte = StringRight($val, 2)
		$val = StringTrimRight($val, 2)
		$result &= $byte
	Next
	Return $result
EndFunc

Func SendPacket($opcode, $data)
	$opcode = Rev($opcode)
	$size = Rev(Hex(StringLen($data)/2, 4))
	TCPSend($socket, "0x" & $size & $opcode & "0100" & $data)
EndFunc

Usage: SendPacket("704F", "04")

[bothpro]

Thank you kondo for topic and jremy for the functions, helped me a lot.

But i cant connect i think...

i try phconnector with a default options:

[phConnector]
IP=121.128.133.30
Port=15779
LoginListenPort=15778
WorldListenPort=15777
BotPort=22580
ServerBlock=
ClientBlock=
Dev=0

OK Connection of phconnector: OK

AutoIt i try:

$socket = TCPConnect("127.0.0.1", 15779)

And to send:

SendPacket("704F", "04")

with a function....Like jremy said...

But nothing happen

I will need use a pather for client or program for hackshield? ...

Waiting for anserws

[kondos]

thx jremy

[srutownik]

@bothpro
If you want to use client, you have to redirect your client to "127.0.0.1", 15779
Then connect your program to bot port (BotPort=22580)

If you don't want to use client, that topic should help you:

Just use phConnector instead of edxsilkroadproxy

[bothpro]

Dont work for me :/
I tried use new and old version of phconnector ...
I tried use edxloader v5 or v6..and only config redirect..and patch seed...
I tried in a Vsro...

When i send a packet..my client get DC...

Im using a win 64 bits, have any problem using this?

Thanks waiting answers

[kondos]

@jremy
when i send packet

SendPacket("704F", "04")

i got dc why !?!?

[srutownik]

The problem is in using Hex() function.
The proper functioning requires integer arguments.
When you divide a number, foating number was returned.
You have to convert it to integer like this:

Func SendPacket($opcode, $data)
	$opcode = Rev($opcode)
	$size = Rev(Hex(Int(StringLen($data)/2), 4))
	TCPSend($socket, "0x" & $size & $opcode & "0100" & $data)
EndFunc

[kondos]

Originally Posted by srutownik

The problem is in using Hex() function.
The proper functioning requires integer arguments.
When you divide a number, foating number was returned.
You have to convert it to integer like this:

Func SendPacket($opcode, $data)
	$opcode = Rev($opcode)
	$size = Rev(Hex(Int(StringLen($data)/2), 4))
	TCPSend($socket, "0x" & $size & $opcode & "0100" & $data)
EndFunc

it's work thx

[bothpro]

Yes it´s work !!!! Thanks!!!