NAME

Game::Tibia::Packet - Session layer support for the MMORPG Tibia

SYNOPSIS

use Game::Tibia::Packet;

# decrypt Tibia packet
my $read; my $ret = $sock->recv($read, 1024);
my $res = Game::Tibia::Packet->new($read, $xtea_key);
$packet_type = unpack('C', $res->payload);


# encrypt a Tibia speech packet
my $p = Game::Tibia::Packet->new;
$p->payload .= pack("C S S S/A S C SSC S/A", #  V Talk mode?
    0xAA, 0x1, 0x0, "Perl", 0, 1, 1, 1, 8,
    "Game::Tibia::Packet says Hi!\n:-)");
$sock->send($p->finalize($xtea_key}))

DESCRIPTION

Methods for constructing Tibia packets. Doesn't handle the XTEA key exchange yet, only what comes after it. i.e. It doesn't do that much besides calculating Adler32 digest and XTEA encryption.

Tested working with Tibia 8.6, but will probably work with later protocol versions too.

METHODS AND ARGUMENTS

new([$payload, $xtea])

Constructs a new Game::Tibia::Packet instance. If payload and XTEA are given, the payload will be decrypted and trimmed to correct size.

isValid($packet)

Checks if packet's adler32 digest matches (A totally unnecessary thing on Cipsoft's part, as we already have TCP checksum. Why hash again?)

payload() : lvalue

returns the payload as lvalue (so you can concat on it)

finalize([$XTEA_KEY])

Finalizes the packet. XTEA encrypts, prepends checksum and length.

GIT REPOSITORY

http://github.com/athreef/Game-Tibia-Packet

SEE ALSO

http://tpforums.org/forum/forum.php http://tibia.com

AUTHOR

Ahmad Fatoum <athreef@cpan.org>, http://a3f.at

DISCLAIMER

Tibia is copyrighted by Cipsoft GmbH.

COPYRIGHT AND LICENSE

Copyright (C) 2016 Ahmad Fatoum

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.