anchor.diff:          udpClient.Client.SendBufferSize <- UdpConstants.DefaultSendBufferSize
           udpClientV6.Client.SendBufferSize <- UdpConstants.DefaultSendBufferSize
   
  +        let buffer = Array.zeroCreate 65536
  +        let bufferStream = new MemoryStream (buffer)
  +
  +        let aes = new AesCryptoServiceProvider ()
  +
  +        let encryptor = aes.CreateEncryptor ()
  +
  +        let decryptor = aes.CreateDecryptor ()
  +
           { 
               UdpClient = udpClient
               UdpClientV6 = udpClientV6
  -            Buffer = Array.zeroCreate 65536
  +            BufferStream = bufferStream
  +            Buffer = buffer
               receiveBufferSize = UdpConstants.DefaultReceiveBufferSize
               sendBufferSize = UdpConstants.DefaultSendBufferSize
  +            Aes = aes
  +            Encryptor = encryptor
  +            Decryptor = decryptor
           }
   
       new (port) =
  
positive.code:         udpClient.Client.SendBufferSize <- UdpConstants.DefaultSendBufferSize
          udpClientV6.Client.SendBufferSize <- UdpConstants.DefaultSendBufferSize
  
          { 
              UdpClient = udpClient
              UdpClientV6 = udpClientV6
              Buffer = Array.zeroCreate 65536
              receiveBufferSize = UdpConstants.DefaultReceiveBufferSize
              sendBufferSize = UdpConstants.DefaultSendBufferSize
          }
  
      interface IUdp with
  
negative.code: 
      val UdpClientV6 : UdpClient
  
      val BufferStream : MemoryStream
  
      val Buffer : byte []
  
      val mutable receiveBufferSize : int
  
      val mutable sendBufferSize : int
  
      val Aes : AesCryptoServiceProvider 
  
      val Encryptor : ICryptoTransform
  
      val Decryptor : ICryptoTransform
  
      new () =
          let udpClient = new UdpClient (AddressFamily.InterNetwork)
  