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
|
