NOnion: minor refactoring

Renamed IdentityKey type to Fingerprint as technically this is
the digest of identity key.

Author: webwarrior-ws

NOnion/Directory/TorDirectory.fs

@@ -277,7 +277,7 @@ type TorDirectory =
                     CircuitNodeDetail.Create(
                         endpoint,
                         NTorOnionKey nTorOnionKeyBytes,
-                        IdentityKey fingerprintBytes
+                        Fingerprint fingerprintBytes
                     )
         }
 

NOnion/KeyTypes.fs

@@ -57,7 +57,8 @@ type NTorOnionKey(bytes: array<byte>) =
     member self.ToByteArray() =
         bytes
 
-type IdentityKey(bytes: array<byte>) =
+/// Digest of identity key.
+type Fingerprint(bytes: array<byte>) =
     do
         if bytes.Length <> Constants.IdentityKeyLength then
             failwithf

NOnion/Network/TorCircuit.fs

@@ -26,7 +26,7 @@ type CircuitNodeDetail =
     | Create of
         EndPoint: IPEndPoint *
         NTorOnionKey: NTorOnionKey *
-        IdentityKey: IdentityKey
+        Fingerprint: Fingerprint
 
     member self.GetIdentityKey() =
         match self with

NOnion/Network/TorGuard.fs

@@ -49,7 +49,7 @@ type TorGuard
     (
         client: TcpClient,
         sslStream: SslStream,
-        fingerprintOpt: Option<IdentityKey>
+        fingerprintOpt: Option<Fingerprint>
     ) =
     let shutdownToken = new CancellationTokenSource()
 
@@ -116,7 +116,7 @@ type TorGuard
 
     static member private InnerNewClient
         (ipEndpoint: IPEndPoint)
-        (fingerprintOpt: Option<IdentityKey>)
+        (fingerprintOpt: Option<Fingerprint>)
         =
         async {
             let tcpClient = new TcpClient()

NOnion/Services/TorServiceClient.fs

@@ -373,7 +373,7 @@ type TorServiceClient =
                                     CircuitNodeDetail.Create(
                                         endpointSpecifier,
                                         introductionPoint.OnionKey.Value,
-                                        IdentityKey identityKey
+                                        Fingerprint identityKey
                                     )
 
                         return

NOnion/Services/TorServiceHost.fs

@@ -31,7 +31,7 @@ type IntroductionPointInfo =
         AuthKey: AsymmetricCipherKeyPair
         MasterPublicKey: Ed25519PublicKeyParameters
         NTorOnionKey: NTorOnionKey
-        Fingerprint: IdentityKey
+        Fingerprint: Fingerprint
     }
 
 type TorServiceHost
@@ -234,7 +234,7 @@ type TorServiceHost
                     |> Seq.tryExactlyOne
 
                 match linkSpecifierOpt with
-                | Some linkSpecifier -> IdentityKey linkSpecifier.Data
+                | Some linkSpecifier -> Fingerprint linkSpecifier.Data
                 | None -> failwith "No rendezvous fingerprint found!"
 
             let connectToRendezvousJob =

NOnion/TorHandshakes/NTorHandshake.fs

@@ -15,13 +15,13 @@ type NTorHandshake =
         {
             RandomClientPrivateKey: X25519PrivateKeyParameters
             RandomClientPublicKey: X25519PublicKeyParameters
-            IdentityDigest: IdentityKey
+            IdentityDigest: Fingerprint
             NTorOnionKey: X25519PublicKeyParameters
         }
 
 
     static member Create
-        (identityDigest: IdentityKey)
+        (identityDigest: Fingerprint)
         (nTorOnionKey: NTorOnionKey)
         =