data/mods/default/textures/stone.png

-- minetest.lua
-- Packet dissector for the UDP-based Minetest protocol
-- Copy this to $HOME/.wireshark/plugins/


--
-- Minetest-c55
-- Copyright (C) 2011 celeron55, Perttu Ahola <celeron55@gmail.com>
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License along
-- with this program; if not, write to the Free Software Foundation, Inc.,
-- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
--


-- Table of Contents:
--   Part 1: Client command dissectors (TOSERVER_*)
--   Part 2: Server command dissectors (TOCLIENT_*)
--   Part 3: Wrapper protocol subdissectors
--   Part 4: Wrapper protocol main dissector
--   Part 5: Utility functions


--------------------------------------------
-- Part 1                                 --
-- Client command dissectors (TOSERVER_*) --
--------------------------------------------

minetest_client_commands = {}
minetest_client_obsolete = {}

-- TOSERVER_INIT

do
	local f_ser_fmt = ProtoField.uint8("minetest.client.init_ser_version",
		"Maximum serialization format version", base.DEC)
	local f_player_name = ProtoField.stringz("minetest.client.init_player_name", "Player Name")
	local f_password = ProtoField.stringz("minetest.client.init_password", "Password")
	local f_version = ProtoField.uint16("minetest.client.init_version", "Version", base.DEC)

	minetest_client_commands[0x10] = {
		"INIT",                             -- Command name
		53,                                 -- Minimum message length including code
		{ f_ser_fmt,                        -- List of fields [optional]
		  f_player_name,
		  f_password,
		  f_version },
		function(buffer, pinfo, tree, t)    -- Dissector function [optional]
			t:add(f_ser_fmt, buffer(2,1))
			t:add(f_player_name, buffer(3,20))
			t:add(f_password, buffer(23,28))
			t:add(f_version, buffer(51,2))
		end
	}
end

-- TOSERVER_INIT2

minetest_client_commands[0x11] = { "INIT2", 2 }

-- TOSERVER_GETBLOCK (obsolete)

minetest_client_commands[0x20] = { "GETBLOCK", 2 }
minetest_client_obsolete[0x20] = true

-- TOSERVER_ADDNODE (obsolete)

minetest_client_commands[0x21] = { "ADDNODE", 2 }
minetest_client_obsolete[0x21] = true

-- TOSERVER_REMOVENODE (obsolete)

minetest_client_commands[0x22] = { "REMOVENODE", 2 }
minetest_client_obsolete[0x22] = true

-- TOSERVER_PLAYERPOS

do
	local f_x = ProtoField.int32("minetest.client.playerpos_x", "Position X", base.DEC)
	local f_y = ProtoField.int32("minetest.client.playerpos_y", "Position Y", base.DEC)
	local f_z = ProtoField.int32("minetest.client.playerpos_z", "Position Z", base.DEC)
	local f_speed_x = ProtoField.int32("minetest.client.playerpos_speed_x", "Speed X", base.DEC)
	local f_speed_y = ProtoField.int32("minetest.client.playerpos_speed_y", "Speed Y", base.DEC)
	local f_speed_z = ProtoField.int32("minetest.client.playerpos_speed_z", "Speed Z", base.DEC)
	local f_pitch = ProtoField.int32("minetest.client.playerpos_pitch", "Pitch", base.DEC)
	local f_yaw = ProtoField.int32("minetest.client.playerpos_yaw", "Yaw", base.DEC)

	minetest_client_commands[0x23] = {
		"PLAYERPOS", 34,
		{ f_x, f_y, f_z, f_speed_x, f_speed_y, f_speed_z, f_pitch, f_yaw },
		function(buffer, pinfo, tree, t)
			t:add(f_x, buffer(2,4))
			t:add(f_y, buffer(6,4))
			t:add(f_z, buffer(10,4))
			t:add(f_speed_x, buffer(14,4))
			t:add(f_speed_y, buffer(18,4))
			t:add(f_speed_z, buffer(22,4))
			t:add(f_pitch, buffer(26,4))
			t:add(f_yaw, buffer(30,4))
		end
	}
end

-- TOSERVER_GOTBLOCKS

do
	local f_count = ProtoField.uint8("minetest.client.gotblocks_count", "Count", base.DEC)
	local f_block = ProtoField.bytes("minetset.client.gotblocks_block", "Block", base.DEC)
	local f_x = ProtoField.int16("minetest.client.gotblocks_x", "Block position X", base.DEC)
	local f_y = ProtoField.int16("minetest.client.gotblocks_y", "Block position Y", base.DEC)
	local f_z = ProtoField.int16("minetest.client.gotblocks_z", "Block position Z", base.DEC)

	minetest_client_commands[0x24] = {
		"GOTBLOCKS", 3,
		{ f_count, f_block, f_x, f_y, f_z },
		function(buffer, pinfo, tree, t)
			t:add(f_count, buffer(2,1))
			local count = buffer(2,1):uint()
			if minetest_check_length(buffer, 3 + 6*count, t) then
				pinfo.cols.info:append(" * " .. count)
				local index
				for index = 0, count - 1 do
					local pos = 3 + 6*index
					local t2 = t:add(f_block, buffer(pos, 6))
					t2:set_text("Block, X: " .. buffer(pos, 2):int()
						.. ", Y: " .. buffer(pos + 2, 2):int()
						.. ", Z: " .. buffer(pos + 4, 2):int())
					t2:add(f_x, buffer(pos, 2))
					t2:add(f_y, buffer(pos + 2, 2))
					t2:add(f_z, buffer(pos + 4, 2))
				end
			end
		end
	}
end

-- TOSERVER_DELETEDBLOCKS
-- TODO: Test this

do
	local f_count = ProtoField.uint8("minetest.client.deletedblocks_count", "Count", base.DEC)
	local f_block = ProtoField.bytes("minetset.client.deletedblocks_block", "Block", base.DEC)
	local f_x = ProtoField.int16("minetest.client.deletedblocks_x", "Block position X", base.DEC)
	local f_y = ProtoField.int16("minetest.client.deletedblocks_y", "Block position Y", base.DEC)
	local f_z = ProtoField.int16("minetest.client.deletedblocks_z", "Block position Z", base.DEC)

	minetest_client_commands[0x25] = {
		"DELETEDBLOCKS", 3,
		{ f_count, f_block, f_x, f_y, f_z },
		function(buffer, pinfo, tree, t)
			t:add(f_count, buffer(2,1))
			local count = buffer(2,1):uint()
			if minetest_check_length(buffer, 3 + 6*count, t) then
				pinfo.cols.info:append(" * " .. count)
				local index
				for index = 0, count - 1 do
					local pos = 3 + 6*index
					local t2 = t:add(f_block, buffer(pos, 6))
					t2:set_text("Block, X: " .. buffer(pos, 2):int()
						.. ", Y: " .. buffer(pos + 2, 2):int()
						.. ", Z: " .. buffer(pos + 4, 2):int())
					t2:add(f_x, buffer(pos, 2))
					t2:add(f_y, buffer(pos + 2, 2))
					t2:add(f_z, buffer(pos + 4, 2))
				end
			end
		end
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 10 00 00 00 10 08 02 00 00 00 90 91 68	.PNG........IHDR...............h
0020	36 00 00 00 01 73 52 47 42 00 ae ce 1c e9 00 00 00 06 62 4b 47 44 00 ff 00 ff 00 ff a0 bd a7 93	6....sRGB.........bKGD..........
0040	00 00 00 09 70 48 59 73 00 00 0b 13 00 00 0b 13 01 00 9a 9c 18 00 00 00 07 74 49 4d 45 07 db 04	....pHYs.................tIME...
0060	05 0a 15 35 1a e2 b7 5f 00 00 02 a6 49 44 41 54 28 cf 25 d1 4d 4f 82 60 00 c0 71 81 07 1f 41 40	...5..._....IDAT(.%.MO.`..q...A@
0080	5e 84 12 32 26 75 c0 b2 2e 1e 3a d4 a5 b5 f5 c9 fa 06 7d 9f 2e cd 36 0f ad cd da 6c 15 59 2e 30	^..2&u....:.......}...6....l.Y.0
00a0	35 63 05 3c 0f 10 2f 1d 3c ff f7 3f fd 88 cb cb 4b c7 71 14 45 11 45 91 61 98 5a ad f6 f1 f1 e1	5c.<../.<..?....K.q.E.E.a.Z.....
00c0	fb 7e 59 96 82 20 d0 34 8d 31 fe fa fa 4a 92 24 8e 63 51 14 a9 4e a7 b3 bf bf 8f 10 62 59 d6 75	.~Y....4.1...J.$.cQ..N......bY.u
00e0	dd c1 60 50 a9 54 58 96 25 49 72 32 99 fc fc fc b8 ae db ed 76 1d c7 d1 34 0d 42 48 f5 fb fd a2	..`P.TX.%Ir2........v...4.BH....
0100	28 00 00 08 a1 28 8a 20 84 b6 6d 23 84 54 55 15 45 11 21 24 cb 32 c7 71 79 9e fb be df 6a b5 48	(....(....m#.TU.E.!$.2.qy....j.H
0120	96 65 a3 28 7a 7d 7d 8d e3 38 8a a2 46 a3 91 65 99 ae eb 9e e7 0d 06 03 9a a6 f3 3c a7 69 7a 67	.e.(z}}..8..F..e...........<.izg
0140	67 e7 e0 e0 e0 e9 e9 89 3a 3b 3b 23 08 42 d3 b4 75 b0 2c 8b 20 08 df f7 01 00 3c cf 27 49 52 ad	g.......:;;#.B..u.,.......<.'IR.
0160	56 09 82 60 59 76 b1 58 34 1a 0d 32 4d 53 8e e3 74 5d df db db 83 10 16 45 01 21 c4 18 63 8c 79	V..`Yv.X4..2MS..t]......E.!..c.y
0180	9e 2f cb 92 e3 b8 28 8a 86 c3 61 92 24 3c cf 03 d3 34 21 84 69 9a aa aa ba 58 2c 5e 5e 5e 04 41	./....(...a.$<...4!.i....X,^^^.A
01a0	10 04 21 cb b2 ef ef 6f c3 30 7c df 6f b7 db ab d5 6a 3e 9f 47 51 44 9d 9c 9c 08 82 70 75 75 95	..!....o.0\|.o....j>.GQD.....puu.
01c0	a6 e9 f1 f1 71 51 14 92 24 cd e7 f3 c9 64 62 59 d6 df df df 6c 36 23 08 62 7b 7b 7b 3a 9d 1a 86	....qQ..$....dbY....l6#.b{{{:...
01e0	41 f5 7a 3d 41 10 34 4d eb 74 3a 00 80 66 b3 59 ab d5 14 45 b1 6d 9b e3 b8 24 49 9a cd e6 72 b9	A.z=A.4M.t:..f.Y...E.m...$I...r.
0200	ac 56 ab 6f 6f 6f b2 2c 13 17 17 17 6b 91 f7 f7 77 df f7 79 9e af d7 eb ba ae 33 0c c3 f3 fc e3	.V.ooo.,....k...w..y......3.....
0220	e3 a3 24 49 45 51 ac 67 86 61 80 61 18 9f 9f 9f 8e e3 1c 1d 1d 41 08 9f 9f 9f cb b2 94 65 39 cb	..$IEQ.g.a.a.........A.......e9.
0240	b2 fb fb 7b 82 20 74 5d 1f 8f c7 61 18 06 41 90 a6 29 c8 b2 4c 51 14 86 61 46 a3 d1 e9 e9 e9 9a	...{..t]...a..A..)..LQ..aF......
0260	2c 0c 43 00 c0 6a b5 8a e3 98 61 18 00 00 c6 38 4d 53 96 65 c9 20 08 82 20 40 08 ed ee ee 3e 3c	,.C..j....a....8MS.e.....@....><
0280	3c 94 65 a9 69 5a 18 86 6b 0a c3 30 3c cf 33 4d 93 a2 a8 f1 78 8c 31 a6 fa fd be e7 79 45 51 dc	<.e.iZ..k..0<.3M....x.1.....yEQ.
02a0	de de 6e 6d 6d 75 bb 5d d7 75 1d c7 c1 18 b7 5a 2d cf f3 0e 0f 0f 97 cb 25 4d d3 e7 e7 e7 d3 e9	..nmmu.].u.....Z-.......%M......
02c0	14 a8 aa 2a 49 12 49 92 1b 1b 1b 79 9e 57 2a 15 45 51 48 92 84 10 5e 5f 5f 9b a6 79 73 73 a3 28	...I.I....y.W.EQH...^__..yss.(
02e0	ca e6 e6 e6 70 38 6c b7 db 54 b7 db 1d 8d 46 a2 28 f6 7a bd d9 6c 76 77 77 27 8a e2 ef ef 2f 42	....p8l..T....F.(.z..lvww'..../B
0300	c8 b2 ac 24 49 6c db ae d7 eb 59 96 f1 3c 2f 08 c2 3f 42 b9 67 98 69 44 05 90 00 00 00 00 49 45	...$Il....Y..</..?B.g.iD......IE
0320	4e 44 ae 42 60 82	ND.B`.