qubes-mirage-firewall/packet.ml

(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
   See the README file for details. *)

open Fw_utils

type port = int

type ports = {
  sport : port; (* Source port *)
  dport : port; (* Destination *)
}

type host = 
  [ `Client of client_link | `Client_gateway | `Firewall_uplink | `NetVM | `External of Ipaddr.t ]

type info = {
  packet : Nat_packet.t;
  src : host;
  dst : host;
  proto : [ `UDP of ports | `TCP of ports | `ICMP | `Unknown ];
}
Move NAT code to router and add DNS redirects 2015-12-30 11:07:16 -05:00			`(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>`
			`See the README file for details. *)`

Mirage 3 support 2017-03-02 09:52:55 -05:00			`open Fw_utils`
Move NAT code to router and add DNS redirects 2015-12-30 11:07:16 -05:00
			`type port = int`

			`type ports = {`
			`sport : port; (* Source port *)`
			`dport : port; (* Destination *)`
			`}`

			`type host =`
Allow clients to have any IP address We previously assumed that Qubes would always give clients IP addresses on a particular network. However, it is not required to do this and in fact uses a different network for disposable VMs. With this change: - We no longer reject clients with unknown IP addresses - The `Unknown_client` classification is gone; we have no way to tell the difference between a client that isn't connected and an external address. - We now consider every client to be on a point-to-point link and do not answer ARP requests on behalf of other clients. Clients should assume their netmask is 255.255.255.255 (and ignore /qubes-netmask). This is a partial fix for #9. It allows disposable VMs to connect to the firewall but for some reason they don't process any frames we send them (we get their ARP requests but they don't get our replies). Taking eth0 down in the disp VM, then bringing it back up (and re-adding the routes) allows it to work. 2016-09-25 09:38:17 -04:00			[ `Client of client_link \| `Client_gateway \| `Firewall_uplink \| `NetVM \| `External of Ipaddr.t ]
Move NAT code to router and add DNS redirects 2015-12-30 11:07:16 -05:00
			`type info = {`
Update to new mirage-nat API 2017-03-05 11:31:04 -05:00			`packet : Nat_packet.t;`
Move NAT code to router and add DNS redirects 2015-12-30 11:07:16 -05:00			`src : host;`
			`dst : host;`
			proto : [ `UDP of ports \| `TCP of ports \| `ICMP \| `Unknown ];
			`}`