Help to rewrite moving packet

[flo4t]

Hi all.
Please, help me to rewrite the sendMove sub to make it work on server with kind-of antibot protection.
There is some code has been patched to exe, and a small function in external dll.
My first goal is to pack a valid packet like EXE does.
And please help me to rewrite some assembler instructions to perl analogues.
Here is the example.

x,y - coordinates in unsigned int.

A7 00 37 33 00 47 0C 00
1)A7 00 - is a packet "header"
2)37 33 - two last chars from strange 6-char string (random?) example: cfae96 (not from this example packet)
3)47 - encrypted X coordinate.
Algorithm:
SAR X(dword),2 (perhaps binary shift to right by 2.)
4)0C - encrypted Y coordinate.
Algorithm:
SAR Y(dword),4
AND Y(lower byte of Y coordinate),0x3F (wtf how to work with only lower byte on perl?)
SHL X(lower byte of X coordinate),6
OR Y(lower byte of Y coordinate),X(lower byte of X coordinate)
now we have 1-byte encrypted Y

that's all for EXE's encryption.

Thanks in advance for answers

[kLabMouse]

Hi all.
AND Y(lower byte of Y coordinate),0x3F (wtf how to work with only lower byte on perl?)

$a = 0xFFFF;
$a = $a & 0x00FF;
now $a is just a lower byte.

the upper:
$a = 0xFFFF
$a = $a >> 8
$a = $a & 0xFF
now $a is just an upper byte.

you can use pack/unpack tricks too.

[flo4t]

Hi all.
AND Y(lower byte of Y coordinate),0x3F (wtf how to work with only lower byte on perl?)

$a = 0xFFFF;
$a = $a & 0x00FF;
now $a is just a lower byte.

the upper:
$a = 0xFFFF
$a = $a >> 8
$a = $a & 0xFF
now $a is just an upper byte.

you can use pack/unpack tricks too.

thank you for response!

And can I work with string as array? Like that
$str = "test";

$str[0] == "t"

[kali]

Yes, Perl strings are just arrays of chars.

[flo4t]

how can I output something to console from sendMove sub? printf() and debug() (in config.txt I set debug to 1) do not working.

[EternalHarvest]

how can I output something to console from sendMove sub? printf() and debug() (in config.txt I set debug to 1) do not working.

Log::message

[Civis]

Hello. I'am noob in programming.
Can you explain me this algorithm in common language:

3)47 - encrypted X coordinate.
Algorithm:
SAR X(dword),2 (perhaps binary shift to right by 2.)
4)0C - encrypted Y coordinate.
Algorithm:
SAR Y(dword),4
AND Y(lower byte of Y coordinate),0x3F (wtf how to work with only lower byte on perl?)
SHL X(lower byte of X coordinate),6
OR Y(lower byte of Y coordinate),X(lower byte of X coordinate)
now we have 1-byte encrypted Y

Second question:

It's information about monster:

86 00 1B B0 8E 06 23 CC 52 3C CB 88 8C DC AE 02

Where is here monster id and what algorithm to get it?
Where is here monster location(x,y) and what algorithm to get it?

[Civis]

up