X509_MakeCertSelf

Creates a self-signed X.509 certificate.

VB6/VBA

Debug.Print "Testing X509_MakeCertSelf ..."
Dim nRet As Long
Dim nKeyUsage As Long

nKeyUsage = PKI_X509_KEYUSAGE_DIGITALSIGNATURE + _
    PKI_X509_KEYUSAGE_KEYCERTSIGN + PKI_X509_KEYUSAGE_CRLSIGN
nRet = X509_MakeCertSelf("myca.cer", "myca.epk", 99, 10, _
    "CN=My CA,O=Test Org,OU=Certificate Services", _
    "", nKeyUsage, "password", 0)
If nRet <> 0 Then
    Debug.Print nRet & " " & pkiGetLastError()
Else
    Debug.Print "Success"
End If

Output

Testing X509_MakeCertSelf ...
Success

VB.NET

Console.WriteLine("Testing 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.epk", 99, 10, _
    "CN=My CA,O=Test Org,OU=Certificate Services", _
    "", kuoKeyUsage, "password", 0)
If nRet <> 0 Then
    Console.WriteLine(nRet & " " & General.LastError())
Else
    Console.WriteLine("Success")
End If

[Contents]