1 -- Copyright (C) 2009 Thilo Cestonaro
3 -- This project is MIT/X11 licensed. Please see the
4 -- COPYING file in the source package for more information.
7 * to restart the proxy in the console: e.g.
8 module:unload("proxy65");
9 > server.removeserver(<proxy65_port>);
10 module:load("proxy65", <proxy65_jid>);
14 local module = module;
15 local tostring = tostring;
16 local jid_split, jid_join, jid_compare = require "util.jid".split, require "util.jid".join, require "util.jid".compare;
17 local st = require "util.stanza";
18 local connlisteners = require "net.connlisteners";
19 local sha1 = require "util.hashes".sha1;
20 local server = require "net.server";
22 local host, name = module:get_host(), "SOCKS5 Bytestreams Service";
23 local sessions, transfers, replies_cache = {}, {}, {};
25 local proxy_port = module:get_option("proxy65_port") or 5000;
26 local proxy_interface = module:get_option("proxy65_interface") or "*";
27 local proxy_address = module:get_option("proxy65_address") or (proxy_interface ~= "*" and proxy_interface) or host;
28 local proxy_acl = module:get_option("proxy65_acl");
29 local max_buffer_size = 4096;
31 local connlistener = { default_port = proxy_port, default_interface = proxy_interface, default_mode = "*a" };
33 function connlistener.onincoming(conn, data)
34 local session = sessions[conn] or {};
36 if session.setup == nil and data ~= nil and data:byte(1) == 0x05 and #data > 2 then
37 local nmethods = data:byte(2);
38 local methods = data:sub(3);
39 local supported = false;
40 for i=1, nmethods, 1 do
41 if(methods:byte(i) == 0x00) then -- 0x00 == method: NO AUTH
47 module:log("debug", "new session found ... ")
49 sessions[conn] = session;
50 conn:write(string.char(5, 0));
55 if session.sha ~= nil and transfers[session.sha] ~= nil then
56 local sha = session.sha;
57 if transfers[sha].activated == true and transfers[sha].target ~= nil then
58 if transfers[sha].initiator == conn then
59 transfers[sha].target:write(data);
61 transfers[sha].initiator:write(data);
66 if data ~= nil and #data == 0x2F and -- 40 == length of SHA1 HASH, and 7 other bytes => 47 => 0x2F
67 data:byte(1) == 0x05 and -- SOCKS5 has 5 in first byte
68 data:byte(2) == 0x01 and -- CMD must be 1
69 data:byte(3) == 0x00 and -- RSV must be 0
70 data:byte(4) == 0x03 and -- ATYP must be 3
71 data:byte(5) == 40 and -- SHA1 HASH length must be 40 (0x28)
72 data:byte(-2) == 0x00 and -- PORT must be 0, size 2 byte
75 local sha = data:sub(6, 45); -- second param is not count! it's the ending index (included!)
76 if transfers[sha] == nil then
78 transfers[sha].activated = false;
79 transfers[sha].target = conn;
81 module:log("debug", "target connected ... ");
82 elseif transfers[sha].target ~= nil then
83 transfers[sha].initiator = conn;
85 module:log("debug", "initiator connected ... ");
86 server.link(conn, transfers[sha].target, max_buffer_size);
87 server.link(transfers[sha].target, conn, max_buffer_size);
89 conn:write(string.char(5, 0, 0, 3, #sha) .. sha .. string.char(0, 0)); -- VER, REP, RSV, ATYP, BND.ADDR (sha), BND.PORT (2 Byte)
92 module:log("warn", "Neither data transfer nor initial connect of a participator of a transfer.")
97 module:log("warn", "unknown connection with no authentication data -> closing it");
103 function connlistener.ondisconnect(conn, err)
104 local session = sessions[conn];
106 if session.sha and transfers[session.sha] then
107 local initiator, target = transfers[session.sha].initiator, transfers[session.sha].target;
108 if initiator == conn and target ~= nil then
110 elseif target == conn and initiator ~= nil then
113 transfers[session.sha] = nil;
115 -- Clean up any session-related stuff here
116 sessions[conn] = nil;
120 module:hook("iq-get/host/http://jabber.org/protocol/disco#info:query", function(event)
121 local origin, stanza = event.origin, event.stanza;
122 local reply = replies_cache.disco_info;
124 reply = st.iq({type='result', from=host}):query("http://jabber.org/protocol/disco#info")
125 :tag("identity", {category='proxy', type='bytestreams', name=name}):up()
126 :tag("feature", {var="http://jabber.org/protocol/bytestreams"});
127 replies_cache.disco_info = reply;
130 reply.attr.id = stanza.attr.id;
131 reply.attr.to = stanza.attr.from;
136 module:hook("iq-get/host/http://jabber.org/protocol/disco#items:query", function(event)
137 local origin, stanza = event.origin, event.stanza;
138 local reply = replies_cache.disco_items;
140 reply = st.iq({type='result', from=host}):query("http://jabber.org/protocol/disco#items");
141 replies_cache.disco_items = reply;
144 reply.attr.id = stanza.attr.id;
145 reply.attr.to = stanza.attr.from;
150 module:hook("iq-get/host/http://jabber.org/protocol/bytestreams:query", function(event)
151 local origin, stanza = event.origin, event.stanza;
152 local reply = replies_cache.stream_host;
153 local err_reply = replies_cache.stream_host_err;
154 local sid = stanza.tags[1].attr.sid;
156 local jid = stanza.attr.from;
158 if proxy_acl and #proxy_acl > 0 then
159 for _, acl in ipairs(proxy_acl) do
160 if jid_compare(jid, acl) then allow = true; end
165 if allow == true then
167 reply = st.iq({type="result", from=host})
168 :query("http://jabber.org/protocol/bytestreams")
169 :tag("streamhost", {jid=host, host=proxy_address, port=proxy_port});
170 replies_cache.stream_host = reply;
173 module:log("warn", "Denying use of proxy for %s", tostring(jid));
174 if err_reply == nil then
175 err_reply = st.iq({type="error", from=host})
176 :query("http://jabber.org/protocol/bytestreams")
177 :tag("error", {code='403', type='auth'})
178 :tag("forbidden", {xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'});
179 replies_cache.stream_host_err = err_reply;
183 reply.attr.id = stanza.attr.id;
184 reply.attr.to = stanza.attr.from;
185 reply.tags[1].attr.sid = sid;
190 module.unload = function()
191 connlisteners.deregister(module.host .. ':proxy65');
194 local function set_activation(stanza)
196 local from = stanza.attr.from;
197 local query = stanza.tags[1];
198 local sid = query.attr.sid;
199 if query.tags[1] and query.tags[1].name == "activate" then
200 to = query.tags[1][1];
202 if from ~= nil and to ~= nil and sid ~= nil then
203 reply = st.iq({type="result", from=host, to=from});
204 reply.attr.id = stanza.attr.id;
206 return reply, from, to, sid;
209 module:hook("iq-set/host/http://jabber.org/protocol/bytestreams:query", function(event)
210 local origin, stanza = event.origin, event.stanza;
212 module:log("debug", "Received activation request from %s", stanza.attr.from);
213 local reply, from, to, sid = set_activation(stanza);
214 if reply ~= nil and from ~= nil and to ~= nil and sid ~= nil then
215 local sha = sha1(sid .. from .. to, true);
216 if transfers[sha] == nil then
217 module:log("error", "transfers[sha]: nil");
218 elseif(transfers[sha] ~= nil and transfers[sha].initiator ~= nil and transfers[sha].target ~= nil) then
220 transfers[sha].activated = true;
221 transfers[sha].target:lock_read(false);
222 transfers[sha].initiator:lock_read(false);
224 module:log("debug", "Both parties were not yet connected");
225 local message = "Neither party is connected to the proxy";
226 if transfers[sha].initiator then
227 message = "The recipient is not connected to the proxy";
228 elseif transfers[sha].target then
229 message = "The sender (you) is not connected to the proxy";
231 origin.send(st.error_reply(stanza, "cancel", "not-allowed", message));
235 module:log("error", "activation failed: sid: %s, initiator: %s, target: %s", tostring(sid), tostring(from), tostring(to));
239 if not connlisteners.register(module.host .. ':proxy65', connlistener) then
240 module:log("error", "mod_proxy65: Could not establish a connection listener. Check your configuration please.");
241 module:log("error", "Possibly two proxy65 components are configured to share the same port.");
244 connlisteners.start(module.host .. ':proxy65');