dns-toy/bin/main.ml

open Dnstoy

let () =
  let response = Network.send_request "8.8.8.8" "www.mylloon.fr" in
  print_endline (Utils.get_bytecode response);
  let dns_packet = Response.parse_dns_packet response in
  print_endline (Debug.dns_packet dns_packet)
;;
part 1 done! 2023-06-11 10:54:58 +02:00			`open Dnstoy`

			`let () =`
WIP: parse dns packet 2023-06-19 21:52:39 +02:00			`let response = Network.send_request "8.8.8.8" "www.mylloon.fr" in`
Add debugging stuff 2023-06-14 16:35:14 +02:00			`print_endline (Utils.get_bytecode response);`
WIP: parse dns packet 2023-06-19 21:52:39 +02:00			`let dns_packet = Response.parse_dns_packet response in`
			`print_endline (Debug.dns_packet dns_packet)`
part 1 done! 2023-06-11 10:54:58 +02:00			`;;`