diff --git a/test-dns.rkt b/test-dns.rkt index dfe3ee3..743b1c7 100644 --- a/test-dns.rkt +++ b/test-dns.rkt @@ -16,10 +16,19 @@ ;; 00000010: 67 6C 65 03 63 6F 6D 00 : 00 FF 00 01 gle.com..... ;; 0000001C: (define (q-google-in-any-bytes) - (bytes #x66 #x3A #x01 #x00 #x00 #x01 #x00 #x00 - #x00 #x00 #x00 #x00 #x06 #x67 #x6F #x6F - #x67 #x6C #x65 #x03 #x63 #x6F #x6D #x00 - #x00 #xFF #x00 #x01)) + (bytes #x66 #x3A ;; query ID + #x01 #x00 ;; flags and bits + #x00 #x01 ;; one question + #x00 #x00 ;; no answers + #x00 #x00 ;; no name server records + #x00 #x00 ;; no additional records + ;; The question: + #x06 #x67 #x6F #x6F #x67 #x6C #x65 ;; "google" + #x03 #x63 #x6F #x6D ;; "com" + #x00 ;; end of domain name + #x00 #xFF ;; query type ANY + #x00 #x01 ;; query class IN + )) ;; q-google-in-any : DNSMessage ;; Decoded (q-google-in-any-bytes).