X509_MakeCertSelf[2]

Creates a self-signed X.509 certificate.

VB6/VBA

    Debug.Print "Testing X509_MakeCertSelf ..."
    Dim nRet As Long
    Dim nKeyUsage As Long
    Dim strDN As String
    
    ' Specify DN using chinese characters in UTF-8
    ' CN=da wei (U+5927, U+536B)
    ' C=zhong guo (U+4E2D, U+56FD)
    strDN = "CN=#xE5A4A7E58DAB,C=#xe4b8ade59bbd"
    nKeyUsage = PKI_X509_KEYUSAGE_DIGITALSIGNATURE + PKI_X509_KEYUSAGE_KEYCERTSIGN + PKI_X509_KEYUSAGE_CRLSIGN
    nRet = X509_MakeCertSelf("myca-chinadavid.cer", "myca.epk", _
        &H888, 4, strDN, "", nKeyUsage, "password", PKI_X509_UTF8)
    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
Dim strDN As String

' Specify DN using chinese characters in UTF-8
' CN=da wei (U+5927, U+536B)
' C=zhong guo (U+4E2D, U+56FD)
strDN = "CN=#xE5A4A7E58DAB,C=#xe4b8ade59bbd"
kuoKeyUsage = X509.KeyUsageOptions.DigitalSignature _
    Or X509.KeyUsageOptions.KeyCertSign Or X509.KeyUsageOptions.CrlSign
nRet = X509.MakeCertSelf("myca-chinadavid.cer", "myca.epk", _
    &H888, 4, strDN, "", kuoKeyUsage, "password", X509.Options.UTF8String)
If nRet <> 0 Then
    Console.WriteLine(nRet & " " & General.LastError())
Else
    Console.WriteLine("Success")
End If

[Contents]