dht.pas

   1 unit DHT;
   2 {
   3  implementation of custom dht, based on pastry and kademlia.
   4  keyspace is divided into buckets of limited capacity
   5  node belongs to bucket, where at least 'depth' bits match 'prefix'
   6 }
   7
   8 {used by: messages, fileshare}
   9
  10 INTERFACE
  11 uses NetAddr;
  12 type tPID=array [0..19] of byte;
  13 var MyID:tPID;
  14 procedure AddNode(const contact:tNetAddr);
  15 procedure Get(const id:tPID; out result:array of tNetAddr);
  16
  17 IMPLEMENTATION
  18
  19 END.