vb System.Security.Cryptography.X509Certificates.X509Certificate.GetSerialNumber类(方法)实例源码

' 导入命名空间
Imports System.Security.Cryptography.X509Certificates




Public Class X509
   
   
   Public Shared Sub Main()
      
      ' The path to the certificate.
      Dim Certificate As String = "Certificate.cer"
      
      ' Load the certificate into an X509Certificate object.
      Dim cert As X509Certificate = X509Certificate.CreateFromCertFile(Certificate)
      
      ' Get the value.
      Dim results As Byte() = cert.GetSerialNumber()
      
      ' Display the value to the console.
      Dim b As Byte
      For Each b In  results
         Console.Write(b)
      Next b
   End Sub 
End Class