1 files changed, 12 insertions, 0 deletions

diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs
index b7982a1a..6009afa2 100644
--- a/src/Network/Tox/DHT/Transport.hs
+++ b/src/Network/Tox/DHT/Transport.hs
@@ -174,6 +174,16 @@ data DHTRequest
     --   `8`      `uint64_t` random number (the same that was received in request)
     | NATPong Nonce8
     | DHTPK LongTermKeyWrap
+    -- From docs/Hardening_docs.txt
+    --
+    -- All hardening requests must contain exactly 384 bytes of data. (The data sent
+    -- must be padded with zeros if it is smaller than that.)
+    --
+    -- [byte with value: 02 (get nodes test request)][struct Node_format (the node to
+    -- test.)][client_id(32 bytes) the id to query the node with.][padding]
+    --
+    -- packet id: CRYPTO_PACKET_HARDENING (48)
+    | Hardening -- TODO
  deriving Show
 
 instance Sized DHTRequest where
@@ -193,10 +203,12 @@ instance Serialize DHTRequest where
                 direction <- get
                 bool NATPong NATPing (direction==(0::Word8)) <$> get
             0x9c -> DHTPK <$> get
+            0x30 -> pure Hardening -- TODO: CRYPTO_PACKET_HARDENING
             _ -> fail ("unrecognized DHT request: "++show tag)
     put (NATPing n) = put (0xfe00 :: Word16) >> put n
     put (NATPong n) = put (0xfe01 :: Word16) >> put n
     put (DHTPK pk)  = put (0x9c :: Word8) >> put pk
+    put (Hardening) = put (0x30 :: Word8) >> putByteString (B.replicate 384 0) -- TODO
 
 -- DHT public key packet:
 -- (As Onion data packet?)