Example: X509.CertOptions  X509.KeyUsageOptions  X509.MakeCertSelf 

[VB6 equivalent: X509_MakeCertSelf]

Dim nRet As Integer
Dim kuoKeyUsage As X509.KeyUsageOptions

kuoKeyUsage = X509.KeyUsageOptions.DigitalSignature _
    Or X509.KeyUsageOptions.KeyCertSign Or X509.KeyUsageOptions.CrlSign
nRet = X509.MakeCertSelf("myca.cer", "myca.p8e", 99, 10, _
    "CN=My CA,O=Test Org,OU=Certificate Services", _
    "", kuoKeyUsage, "password", SigAlgorithm.Rsa_Sha1, X509.CertOptions.Default)
If nRet <> 0 Then
    Console.WriteLine(nRet & " " & General.LastError())
Else
    Console.WriteLine("Success")
End If

See Also:
X509.MakeCertSelf Method

[Contents] [Index]