Форум АНТИЧАТ - -= Perl+ПодделываниеПакетов+tcp =-

-= Perl+ПодделываниеПакетов+tcp =-

24.09.2008, 12:48

KENNY_McCORMICK

Познающий

Регистрация: 09.11.2007

Сообщений: 33

Провел на форуме:
73891

Репутация: 6

-= Perl+ПодделываниеПакетов+tcp =-

Возникли трудности при подделывание пакета )
need HELP

Дано:
Есть программа garena.exe которая использует TCP/IP коннект к серверу
Задача:
Написать свой клиент для этого сервера
Решение:
1) я сосниффил пакеты, которые програма отправляет серверу и получает от него... вот часть:

*.exe отправляет серверу:

Код:

00000000  01 00 00 00 6A                                     ....j

Ответ сервера:

Код:

00000000  06 00 00 00 6A C5 20 40  40 01                     ....j. @ @.

2) я написал маленькую программку на PERL'e

Код:

#!/usr/bin/perl
use Socket;
$host="us4.auth.garena.com";	#tipa host
$port="7456";	#port
$packet = pack ("H*", '01 00 00 00 6A'); #Формируем пакет

socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);	# Получаем IP (67.228.162.187)
#$iaddr = 67.228.162.187; # это если знаем IP
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send (SOCK, $packet, 0); #отправляем пакет
while (){
	recv (SOCKET, $buf, 1514, 0);  		#считываем пакет
	print unpack ("H*", $buf), "\n\n"; 	#вывод в hex
}
close(SOCK);

Пакет отправляется, но ответа НЕТ(
Сниффер так же ответа не увидел...
в чём трабл?