anchor.diff:      let encrypted = rsaProvider.Encrypt(plain, false)
       encrypted
   
  -let randomKey () =
  +let randomKey() = 
       use rngCryptoServiceProvider = new RNGCryptoServiceProvider()
  -    let randomBytes = Array.zeroCreate 12
  +    let randomBytes = Array.zeroCreate 9
       rngCryptoServiceProvider.GetBytes(randomBytes)
  -    Convert.ToBase64String(randomBytes)
  +    let r = Convert.ToBase64String(randomBytes)
  +    r
   
  -let private ctrlloop (config:Map<string, string>) =
  +let private ctrlloop (config : Map<string, string>) = 
       let ca = config.["controlAddress"]
       sprintf "[%i] Ormonit test in control loop with" lid |> log.Trace
       let s = NN.Socket(Domain.SP, Protocol.RESPONDENT)
  
positive.code: let log = LogManager.GetLogger "Ormonit.Test"
  let logConfig = NLog.Config.LoggingConfiguration()
  let consoleTarget = new NLog.Targets.ColoredConsoleTarget()
  logConfig.AddTarget("console", consoleTarget)
  let fileTarget = new NLog.Targets.FileTarget()
  logConfig.AddTarget("file", fileTarget)
  consoleTarget.Layout <- Layout.FromString @"${date:format=HH\:mm\:ss}|${logger}|${message}"
  fileTarget.FileName <- Layout.FromString @"${basedir}\logs\Ormonit.ServiceTest.log"
  
negative.code:         //log.Trace("continue value {0} flag", continu)
          action()
  
  let Start(config : Map<string, string>) = 
      //let ckey = randomKey()
      let ckey = "0123456789AB"
      let p, logicId = Int32.TryParse config.["logicId"]
      if not p then raise (System.ArgumentException("locigId"))
      lid <- logicId
      log.Info("[{0}] Start. Current directory {1}", lid, Environment.CurrentDirectory)
      let task = Task.Run(action)
  