外挂编程

开发平台：
Windows_Unix

MapServer.pm：源码内容
							package Base::Ragnarok::MapServer;
use strict;
use Time::HiRes qw(time);
no encoding 'utf8';
use bytes;
use Globals;
use Modules 'register';
use Base::RagnarokServer;
use Misc;
use base qw(Base::RagnarokServer);
use Utils;
use constant SESSION_TIMEOUT => 120;
use constant DUMMY_POSITION => {
	map => 'prontera.gat',
	x => 154,
	y => 198
};
sub new {
	my $class = shift;
	my %options = @_;
	my $self = $class->SUPER::new(
		$options{host},
		$options{port},
		$options{serverType},
		$options{rpackets}
	);
	$self->{sessionStore} = $options{sessionStore};
	return $self;
}
sub getCharInfo {
	#my ($self, $session) = @_;
}
sub handleLogin {
	my ($self, $client, $accountID, $charID, $sessionID, $gender) = @_;
	my $session = $self->{sessionStore}->get($sessionID);
	if (!$session || $session->{accountID} ne $accountID || $session->{sessionID} != $sessionID
	  || $session->{sex} != $gender || $session->{charID} ne $charID
	  || $session->{state} ne 'About to load map') {
		$client->close();
	} else {
		$self->{sessionStore}->remove($session);
		$client->{session} = $session;
		my $output;
		#Note: in perl 8 == "8_4" == '8_4',  so to separate them you need to use a regular expression
		$output = pack("C2",0x83, 0x02) if ($self->getServerType() =~ m/^8(_[1-5])$/);
		$output .= $accountID;
		my $charInfo = $self->getCharInfo($session);
		my $coords = '';
		shiftPack($coords, $charInfo->{x}, 10);
		shiftPack($coords, $charInfo->{y}, 10);
		shiftPack($coords, 0, 4);
		$output .= pack("C2 V a3 x2",
			0x73, 0x00,
			int(time),	# syncMapSync
			$coords		# character coordinates
		);
		$client->send($output);
	}
}
sub process_0072 {
	my ($self, $client, $message) = @_;
	if ($self->{serverType} == 0 || $self->{serverType} == 21) {
		# Map server login.
		my ($accountID, $charID, $sessionID, $gender) = unpack('x2 a4 a4 V x4 C', $message);
		$self->handleLogin($client, $accountID, $charID, $sessionID, $gender);
		return 1;
	} elsif ($self->getServerType()  == 8) {
		# packet sendSkillUse
		$self->unhandledMessage($client, $message);
		return 0;
	} else { #oRO and pRO and idRO
		my ($accountID, $charID, $sessionID, $gender) = unpack('x2 a4 x5 a4 x2 V x4 C', $message);
		$self->handleLogin($client, $accountID, $charID, $sessionID, $gender);
		return 1;
	}
}
sub process_00F3 {
	my ($self, $client, $message) = @_;
	if ($self->getServerType() == 18) {
		# Map server login.
		my ($charID, $accountID, $sessionID, $gender) = unpack('x5 a4 a4 x V x9 x4 C', $message);
		$self->handleLogin($client, $accountID, $charID, $sessionID, $gender);
		return 1;
	} else {
		$self->unhandledMessage($client, $message);
		return 0;
	}
}
#	$msg = pack("C*", 0x9b, 0, 0x39, 0x33) .
#		$accountID .
#		pack("C*", 0x65) .
#		$charID .
#		pack("C*", 0x37, 0x33, 0x36, 0x64) .
#		$sessionID .
#		pack("V", getTickCount()) .
#		pack("C*", $sex);
sub process_009B {
	my ($self, $client, $message) = @_;
	if ($self->getServerType() == 8) {
		# Map server login.
		my ($accountID , $charID, $sessionID, $gender) = unpack('x4 a4 x a4 x4 V x4 C', $message);
		$self->handleLogin($client, $accountID, $charID, $sessionID, $gender);
		return 1;
	} else {
		$self->unhandledMessage($client, $message);
		return 0;
	}
}
sub process_0436 {
	my ($self, $client, $message) = @_;
	if ($self->getServerType() =~ m/^8_5$/) {
		# Map server login.
		my ($accountID , $charID, $sessionID, $gender) = unpack('x2 a4 a4 V x4 C', $message);
		$self->handleLogin($client, $accountID, $charID, $sessionID, $gender);
		return 1;
	} else {
		$self->unhandledMessage($client, $message);
		return 0;
	}
}
sub unhandledMessage {
	my ($self, $client) = @_;
	if (!$client->{session}) {
		$client->close();
		return 0;
	} else {
		return 1;
	}
}
1;

						