Allow private keys on Vista to be exportable encrypted. (Not in plaintext)

16 years ago · 2cd48b9e16
parent 597c8728a5
commit 2cd48b9e16
1 changed files with 1 additions and 0 deletions
--- a/pages/account/4.php
+++ b/pages/account/4.php
@ -107,6 +107,7 @@ Function CSR(keyflags)
    // "Microsoft Enhanced RSA and AES Cryptographic Provider"
    objPrivateKey.ProviderType = "24"
    objPrivateKey.KeySpec = "1"
+    objPrivateKey.ExportPolicy = 1
    objRequest.InitializeFromPrivateKey 1, objPrivateKey, ""
    Set objDN = g_objClassFactory.CreateObject("X509Enrollment.CX500DistinguishedName")
    objDN.Encode("CN=CAcertRequest")