ZenyRO (Ultra и Dream)

Сообщение от 4epT

MaDoS, то он тебе посоветует, тебе врятли чем поможет.. тем более трудно что-то советовать, когда сам с проблемой в плотную не столкнулся

4epT , Просто уже не знаю что делать... Если есть возможность, сам можешь глянуть что да как... ?

[4epT]

дай ты ему бота, которого банят..

[Botneg3]

ну, Jerry уже обошел защиту, так что копатся дальше уже не интересно. Вот мои наработки:
(если у вас server_type 8_2, если нет - заменяйте процедуру в том файле, какой у вас server_type)
В файле src\Network\Send\ServerType8_2.pm:

sub new {
my ($class) = @_;
return $class->SUPER::new(@_);
}

заменяете на:

sub new {
my ($class) = @_;
return $class->SUPER::new(@_);
}
sub movexor {
my $data = shift;
my $AL; my $BL;
my $CL; my $DL;
$DL=substr($data,6,1); #MOV DL,BYTE PTR DS:[ESI+6]
$CL=substr($data,7,1); #MOV CL,BYTE PTR DS:[ESI+7]
$BL=substr($data,5,1); #MOV BL,BYTE PTR DS:[ESI+5]
$AL=$BL; #MOV AL,BL
$AL=$AL^$DL; #XOR AL,DL
$AL=$AL^$CL; #XOR AL,CL
substr($data,2,1)=$AL; #MOV BYTE PTR DS:[ESI+2],AL
$AL=$AL^$BL; #XOR AL,BL
substr($data,5,1)=$AL; #MOV BYTE PTR DS:[ESI+5],AL
$AL=substr($data,2,1); #MOV AL,BYTE PTR DS:[ESI+2]
$AL=$AL^$DL; #XOR AL,DL
$DL=substr($data,2,1); #MOV DL,BYTE PTR DS:[ESI+2]
$DL=$DL^$CL; #XOR DL,CL
substr($data,6,1)=$AL; #MOV BYTE PTR DS:[ESI+6],AL
substr($data,7,1)=$DL; #MOV BYTE PTR DS:[ESI+7],DL
return $data;
}
sub sendMove {
my $self = shift;
my $x = int scalar shift;
my $y = int scalar shift;

my $msg = pack("C*", 0xA7, 0x00, 0x00, 0x00,0x00) . getCoordString($x, $y);
$msg=movexor($msg);

$self->sendToServer($msg);
debug "Sent move to: $x, $y\n", "sendPacket", 2;
}

если кому поможет - хорошо, а ежели нет ) так нет))
У мну это работает в WPE. Должно помочь и от бана при move.
За неоптимизированный код уж извиняйте)))

[Irmo]

кто проверял? а то у меня акк не регит зараза -_-

[alex600]

Сообщение от Irmo

кто проверял? а то у меня акк не регит зараза -_-

А ты что, купил у Jerry обход защиты, в свободный доступ он обход не выкладывал.

[Botneg3]

Irmo, это решение проблемы исключительно бана. это не поможет от кривых(?) пакетов.

[alex600]

Сообщение от Botneg3

ну, Jerry уже обошел защиту, так что копатся дальше уже не интересно

Botneg3, ну почему не интересно, Jerry ведь не поделится своими секретами. Попробуй засунуть в Кору свой логин-пакет и тебе ХКор будет не нужен. Чем он отличается -
1. другой заголовок пакета.
2. какойто сумашедший номер версии.
3. зашифрованный пароль
Ну так алгоритм шифрования пароля они не сами придумывали, наверно можно подобрать.
Получается 2 проблемы - зашифровать пароль и подсунуть Коре свой логин-пакет (или изменить уже сформированный).
Я например не знаю с какой стороны подходить и ктой и к той проблеме (еле-еле научился простые плагины и макросы рисовать) а у тя мож получится.

[vitt]

Сообщение от alex600

3. зашифрованный пароль
Ну так алгоритм шифрования пароля они не сами придумывали, наверно можно подобрать.

а вот хз, можно ли... Почитай какую-нить литературку по шифрованию(я имею ввиду нормальное шифрование, а не какой-нить XOR), чуть ознакомишься с этим.
Мне кажется, тут лучше использовать другой подход - глянуть на сам код(собственно так ломали защиту на МОТРе). Но это тем, кто асм хорошо знает... я к таким, к сожалению, пока не отношусь...

[Botneg3]

Можно и логин-пакет переписать, но надо тупо сидеть и переписывать асемблерные команды на перл. Да и поможет ли это от кривых пакетов?? Если поможет - то можно и переписать.
Опознать алгоритм кодирования врятле возможно, нужно переписывать самим.
Но вот чтото я не уверен что переписываение логин пакета нам поможет.

Botneg3, ну почему не интересно, Jerry ведь не поделится своими секретами.

потому что ктото уже это сделал )

з.ы. как вы догадались move-пакет тоже переписан из асм-листинга. в комментариях команды ассемблера. как видно там ничего сложного.

1. другой заголовок пакета.
2. какойто сумашедший номер версии.

Посмотрите на код кодирования move-пакета. там примерно такая же система, тольк побольше, по объемнее, и с вызовом подпрограмм(процедур,функц ий, штук 2-3)

[Botneg3]

Кто хочет взяться за раскопки - вот ассемблерный листинг )))))