开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
RagnarokServer.pm
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：32k
源码类别：

外挂编程

开发平台：

Windows_Unix

RagnarokServer.pm：源码内容
  1. ###########################################################
  2. # Poseidon server - Ragnarok Online server emulator
  3. #
  4. # This program is free software; you can redistribute it and/or 
  5. # modify it under the terms of the GNU General Public License 
  6. # as published by the Free Software Foundation; either version 2 
  7. # of the License, or (at your option) any later version.
  8. #
  9. # Copyright (c) 2005-2006 OpenKore Development Team
  10. ###########################################################
  11. # This class emulates a Ragnarok Online server.
  12. # The RO client connects to this server. This server
  13. # periodically sends a GameGuard query to the RO client,
  14. # and saves the RO client's response.
  15. ###########################################################
  16. package Poseidon::RagnarokServer;
  18. use strict;
  19. use Base::Server;
  20. use base qw(Base::Server);
  21. use Misc;
  22. use Utils qw(binSize getCoordString timeOut getHex);
  24. my %clientdata;
  26. sub new {
  27. my ($class, @args) = @_;
  28. my $self = $class->SUPER::new(@args);
  30. # int challengeNum
  31. #
  32. # The number of times that the RO client has sent a
  33. # GameGuard challenge packet.
  34. #
  35. # Invariant: challengeNum >= 0
  36. $self->{challengeNum} = 0;
  38. # Bytes response
  39. #
  40. # A response for the last GameGuard query.
  41. $self->{response} = undef;
  43. # Invariant: state ne ''
  44. $self->{state} = 'ready';
  46. return $self;
  47. }
  49. ##
  50. # $RagnarokServer->query(Bytes packet)
  51. # packet: The raw GameGuard query packet.
  52. # Require: defined($packet) && $self->getState() eq 'ready'
  53. # Ensure: $self->getState() eq 'requesting'
  54. #
  55. # Send a GameGuard query to the RO client.
  56. sub query {
  57. my ($self, $packet) = @_;
  58. my $clients = $self->clients();
  60. for (my $i = 0; $i < @{$clients}; $i++) {
  61. if ($clients->[$i]) {
  62. if ($clients->[$i]{connectedToMap}) {
  63.                  $clients->[$i]->send($packet);
  64.                  $self->{state} = 'requesting';
  65.                  return;
  66. }
  67. }
  68. }
  69. print "Error: no Ragnarok Online client connected.n";
  70. }
  72. ##
  73. # String $RagnarokServer->getState()
  74. #
  75. # Get the state of this RagnarokServer object.
  76. # The result can be one of:
  77. # 'ready' - The RO client is ready to handle another GameGuard query.
  78. # 'requesting' - The query has been sent to the RO client, but it hasn't responded yet.
  79. # 'requested' - The RO client has responded to the last GameGuard query.
  80. # 'not connected' - The RO client hasn't connected to this server yet.
  81. sub getState {
  82. my ($self) = @_;
  83. my $clients = $self->clients();
  85. if ($self->{state} eq 'requested') {
  86. return 'requested';
  87. } elsif (binSize($clients) == 0) {
  88. return 'not connected';
  89. } else {
  90. return $self->{state};
  91. }
  92. }
  94. ##
  95. # Bytes $RagnarokServer->readResponse()
  96. # Require: $self->getState() eq 'requested'
  97. # Ensure: defined(result) && $self->getState() eq 'ready'
  98. #
  99. # Read the response for the last GameGuard query.
  100. sub readResponse {
  101. my $resp = $_[0]->{response};
  102. $_[0]->{response} = undef;
  103. $_[0]->{state} = 'ready';
  104. return $resp;
  105. }
  108. #####################################################
  111. sub onClientNew {
  112. my ($self, $client, $index) = @_;
  113. print "Ragnarok Online client ($index) connected.n";
  114. $self->{state} = 'ready';
  115. }
  117. sub onClientExit {
  118. my ($self, $client, $index) = @_;
  119. print "Ragnarok Online client ($index) disconnected.n";
  120. }
  122. ## constants
  123. my $accountID = pack("a4", "acct");
  124. my $posX = 53;
  125. my $posY = 111;
  127. sub onClientData {
  128. my ($self, $client, $msg, $index) = @_;
  130. ### These variables control the account information ###
  131. my $host = $self->getHost();
  132. my $port = pack("v", $self->getPort());
  133. $host = '127.0.0.1' if ($host eq 'localhost');
  134. my @ipElements = split /./, $host;
  136. my $charID = pack("a4", "char");
  137. my $sessionID = pack("a4", "sess");
  138. my $sessionID2 = pack("C4", 0xff);
  139. my $npcID1 = pack("a4", "npc1");
  140. my $npcID0 = pack("a4", "npc2");
  141. my $monsterID = pack("a4", "mon1");
  142. my $itemID = pack("a4", "itm1");
  144. my $switch = uc(unpack("H2", substr($msg, 1, 1))) . uc(unpack("H2", substr($msg, 0, 1)));
  145. my $packed_switch = quotemeta substr($msg, 0, 2);
  147. # Note:
  148. # The switch packets are pRO specific and assumes the use of secureLogin 1. It may or may not work with other
  149. # countries' clients (except probably oRO). The best way to support other clients would be: use a barebones
  150. # eAthena or Freya as the emulator, or figure out the correct packet switches and include them in the
  151. # if..elsif..else blocks.
  152. if (($switch eq '01DB') || ($switch eq '0204')) { # client sends login packet 0204 packet thanks to elhazard
  154. # '01DC' => ['secure_login_key', 'x2 a*', [qw(secure_key)]],
  155. my $data = pack("C*", 0xdc, 0x01, 0x14) . pack("x17");
  156. $client->send($data);
  158. # save servers.txt info
  159. my $code = substr($msg, 2);
  160. if (length($msg) == 2) {
  161. $clientdata{$index}{secureLogin_type} = 0;
  162. } elsif (length($msg) == 20) {
  163. if ($code eq pack("C*", 0x04, 0x02, 0x7B, 0x8A, 0xA8, 0x90, 0x2F, 0xD8, 0xE8, 0x30, 0xF8, 0xA5, 0x25, 0x7A, 0x0D, 0x3B, 0xCE, 0x52)) {
  164. $clientdata{$index}{secureLogin_type} = 1;
  165. } elsif ($code eq pack("C*", 0x04, 0x02, 0x27, 0x6A, 0x2C, 0xCE, 0xAF, 0x88, 0x01, 0x87, 0xCB, 0xB1, 0xFC, 0xD5, 0x90, 0xC4, 0xED, 0xD2)) {
  166. $clientdata{$index}{secureLogin_type} = 2;
  167. } elsif ($code eq pack("C*", 0x04, 0x02, 0x42, 0x00, 0xB0, 0xCA, 0x10, 0x49, 0x3D, 0x89, 0x49, 0x42, 0x82, 0x57, 0xB1, 0x68, 0x5B, 0x85)) {
  168. $clientdata{$index}{secureLogin_type} = 3;
  169. } elsif ($code eq ("C*", 0x04, 0x02, 0x22, 0x37, 0xD7, 0xFC, 0x8E, 0x9B, 0x05, 0x79, 0x60, 0xAE, 0x02, 0x33, 0x6D, 0x0D, 0x82, 0xC6)) {
  170. $clientdata{$index}{secureLogin_type} = 4;
  171. } elsif ($code eq pack("C*", 0x04, 0x02, 0xc7, 0x0A, 0x94, 0xC2, 0x7A, 0xCC, 0x38, 0x9A, 0x47, 0xF5, 0x54, 0x39, 0x7C, 0xA4, 0xD0, 0x39)) {
  172. $clientdata{$index}{secureLogin_type} = 5;
  173. }
  174. } else {
  175. $clientdata{$index}{secureLogin_requestCode} = getHex($code);
  176. }
  178. } elsif (($switch eq '01DD') || ($switch eq '01FA') || ($switch eq '0064') || ($switch eq '0060') || ($switch eq '0277')) { # 0064 packet thanks to abt123
  180. # my $data = pack("C*", 0xAD, 0x02, 0x00, 0x00, 0x1E, 0x0A, 0x00, 0x00);
  181. # $client->send($data);
  182. my $sex = 1;
  183. my $serverName = pack("a20", "Poseidon server"); # server name should be less than or equal to 20 characters
  184. my $serverUsers = pack("V", @{$self->clients()} - 1);
  185. # '0069' => ['account_server_info', 'x2 a4 a4 a4 x30 C1 a*',
  186. #  [qw(sessionID accountID sessionID2 accountSex serverInfo)]],
  187. my $data;
  188. if ($switch eq '01FA') {
  189. $data = pack("C*", 0x69, 0x00, 0x53, 0x00) . 
  190. $sessionID . $accountID . $sessionID2 . 
  191. pack("x30") . pack("C1", $sex) . pack("x4") .
  192. pack("C*", $ipElements[0], $ipElements[1], $ipElements[2], $ipElements[3]) .
  193. $port . $serverName . $serverUsers . pack("x2");
  194. } else {
  195. $data = pack("C*", 0x69, 0x00, 0x4F, 0x00) . 
  196. $sessionID . $accountID . $sessionID2 . 
  197. pack("x30") . pack("C1", $sex) .
  198. pack("C*", $ipElements[0], $ipElements[1], $ipElements[2], $ipElements[3]) .
  199. $port . $serverName . $serverUsers . pack("x2");
  200. }
  202. $client->send($data);
  204. # save servers.txt info
  205. $clientdata{$index}{version} = unpack("V", substr($msg, 2, 4));
  206. $clientdata{$index}{master_version} = unpack("C", substr($msg, length($msg) - 1, 1));
  207. if ($switch eq '01DD') {
  208. $clientdata{$index}{secureLogin} = 1;
  209. undef $clientdata{$index}{secureLogin_account};
  210. } elsif ($switch eq '01FA') {
  211. $clientdata{$index}{secureLogin} = 3;
  212. $clientdata{$index}{secureLogin_account} = unpack("C", substr($msg, 47, 1));
  213. } else {
  214. undef $clientdata{$index}{secureLogin};
  215. undef $clientdata{$index}{secureLogin_type};
  216. undef $clientdata{$index}{secureLogin_account};
  217. undef $clientdata{$index}{secureLogin_requestCode};
  218. }
  219. if (($switch ne '01DD') && ($switch ne '01FA') && ($switch ne '0064')) {
  220. $clientdata{$index}{masterLogin_packet} = $switch;
  221. } else {
  222. undef $clientdata{$index}{masterLogin_packet};
  223. }
  225. } elsif (($switch eq '0065') || ($switch eq '0275') || ($msg =~ /^$packed_switch$accountID$sessionID$sessionID2x0x0.$/)) { # client sends server choice packet
  227. my $exp = pack("V", 0);
  228. my $zeny = pack("V", 0);
  229. my $exp_job = pack("V", 0);
  230. my $lvl_job = pack("v", 70);
  231. my $hp = pack("v", 0x0fff);
  232. my $hp_max = $hp;
  233. my $sp = pack("v", 0x0fff);
  234. my $sp_max = $sp;
  235. my $job_id1 = pack("v", 0);
  236. my $job_id2 = pack("v", 23);
  237. my $hairStyle = pack("v", 16);
  238. my $level = pack("v", 99);
  239. my $head_low = pack("v", 0);
  240. my $head_top = pack("v", 5016);
  241. my $head_mid = pack("v", 0);
  242. my $hairColor = pack("v", 6);
  243. my $charName1 = pack("a24", "Poseidon");
  244. my $charName2 = pack("a24", "Poseidon Dev");
  245. my ($str, $agi, $vit, $int, $dex, $luk) = (99, 99, 99, 99, 99, 99);
  246. my $charStats = pack("C*", $str, $agi, $vit, $int, $dex, $luk);
  247. my $data = $accountID .
  248. pack("v2 x20", 0x6b, 0xEC) .
  249. $charID . $exp . $zeny . $exp_job . $lvl_job .
  250. pack("x24") . $hp . $hp_max . $sp . $sp_max .
  251. pack("x2") . $job_id1 . $hairStyle .
  252. pack("x2") . $level .
  253. #pack("x2") . $head_low . pack("x2") . $head_top . $head_mid . $hairColor .
  254. pack("C*", 0x01, 0x00, 0x38, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x9E, 0x00, 0x06, 0x00) .
  255. #pack("C*", 0x01, 0x00, 0x38, 0x00, 0x00, 0x00, 0x46, 0x00, 0x03, 0x00, 0x06, 0x00) .
  256. pack("x2") . $charName1 . $charStats . pack("v1", 0) .
  257. $charID . $exp . $zeny . $exp_job . $lvl_job .
  258. pack("x24") . $hp . $hp_max . $sp . $sp_max .
  259. pack("x2") . $job_id2 . $hairStyle .
  260. pack("x2") . $level .
  261. #pack("x2") . $head_low . pack("x2") . $head_top . $head_mid . $hairColor .
  262. pack("C*", 0x01, 0x00, 0x39, 0x00, 0x00, 0x00, 0x9F, 0x00, 0x98, 0x00, 0x06, 0x00) .
  263. pack("x2") . $charName2 . $charStats . pack("v1", 1);
  264. # NOTE: ideally, all character slots are filled with the same character, for idiot-proofing
  265. # NOTE: also, the character's appearance may be made to be modifiable
  266. $client->send($data);
  268. # save servers.txt info
  269. if ($switch ne '0065') {
  270. $clientdata{$index}{gameLogin_packet} = $switch;
  271. } else {
  272. undef $clientdata{$index}{gameLogin_packet};
  273. }
  275. } elsif ($switch eq '0066') { # client sends character choice packet
  277. $clientdata{$index}{mode} = unpack('C1', substr($msg, 2, 1));
  279. # '0071' => ['received_character_ID_and_Map', 'a4 Z16 a4 v1', [qw(charID mapName mapIP mapPort)]],
  280. my $mapName = pack("a16", "new_1-1.gat");
  281. my $data = pack("C*", 0x71, 0x00) . $charID . $mapName . 
  282. pack("C*", $ipElements[0], $ipElements[1], $ipElements[2], $ipElements[3]) . $port;
  283. $client->send($data);
  285. } elsif ($switch eq '0072' &&
  286. (length($msg) == 19) &&
  287. (substr($msg, 2, 4) eq $accountID) &&
  288. (substr($msg, 6, 4) eq $charID) &&
  289. (substr($msg, 10, 4) eq $sessionID)
  290. ) { # client sends the maplogin packet
  292. mapLogin($self, $client, $msg, $index);
  293. # save servers.txt info
  294. $clientdata{$index}{serverType} = 0;
  296. } elsif ($switch eq '009B' &&
  297. (length($msg) == 32) &&
  298. (substr($msg, 3, 4) eq $accountID) &&
  299. (substr($msg, 12, 4) eq $charID) &&
  300. (substr($msg, 23, 4) eq $sessionID)
  301. ) { # client sends the maplogin packet
  303. mapLogin($self, $client, $msg, $index);
  304. # save servers.txt info
  305. $clientdata{$index}{serverType} = 3;
  307. } elsif ($switch eq '00F5' &&
  308. (length($msg) == 29) &&
  309. (substr($msg, 5, 4) eq $accountID) &&
  310. (substr($msg, 14, 4) eq $charID) &&
  311. (substr($msg, 20, 4) eq $sessionID)
  312. ) { # client sends the maplogin packet
  314. mapLogin($self, $client, $msg, $index);
  315. # save servers.txt info
  316. $clientdata{$index}{serverType} = 4;
  318. } elsif ($switch eq '009B' &&
  319. (length($msg) == 32) &&
  320. (substr($msg, 9, 4) eq $accountID) &&
  321. (substr($msg, 15, 4) eq $charID) &&
  322. (substr($msg, 23, 4) eq $sessionID)
  323. ) { # client sends the maplogin packet
  325. mapLogin($self, $client, $msg, $index);
  326. # save servers.txt info
  327. $clientdata{$index}{serverType} = 5;
  329. } elsif ($switch eq '0072' &&
  330. (length($msg) == 29) &&
  331. (substr($msg, 3, 4) eq $accountID) &&
  332. (substr($msg, 10, 4) eq $charID) &&
  333. (substr($msg, 20, 4) eq $sessionID)
  334. ) { # client sends the maplogin packet
  336. mapLogin($self, $client, $msg, $index);
  337. # save servers.txt info
  338. $clientdata{$index}{serverType} = 6;
  340. } elsif ($switch eq '0072' &&
  341. (length($msg) == 34) &&
  342. (substr($msg, 7, 4) eq $accountID) &&
  343. (substr($msg, 15, 4) eq $charID) &&
  344. (substr($msg, 25, 4) eq $sessionID)
  345. ) { # client sends the maplogin packet
  347. mapLogin($self, $client, $msg, $index);
  348. # save servers.txt info
  349. $clientdata{$index}{serverType} = 7;
  351. } elsif ($switch eq '009B' &&
  352. (length($msg) == 26) &&
  353. (substr($msg, 4, 4) eq $accountID) &&
  354. (substr($msg, 9, 4) eq $charID) &&
  355. (substr($msg, 17, 4) eq $sessionID)
  356. ) { # client sends the maplogin packet
  358. mapLogin($self, $client, $msg, $index);
  359. # save servers.txt info
  360. $clientdata{$index}{serverType} = 8;
  362. } elsif ($switch eq '009B' &&
  363. (length($msg) == 37) &&
  364. (substr($msg, 9, 4) eq $accountID) &&
  365. (substr($msg, 21, 4) eq $charID) &&
  366. (substr($msg, 28, 4) eq $sessionID)
  367. ) { # client sends the maplogin packet
  369. mapLogin($self, $client, $msg, $index);
  370. # save servers.txt info
  371. $clientdata{$index}{serverType} = 9;
  373. } elsif ($switch eq '0072' &&
  374. (length($msg) == 26) &&
  375. (substr($msg, 4, 4) eq $accountID) &&
  376. (substr($msg, 9, 4) eq $charID) &&
  377. (substr($msg, 17, 4) eq $sessionID)
  378. ) { # client sends the maplogin packet
  380. mapLogin($self, $client, $msg, $index);
  381. # save servers.txt info
  382. $clientdata{$index}{serverType} = 10;
  384. } elsif ($switch eq '0072' &&
  385. (length($msg) == 29) &&
  386. (substr($msg, 5, 4) eq $accountID) &&
  387. (substr($msg, 14, 4) eq $charID) &&
  388. (substr($msg, 20, 4) eq $sessionID)
  389. ) { # client sends the maplogin packet
  391. mapLogin($self, $client, $msg, $index);
  392. # save servers.txt info
  393. $clientdata{$index}{serverType} = 11;
  395. } elsif ($switch eq '0094' &&
  396. (length($msg) == 30) &&
  397. (substr($msg, 12, 4) eq $accountID) &&
  398. (substr($msg, 2, 4) eq $charID) &&
  399. (substr($msg, 6, 4) eq $sessionID)
  400. ) { # client sends the maplogin packet
  402. mapLogin($self, $client, $msg, $index);
  403. # save servers.txt info
  404. $clientdata{$index}{serverType} = 12;
  406. } elsif ($switch eq '0072' &&
  407. (length($msg) == 29) &&
  408. (substr($msg, 5, 4) eq $accountID) &&
  409. (substr($msg, 14, 4) eq $charID) &&
  410. (substr($msg, 20, 4) eq $sessionID)
  411. ) { # client sends the maplogin packet
  413. mapLogin($self, $client, $msg, $index);
  414. # save servers.txt info
  415. $clientdata{$index}{serverType} = "1 or 2";
  417. } elsif ($msg =~ /^$packed_switch/
  418. && $msg =~ /$accountID/
  419. && $msg =~ /$charID/
  420. && $msg =~ /$sessionID/) { # client sends the maplogin packet (unknown)
  422. print "Received unsupported map login packet $switch.n";
  423. visualDump($msg, "$switch");
  425. mapLogin($self, $client, $msg, $index);
  426. # save servers.txt info
  427. undef $clientdata{$index}{serverType};
  428. #$clientdata{$index}{sendMapLogin} = $msg;
  430. } elsif ($switch eq '007D') { # client sends the map loaded packet
  431. my $data;
  433. # Make Poseidon look to front
  434. $data .= pack('v1 a4 C1 x1 C1', 0x9C, $accountID, 0, 4);
  436. # Let's not wait for the client to ask for the unit info
  437. # '0095' => ['actor_info', 'a4 Z24', [qw(ID name)]],
  438. $data .= pack("v1 a4 a24", 0x95, $accountID, 'Poseidon' . (($clientdata{$index}{mode} ? ' Dev' : '')));
  440. # '009A' => ['system_chat', 'x2 Z*', [qw(message)]],
  441. $data .= pack("v2 a32", 0x9A, 36, "Welcome to the Poseidon Server!");
  443. # Show an NPC
  444. # '0078' => ['actor_display', 'a4 v14 a4 x7 C1 a3 x2 C1 v1', [qw(ID walk_speed param1 param2 param3 type hair_style weapon lowhead shield tophead midhead hair_color clothes_color head_dir guildID sex coords act lv)]],
  445. $data .= pack("v1 a4 v1 x6 v1 x30", 0x78, $npcID0, 300, 86) . getCoordString($posX + 3, $posY + 4, 1) . pack("C2 x3", 0x05, 0x05);
  446. $data .= pack('v1 a4 C1 x1 C1', 0x9C, $npcID0, 0, 3);
  448. # Let's not wait for the client to ask for the unit info
  449. # '0095' => ['actor_info', 'a4 Z24', [qw(ID name)]],
  450. $data .= pack("v1 a4 a24", 0x95, $npcID0, "Server Details Guide");
  452. if ($clientdata{$index}{mode}) {
  453. # Show some items in inventory
  454. # '01EE' => ['item_inventory_stackable', 'v4', [qw(index ID type amount)]]
  455. $data .= pack("C2 v1", 0xEE, 0x01, 40) .
  456. pack("v2 C2 v1 x10", 3, 501, 0, 1, 16) .
  457. pack("v2 C2 v1 x10", 4, 909, 3, 1, 144);
  459. # Show a kafra NPC
  460. # '0078' => ['actor_display', 'a4 v14 a4 x7 C1 a3 x2 C1 v1', [qw(ID walk_speed param1 param2 param3 type hair_style weapon lowhead shield tophead midhead hair_color clothes_color head_dir guildID sex coords act lv)]],
  461. $data .= pack("v1 a4 v1 x6 v1 x30", 0x78, $npcID1, 300, 114) . getCoordString($posX + 5, $posY + 3, 1) . pack("C2 x3", 0x05, 0x05);
  462. $data .= pack('v1 a4 C1 x1 C1', 0x9C, $npcID1, 0, 3);
  464. # Show a monster
  465. # '0078' => ['actor_display', 'a4 v14 a4 x7 C1 a3 x2 C1 v1', [qw(ID walk_speed param1 param2 param3 type hair_style weapon lowhead shield tophead midhead hair_color clothes_color head_dir guildID sex coords act lv)]],
  466. $data .= pack("v1 a4 v1 x6 v1 x30", 0x78, $monsterID, 1000, 1002) . getCoordString($posX - 2, $posY - 1, 1) . pack("x3 v1", 3);
  467. $data .= pack('v1 a4 C1 x1 C1', 0x9C, $monsterID, 0, 5);
  469. # Show an item on ground
  470. # '009D' => ['item_exists', 'a4 v1 x1 v3', [qw(ID type x y amount)]]
  471. $data .= pack("v1 a4 v1 x1 v3 x2", 0x9D, $itemID, 512, $posX + 1, $posY - 1, 1);
  473. # Let's not wait for the client to ask for the unit info
  474. # '0095' => ['actor_info', 'a4 Z24', [qw(ID name)]],
  475. $data .= pack("v1 a4 a24", 0x95, $monsterID, "Poring");
  476. }
  478. $client->send($data);
  480. } elsif (
  481. (($switch eq '007E') && (($clientdata{$index}{serverType} == 0) || ($clientdata{$index}{serverType} == 1) || ($clientdata{$index}{serverType} == 2) || ($clientdata{$index}{serverType} == 6) || ($clientdata{$index}{serverType} == 7) || ($clientdata{$index}{serverType} == 10) || ($clientdata{$index}{serverType} == 11))) ||
  482. (($switch eq '0089') && (($clientdata{$index}{serverType} == 3) || ($clientdata{$index}{serverType} == 5) || ($clientdata{$index}{serverType} == 8) || ($clientdata{$index}{serverType} == 9))) ||
  483. (($switch eq '0116') && ($clientdata{$index}{serverType} == 4)) ||
  484. (($switch eq '00A7') && ($clientdata{$index}{serverType} == 12))
  485. ) { # client sends sync packet
  486. my $data = pack("C*", 0x7F, 0x00, 0x00, 0x00, 0x00, 0x00);
  487. $client->send($data);
  489. ### Check if packet 0228 got tangled up with the sync packet
  490. if (uc(unpack("H2", substr($msg, 7, 1))) . uc(unpack("H2", substr($msg, 6, 1))) eq '0228') {
  491. # queue the response (thanks abt123)
  492. $self->{response} = substr($msg, 6, length($msg));
  493. $self->{state} = 'requested';
  494. }
  496. } elsif ($switch eq '00B2') { # quit to character select screen
  497. if (unpack("C1", substr($msg, 2, 1)) == 1) {
  498. my $data = pack("C*", 0xB3, 0x00, 0x01);
  499. $client->send($data);
  500. }
  502. } elsif ($switch eq '0187') { # accountid sync (what does this do anyway?)
  503. $client->send($msg);
  505. } elsif ($switch eq '018A') { # client sends quit packet
  506. $self->{challengeNum} = 0;
  507. $client->send(pack("C*", 0x8B, 0x01, 0x00, 0x00));
  509. } elsif ($switch eq '0228') { # client sends game guard sync
  510. # Queue the response
  511. # Don't allow other packet's (like Sync) to get to RO server.
  512. my $length = unpack("v",substr($msg,2,2));
  513. if ($length > 0) {
  514. $self->{response} = substr($msg,0,$length+2);
  515. } else {
  516. $self->{response} = $msg;
  517. };
  518. $self->{state} = 'requested';
  520. } elsif ($switch eq '02A7') { # client sends hShield response
  521. # Queue the response
  522. $self->{response} = $msg;
  523. $self->{state} = 'requested';
  525. } elsif ($switch eq '0258') { # client sent gameguard's challenge request
  526. # Reply with "gameguard_grant" instead of a 0227 packet. Normally, the server would
  527. # send a 0227 gameguard challenge to the client, then the client will send the
  528. # proper 0228 response. Only after that will the server send 0259 to allow the
  529. # client to continue the login sequence. Since this is just a fake server,
  530. # there is no need to go through all that and we can do a shortcut.
  531. if ($self->{challengeNum} == 0) {
  532. print "Received GameGuard sync request. Client allowed to login account server.n";
  533. $client->send(pack("C*", 0x59, 0x02, 0x01));
  534. } else {
  535. print "Received GameGuard sync request. Client allowed to login char/map server.n";
  536. $client->send(pack("C*", 0x59, 0x02, 0x02));
  537. }
  538. $self->{challengeNum}++;
  540. #} elsif ($switch eq '0085') { # sendMove
  541. # print "Received packet $switch: sendMove.n";
  542. # visualDump($msg, "$switch");
  544. #} elsif ($switch eq '0089') { # sendAttack
  545. # print "Received packet $switch: sendAttack.n";
  546. # visualDump($msg, "$switch");
  548. #} elsif ($switch eq '008C') { # public chat
  549. # print "Received packet $switch: public chat.n";
  551. #} elsif ($switch eq '0094') { # getPlayerInfo
  552. # print "Received packet $switch: getPlayerInfo.n";
  554. } else {
  555. if ($switch eq '0090' || ($msg =~ /x90x0($npcID1|$npcID0)/)) { # npc talk
  556. undef $clientdata{$index}{npc_talk_code};
  557. if ($msg =~ /x90x0$npcID1/) {
  558. # Show the kafra image
  559. # '01B3' => ['npc_image', 'Z63 C1', [qw(npc_image type)]],
  560. my $data = pack("C2 a64 C1", 0xB3, 0x01, "kafra_04.bmp", 0x02);
  561. $client->send($data);
  562. # Show the messages
  563. $data = pack("v2 a4 a8", 0xB4, 16, $npcID1, "[Kafra]");
  564. $data .= pack("v2 a4 a62", 0xB4, 70, $npcID1, "Welcome to Kafra Corp. We will stay with you wherever you go.");
  565. $data .= pack("v1 a4", 0xB5, $npcID1);
  566. $client->send($data);
  567. } else {
  568. my $data = pack("v2 a4 a9", 0xB4, 17, $npcID0, "[Hakore]");
  569. $data .= pack("v2 a4 a93", 0xB4, 101, $npcID0, "Hello! I was examining your RO client's login packets while you were connecting to Poseidon.");
  570. $data .= pack("v1 a4", 0xB5, $npcID0);
  571. $client->send($data);
  572. }
  574. } elsif ($switch eq '00B8') { # npc talk response
  576. my $npcID = substr($msg, 2, 4);
  577. my $response = unpack("C1", substr($msg, 6, 1));
  578. if ($npcID eq $npcID0) {
  579. if ($response == 1) {
  580. # Check server info
  581. my $data = pack("v2 a4 a9", 0xB4, 17, $npcID, "[Hakore]");
  582. $data .= pack("v2 a4 a50", 0xB4, 58, $npcID, "Your RO client uses the following server details:");
  583. $data .= pack("v2 a4 a27", 0xB4, 35, $npcID, "^2222DDversion: $clientdata{$index}{version}");
  584. $data .= pack("v2 a4 a20", 0xB4, 28, $npcID, "master_version: $clientdata{$index}{master_version}");
  585. $data .= pack("v2 a4 a20", 0xB4, 28, $npcID, "serverType: " . ((defined $clientdata{$index}{serverType}) ? $clientdata{$index}{serverType} : 'Unknown'));
  586. if ($clientdata{$index}{secureLogin}) {
  587. $data .= pack("v2 a4 a15", 0xB4, 23, $npcID, "secureLogin: $clientdata{$index}{secureLogin}");
  588. if ($clientdata{$index}{secureLogin_requestCode}) {
  589. $data .= pack("v2 a4 a" . (length($clientdata{$index}{secureLogin_requestCode}) + 26), 0xB4, (length($clientdata{$index}{secureLogin_requestCode}) + 34), $npcID, "secureLogin_requestCode: $clientdata{$index}{secureLogin_requestCode}");
  590. } elsif (defined $clientdata{$index}{secureLogin_type}) {
  591. $data .= pack("v2 a4 a20", 0xB4, 28, $npcID, "secureLogin_type: $clientdata{$index}{secureLogin_type}");
  592. }
  593. if ($clientdata{$index}{secureLogin_account}) {
  594. $data .= pack("v2 a4 a25", 0xB4, 33, $npcID, "secureLogin_account: $clientdata{$index}{secureLogin_account}");
  595. }
  596. }
  597. if ($clientdata{$index}{masterLogin_packet}) {
  598. $data .= pack("v2 a4 a25", 0xB4, 33, $npcID, "masterLogin_packet: $clientdata{$index}{masterLogin_packet}");
  599. }
  600. if ($clientdata{$index}{gameLogin_packet}) {
  601. $data .= pack("v2 a4 a23", 0xB4, 31, $npcID, "gameLogin_packet: $clientdata{$index}{gameLogin_packet}");
  602. }
  603. $data .= pack("v1 a4", 0xB5, $npcID);
  604. $client->send($data);
  605. if (defined $clientdata{$index}{serverType}) {
  606. $clientdata{$index}{npc_talk_code} = 3;
  607. } else {
  608. $clientdata{$index}{npc_talk_code} = 2.5;
  609. }
  611. } elsif ($response == 2) {
  612. # Use storage
  613. my $data;
  614. $data = pack("v2 a4 a8", 0xB4, 16, $npcID, "[Hakore]");
  615. $data .= pack("v2 a4 a42", 0xB4, 50, $npcID, "Thank you for the visit. Go and multiply!");
  616. $data .= pack("v1 a4", 0xB6, $npcID);
  617. $client->send($data);
  618. }
  620. } elsif ($npcID eq $npcID1) {
  621. if ($response == 1) {
  622. # Use storage
  623. my $data;
  624. $data .= pack("C2 v1", 0xF0, 0x01, 40) .
  625. pack("v2 C2 v1 x10", 3, 501, 0, 1, 16) .
  626. pack("v2 C2 v1 x10", 4, 909, 3, 1, 144);
  627. $data .= pack("v3", 0xF2, 2, 300);
  628. $data .= pack("C2 a64 C1", 0xB3, 0x01, "kafra_04.bmp", 0xFF);
  629. $data .= pack("v1 a4", 0xB6, $npcID);
  630. $client->send($data);
  632. } elsif ($response == 2) {
  633. # Use storage
  634. my $data;
  635. $data = pack("v2 a4 a8", 0xB4, 16, $npcID, "[Kafra]");
  636. $data .= pack("v2 a4 a49", 0xB4, 57, $npcID, "We Kafra Corp. always try to serve you the best.");
  637. $data .= pack("v2 a4 a19", 0xB4, 27, $npcID, "Please come again.");
  638. $data .= pack("v1 a4", 0xB6, $npcID);
  639. $client->send($data);
  640. }
  641. }
  643. } elsif ($switch eq '00B9') { # npc talk continue
  644. my $npcID = substr($msg, 2, 4);
  645. if ($npcID eq $npcID0) {
  646. if ($clientdata{$index}{npc_talk_code} == 2) {
  647. # Show NPC response list
  648. my $data = pack("v2 a4 a24", 0xB7, 32, $npcID, "Yes, please:No, thanks:");
  649. $client->send($data);
  650. $clientdata{$index}{npc_talk_code} = 3;
  652. } else {
  653. my $data = pack("v2 a4 a9", 0xB4, 17, $npcID, "[Hakore]");
  654. if (!$clientdata{$index}{npc_talk_code}) {
  655. if (!defined $clientdata{$index}{serverType}) {
  656. $data .= pack("v2 a4 a71", 0xB4, 79, $npcID, "However, I regret that Openkore may not currently support your server.");
  657. } elsif ($clientdata{$index}{serverType} == 7 || $clientdata{$index}{serverType} == 12) {
  658. $data .= pack("v2 a4 a82", 0xB4, 90, $npcID, "However, I regret that Openkore does not yet fully support your server this time.");
  659. } else {
  660. $data .= pack("v2 a4 a64", 0xB4, 72, $npcID, "Based on my examination, I think Openkore supports your server.");
  661. $data .= pack("v2 a4 a99", 0xB4, 107, $npcID, "I can tell you the possible server details you can use to make Openkore to connect to your server.");
  662. }
  663. $data .= pack("v1 a4", 0xB5, $npcID);
  664. $clientdata{$index}{npc_talk_code} = 1;
  666. } elsif ($clientdata{$index}{npc_talk_code} == 1) {
  667. if ((!defined $clientdata{$index}{serverType}) || ($clientdata{$index}{serverType} == 7)) {
  668. $data .= pack("v2 a4 a42", 0xB4, 50, $npcID, "Would you still like to hear the details?");
  669. } else {
  670. $data .= pack("v2 a4 a36", 0xB4, 44, $npcID, "Would you like to hear the details?");
  671. }
  672. $data .= pack("v1 a4", 0xB5, $npcID);
  673. $clientdata{$index}{npc_talk_code} = 2;
  675. } elsif ($clientdata{$index}{npc_talk_code} == 2.5) {
  676. if (!defined $clientdata{$index}{serverType}) {
  677. $data .= pack("v2 a4 a68", 0xB4, 76, $npcID, "As you can see, I can't find a matching serverType for your server.");
  678. $data .= pack("v2 a4 a119", 0xB4, 127, $npcID, "Please make a trial-and-error using all available serverTypes, one of them might be able to work.");
  679. } elsif ($clientdata{$index}{serverType} == 7 || $clientdata{$index}{serverType} == 12) {
  680. $data .= pack("v2 a4 a65", 0xB4, 73, $npcID, "Like I said, your server is not yet fully supported by Openkore.");
  681. $data .= pack("v2 a4 a105", 0xB4, 113, $npcID, "You can login to the server and do most basic tasks, but you cannot attack, sit or stand, or use skills.");
  682. }
  683. $data .= pack("v1 a4", 0xB5, $npcID);
  684. $clientdata{$index}{npc_talk_code} = 4;
  686. } elsif ($clientdata{$index}{npc_talk_code} == 3) {
  687. $data .= pack("v2 a4 a103", 0xB4, 111, $npcID, "The values of ^2222DDip^000000 and ^2222DDport^000000 can be found on your client's (s)clientinfo.xml.");
  688. $data .= pack("v1 a4", 0xB5, $npcID);
  689. $clientdata{$index}{npc_talk_code} = 4;
  691. } elsif ($clientdata{$index}{npc_talk_code} == 4) {
  692. if (!defined $clientdata{$index}{serverType}) {
  693. $data .= pack("v2 a4 a135", 0xB4, 143, $npcID, "If none of the serverTypes work, please inform the developers about this so we can support your server in future releases of Openkore.");
  694. $data .= pack("v2 a4 a55", 0xB4, 63, $npcID, "Please visit ^2222DDhttp://forums.openkore.com/^000000");
  695. $data .= pack("v2 a4 a28", 0xB4, 36, $npcID, "Thank you.");
  696. } else {
  697. if (($clientdata{$index}{serverType} == 7)
  698. || ($clientdata{$index}{serverType} == 8)
  699. || ($clientdata{$index}{serverType} == 9)
  700. || ($clientdata{$index}{serverType} == 10)
  701. || ($clientdata{$index}{serverType} == 11)
  702. || ($clientdata{$index}{serverType} == 12)
  703. || ($clientdata{$index}{masterLogin_packet})
  704. || ($clientdata{$index}{gameLogin_packet})
  705. ) {
  706. $data .= pack("v2 a4 a73", 0xB4, 81, $npcID, "Please note that you can only connect to your server using Openkore SVN.");
  707. } else {
  708. $data .= pack("v2 a4 a52", 0xB4, 60, $npcID, "Openkore v.1.6.6 or later will work on your server.");
  709. }
  710. $data .= pack("v2 a4 a67", 0xB4, 75, $npcID, "For more info, please visit ^2222DDhttp://www.openkore.com/^000000");
  711. $data .= pack("v2 a4 a11", 0xB4, 19, $npcID, "Good luck!");
  712. }
  713. $data .= pack("v1 a4", 0xB6, $npcID);
  714. }
  715. $client->send($data);
  716. }
  718. } elsif ($npcID eq $npcID1) {
  719. # Show kafra response list
  720. my $data = pack("v2 a4 a20", 0xB7, 28, $npcID, "Use Storage:Cancel:");
  721. $client->send($data);
  722. }
  724. } elsif ($switch eq '0146') { # talk cancel
  725. my $npcID = substr($msg, 2, 4);
  726. if ($npcID eq $npcID1) {
  727. my $data = pack("C2 a64 C1", 0xB3, 0x01, "kafra_04.bmp", 0xFF);
  728. $client->send($data);
  729. }
  731. } elsif ($clientdata{$index}{mode}) {
  733. if (($switch eq '00F7' || $switch eq '0193') && (length($msg) == 2)) { # storage close
  734. my $data = pack("v1", 0xF8);
  735. $client->send($data);
  737. } elsif ($switch eq '00BF') { # emoticon
  738. my ($client, $code) = @_;
  739. my $data = pack("v1 a4", 0xC0, $accountID) . substr($msg, 2, 1);
  740. $clientdata{$index}{emoticonTime} = time;
  741. $client->send($data);
  743. } else {
  744. print "nReceived packet $switch:n";
  745. visualDump($msg, "$switch");
  747. # Just provide feedback in the RO Client about the unhandled packet
  748. # '008E' => ['self_chat', 'x2 Z*', [qw(message)]],
  749. my $data = pack("v2 a31", 0x8E, 35, "Sent packet $switch (" . length($msg) . " bytes).");
  750. if (timeOut($clientdata{$index}{emoticonTime}, 1.8)) {
  751. $clientdata{$index}{emoticonTime} = time;
  752. $data .= pack("v1 a4 C1", 0xC0, $accountID, 1);
  753. }
  755. # These following packets should reset the item inventory.
  756. # If you drop something from your inventory and the server didn't respond,
  757. # you will not be able to drop the item for the second test
  758. # This, however, does not cover item_use. YOu would have to relog
  759. # to test another item_use packet.
  760. #$data .= pack("v3", 0xAF, 3, 0);
  761. #$data .= pack("v3", 0xAF, 4, 0);
  763. # There are no other send packet that contains NPC ids as the last four byte
  764. # other than the talk and sendGetPlayerInfo packets.
  765. # Since most possible talk packets are handled above, we can assume that this is
  766. # a sendGetPlayerInfo packet.
  767. # Note that we have an NPC that is not named initially to allow a
  768. # sendGetPlayerInfo packet to be captured.)
  769. # '0095' => ['actor_info', 'a4 Z24', [qw(ID name)]],
  770. my $ID = substr($msg, length($msg) - 4, 4);
  771. if ($ID eq $npcID0) {
  772. $data .= pack("v1 a4 a24", 0x95, $npcID0, "Server Details Guide");
  773. } elsif ($ID eq $npcID1) {
  774. $data .= pack("v1 a4 a24", 0x95, $npcID1, "Kafra");
  775. }
  777. $client->send($data);
  778. }
  779. }
  780. }
  781. }
  783. sub mapLogin {
  784. my ($self, $client, $msg, $index) = @_;
  786. # '0073' => ['map_loaded','x4 a3',[qw(coords)]]
  787. my $data = $accountID .
  788. pack("C*", 0x73, 0x00, 0x31, 0x63, 0xe9, 0x02) .
  789. getCoordString($posX, $posY, 1) .
  790. pack("C*", 0x05, 0x05);
  792. if ($clientdata{$index}{mode}) {
  793. $data .= pack("C2 v1", 0x0F, 0x01, 226) .
  794. # skillID targetType level sp range skillName
  795. pack("v2 x2 v3 a24 C1", 1, 0, 9, 0, 1, "NV_BASIC" . chr(0) . "GetMapInfo" . chr(0x0A), 0) .
  796. pack("v2 x2 v3 a24 C1", 24, 4, 1, 10, 10, "AL_RUWACH", 0) . # self skill test
  797. pack("v2 x2 v3 a24 C1", 25, 2, 1, 10, 9, "AL_PNEUMA", 0) . # location skill test
  798. pack("v2 x2 v3 a24 C1", 26, 4, 2, 9, 1, "AL_TELEPORT", 0) . # self skill test
  799. pack("v2 x2 v3 a24 C1", 27, 2, 4, 26, 9, "AL_WARP", 0) . # location skill test
  800. pack("v2 x2 v3 a24 C1", 28, 16, 10, 40, 9, "AL_HEAL", 0); # target skill test
  801. }
  802. $client->send($data);
  803. $client->{connectedToMap} = 1;
  804. }
  806. 1;