VB.Net by API/System.Security.Cryptography.X509Certificates/X509Certificate

X509Certificate.CreateFromCertFile

<source lang="vbnet"> Imports System.Security.Principal Imports System.Security.Permissions Imports System.IO Imports System.Diagnostics Imports System.Security.Cryptography.X509Certificates public class MainClass

  Shared Public Sub Main(ByVal CmdArgs() As String)
       If CmdArgs.Length <> 1 Then
           Console.Write("usage loadCert <cert file> ")
           End
       End If
       Dim cert As X509Certificate = _
       X509Certificate.CreateFromCertFile(CmdArgs(0))
       Console.WriteLine("hash= {0}", cert.GetCertHashString())
       Console.WriteLine("effective Date= {0}", _
       cert.GetEffectiveDateString())
       Console.WriteLine("expire Date= {0}", _
       cert.GetExpirationDateString())
       Console.WriteLine("Issued By= {0}", cert.GetIssuerName())
       Console.WriteLine("Issued To= {0}", cert.GetName())
       Console.WriteLine("algo= {0}", cert.GetKeyAlgorithm())
       Console.WriteLine("Pub Key= {0}", cert.GetPublicKeyString())
   End Sub

End Class

 </source>

X509Certificate.GetCertHashString()

<source lang="vbnet"> Imports System.Security.Principal Imports System.Security.Permissions Imports System.IO Imports System.Diagnostics Imports System.Security.Cryptography.X509Certificates public class MainClass

  Shared Public Sub Main(ByVal CmdArgs() As String)
       If CmdArgs.Length <> 1 Then
           Console.Write("usage loadCert <cert file> ")
           End
       End If
       Dim cert As X509Certificate = _
       X509Certificate.CreateFromCertFile(CmdArgs(0))
       Console.WriteLine("hash= {0}", cert.GetCertHashString())
       Console.WriteLine("effective Date= {0}", _
       cert.GetEffectiveDateString())
       Console.WriteLine("expire Date= {0}", _
       cert.GetExpirationDateString())
       Console.WriteLine("Issued By= {0}", cert.GetIssuerName())
       Console.WriteLine("Issued To= {0}", cert.GetName())
       Console.WriteLine("algo= {0}", cert.GetKeyAlgorithm())
       Console.WriteLine("Pub Key= {0}", cert.GetPublicKeyString())
   End Sub

End Class

 </source>

X509Certificate.GetKeyAlgorithm()

<source lang="vbnet"> Imports System.Security.Principal Imports System.Security.Permissions Imports System.IO Imports System.Diagnostics Imports System.Security.Cryptography.X509Certificates public class MainClass

  Shared Public Sub Main(ByVal CmdArgs() As String)
       If CmdArgs.Length <> 1 Then
           Console.Write("usage loadCert <cert file> ")
           End
       End If
       Dim cert As X509Certificate = _
       X509Certificate.CreateFromCertFile(CmdArgs(0))
       Console.WriteLine("hash= {0}", cert.GetCertHashString())
       Console.WriteLine("effective Date= {0}", _
       cert.GetEffectiveDateString())
       Console.WriteLine("expire Date= {0}", _
       cert.GetExpirationDateString())
       Console.WriteLine("Issued By= {0}", cert.GetIssuerName())
       Console.WriteLine("Issued To= {0}", cert.GetName())
       Console.WriteLine("algo= {0}", cert.GetKeyAlgorithm())
       Console.WriteLine("Pub Key= {0}", cert.GetPublicKeyString())
   End Sub

End Class

 </source>

X509Certificate.GetPublicKeyString()

<source lang="vbnet"> Imports System.Security.Principal Imports System.Security.Permissions Imports System.IO Imports System.Diagnostics Imports System.Security.Cryptography.X509Certificates public class MainClass

  Shared Public Sub Main(ByVal CmdArgs() As String)
       If CmdArgs.Length <> 1 Then
           Console.Write("usage loadCert <cert file> ")
           End
       End If
       Dim cert As X509Certificate = _
       X509Certificate.CreateFromCertFile(CmdArgs(0))
       Console.WriteLine("hash= {0}", cert.GetCertHashString())
       Console.WriteLine("effective Date= {0}", _
       cert.GetEffectiveDateString())
       Console.WriteLine("expire Date= {0}", _
       cert.GetExpirationDateString())
       Console.WriteLine("Issued By= {0}", cert.GetIssuerName())
       Console.WriteLine("Issued To= {0}", cert.GetName())
       Console.WriteLine("algo= {0}", cert.GetKeyAlgorithm())
       Console.WriteLine("Pub Key= {0}", cert.GetPublicKeyString())
   End Sub

End Class

 </source>