Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2024-07-03 09:31:22 +00:00
Code Issues Packages Projects Releases Wiki Activity
48b38fa992
qubes-mirage-firewall/packet.ml

38 lines
1.2 KiB
OCaml
Raw Normal View History

Move NAT code to router and add DNS redirects
2015-12-30 16:07:16 +00:00
(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
See the README file for details. *)
Mirage 3 support
2017-03-02 14:52:55 +00:00
open Fw_utils
Move NAT code to router and add DNS redirects
2015-12-30 16:07:16 +00:00
type port = int
type ports = {
sport : port; (* Source port *)
dport : port; (* Destination *)
}
type host =
Combine Client_gateway and Firewall_uplink Before, we used Client_gateway for the IP address of the firewall on the client network and Firewall_uplink for its address on the uplink network. However, Qubes 4 uses the same IP address for both, so we can't separate these any longer, and there doesn't seem to be any advantage to keeping them separate anyway.
2019-05-16 18:18:31 +00:00
[ `Client of client_link | `Firewall | `NetVM | `External of Ipaddr.t ]
Move NAT code to router and add DNS redirects
2015-12-30 16:07:16 +00:00
Give exact types for Packet.src Before, the packet passed to rules.ml could have any host as its src. Now, `from_client` knows that `src` must be a `Client`, and `from_netvm` knows that `src` is `External` or `NetVM`.
2019-04-17 10:03:17 +00:00
type ('src, 'dst) info = {
Update to new mirage-nat API
2017-03-05 16:31:04 +00:00
packet : Nat_packet.t;
Give exact types for Packet.src Before, the packet passed to rules.ml could have any host as its src. Now, `from_client` knows that `src` must be a `Client`, and `from_netvm` knows that `src` is `External` or `NetVM`.
2019-04-17 10:03:17 +00:00
src : 'src;
dst : 'dst;
Move NAT code to router and add DNS redirects
2015-12-30 16:07:16 +00:00
proto : [ `UDP of ports | `TCP of ports | `ICMP | `Unknown ];
}
Allow naming hosts and add examples to rules.ml Previously we passed in the interface, from which it was possible (but a little difficult) to extract the IP address and compare with some predefined ones. Now, we allow the user to list IP addresses and named tags for them, which can be matched on easily. Added example rules showing how to block access to an external service or allow SSH between AppVMs. Requested at https://groups.google.com/d/msg/qubes-users/BnL0nZGpJOE/61HOBg1rCgAJ.
2019-04-11 11:25:19 +00:00
(* The first message in a TCP connection has SYN set and ACK clear. *)
let is_tcp_start = function
| `IPv4 (_ip, `TCP (hdr, _body)) -> Tcp.Tcp_packet.(hdr.syn && not hdr.ack)
| _ -> false
Add some types to the rules Before, we inferred the types from rules.ml and then the compiler checked that it was consistent with what firewall.ml expected. If it wasn't it reported the problem as being with firewall.ml, which could be confusing to users.
2019-04-17 09:26:32 +00:00
(* The possible actions we can take for a packet: *)
type action = [
| `Accept (* Send the packet to its destination. *)
| `NAT (* Rewrite the packet's source field so packet appears to
have come from the firewall, via an unused port.
Also, add NAT rules so related packets will be translated accordingly. *)
| `NAT_to of host * port (* As for [`NAT], but also rewrite the packet's
destination fields so it will be sent to [host:port]. *)
| `Drop of string (* Drop the packet and log the given reason. *)
]
Reference in New Issue Copy Permalink