8 lines
244 B
OCaml
8 lines
244 B
OCaml
open Dnstoy
|
|
|
|
let () =
|
|
let response = Network.send_request "8.8.8.8" "www.example.com" in
|
|
print_endline (Utils.get_bytecode response);
|
|
let dns_packet = Response.parse_dns_packet response in
|
|
print_endline (Debug.dns_packet dns_packet)
|
|
;;
|