Hi all,
I have looked at this article,but I can't find Re:
I have a same problem.
Can any body please tell me how i can solve this problem?
Thanks.
----------------------------------------------------------------------------
----------------------------------------------------------------------------
--------------------
Hello all,
I am trying to generate client certificates using xenroll.dll. Generating a
key-pair was easy, and signing the certificate
(using the ca crl2pkcs7 directives from ssleay) works fine, but I cannot
load the certificate into my browser. The browser
tells me something like "The object could not be found", error no 80092004.
I have looked at the example scripts in the help file , the asp-files that
came with the dll and the verisign site that uses
this technique. I have searched the CryptoAPI archives to find a clue to
what am I doing wrong. Noone seems to have a problem loading the
certificate?
Where do I go wrong? Please take a look at my scripts below and tell me what
is wrong.
Thank you very much for your time.
1. REQUEST
<html>
<head>
<title>InfoBil - Ansökan om certifikat</title>
</head>
<body bgcolor="#FFFFCC" link="#B9660B" vlink="#808080" alink="#B9660B">
<!-- Instantiate the control -->
<OBJECT
classid="clsid:43F8F289-7A20-11D0-8F06-00C04FC295E1"
codebase=https://www.infotorg.sema.se/infotorg/certs/CertControl/xenroll.cab
id=Enroll>
</OBJECT>
<SCRIPT LANGUAGE=VBS>
Sub SubmitCertRequest_OnClick
Dim RequestForm
Dim DN
Set RequestForm = Document.ClientRequest
DN = ""
DN = DN "CN=" RequestForm.CN.value ";"
DN = DN "1.2.840.113549.1.9.1=" RequestForm.Email.value ";"
DN = DN "O=" RequestForm.O.value ";"
DN = DN "L=" RequestForm.L.value ";"
DN = DN "S=" RequestForm.SP.value ";"
DN = DN "C=" RequestForm.C.value ";"
DN = DN "OU=" RequestForm.OU.value
Enroll.KeySpec = 1
Enroll.GenKeyFlags = 3
Enroll.HashAlgorithm = "MD5"
sz10 = Enroll.CreatePKCS10(DN,"1.3.6.1.5.5.7.3.2")
if Len(sz10) = 0 then
Alert "Error: " & Hex(err)
else
RequestForm.PKCS10.value = sz10
end if
RequestForm.Submit
End Sub
</SCRIPT>
<form name=ClientRequest action=keygen method=POST>
<input type=hidden name=userid value="IFT0651">
<input type=hidden name=sessid value="3783">
<input type=hidden name=port value="3015">
<input type=hidden name=CN value="Tommy Johansson">
<input type=hidden name=O value="SEMA GROUP INFODATA AB">
<input type=hidden name=OU value="InfoTorg.IFT0651.1976811">
<input type=hidden name=L value="Stockholm">
<input type=hidden name=SP value="S?mland">
<input type=hidden name=C value="SE">
<input type=text name=Email size=20 maxlength="100">
<input type=hidden name=PKCS10>
<input type=submit name=SubmitCertRequest value=Sänd>
</form>
</body>
</html>
2. LOAD CERTIFICATE
<html>
<head>
<title>InfoBil - H?tning av certifikat</title>
</head>
<body bgcolor="#FFFFCC" link="#B9660B" vlink="#808080" alink="#B9660B">
<!-- Instantiate the control -->
<OBJECT
classid="clsid:43F8F289-7A20-11D0-8F06-00C04FC295E1"
codebase=https://www.infotorg.sema.se/infotorg/certs/CertControl/xenroll.cab
id=Enroll>
</OBJECT>
<SCRIPT LANGUAGE=VBS>
Sub LoadCertificate_OnClick
Dim sz10
sz10 = "" & _
"MIAGCSqGSIb3DQEHAqCAMIIEggIBATEAMIAGCSqGSIb3DQEHAQAAoIIC7zCCAusw" & _
"ggJUoAMCAQICATgwDQYJKoZIhvcNAQEEBQAwgasxCzAJBgNVBAYTAlNFMQ8wDQYD" & _
"VQQIEwZTd2VkZW4xEjAQBgNVBAcTCVN0b2NraG9sbTEfMB0GA1UEChMWU2VtYSBH" & _
"cm91cCBJbmZvZGF0YSBBQjERMA8GA1UECxMISW5mb3RvcmcxHTAbBgNVBAMTFHd3" & _
"dy5pbmZvdG9yZy5zZW1hLnNlMSQwIgYJKoZIhvcNAQkBFhVpbmZvQGluZm9kYXRh" & _
"LnNlbWEuc2UwHhcNOTgxMjA5MDgzNDQ4WhcNMDgxMjA2MDgzNDQ4WjCBoTELMAkG" & _
"A1UEBhMCU0UxDzANBgNVBAgTBlN3ZWRlbjESMBAGA1UEBxMJU3RvY2tob2xtMR8w" & _
"HQYDVQQKExZTRU1BIEdST1VQIElORk9EQVRBIEFCMSEwHwYDVQQLExhJbmZvVG9y" & _
"Zy5JRlQwNjUxLjE0Mjk5NTUxGDAWBgNVBAMTD1RvbW15IEpvaGFuc3NvbjEPMA0G" & _
"CSqGSIb3DQEJARYAMFwwDQYJKoZIhvcNAQEBBQADSwAwSAJBAICJN6lBCM78TMSM" & _
"ueiO0AtX1tXFaFUyYfJdFtK1F4vlny/spcTc0f/JO0Fla4q2otynifC6Vugo91ju" & _
"x4kP4O8CAwEAAaNrMGkwMgYJYIZIAYb4QgEEBCUWI2h0dHA6Ly93d3cuY3J5cHRz" & _
"b2Z0LmNvbS9jYS1jcmwucGVtMCAGCWCGSAGG EIBDQQTFhFUaGlzIGlzIGEgY29t" & _
"bWVudDARBglghkgBhvhCAQEEBAMCAEAwDQYJKoZIhvcNAQEEBQADgYEAnQwGMixN" & _
"gKAsvoTLBl9lyFPWOf9EzzFsX9xkpgXZXxOQvYqwICsz/eZBIKF2L66nKIYJoc2m" & _
"NxeTvR XkvCe09XjGr7RBWtcGLIp3IHGztWFJ9D8yXBpTD zkGmp63tICEWCRLsj" & _
"lg73bPH91N9TfaE1gVRfCuVF QDVvNLJpqahggF1MIIBcTCB2zANBgkqhkiG9w0B" & _
"AQQFADCBqzELMAkGA1UEBhMCU0UxDzANBgNVBAgTBlN3ZWRlbjESMBAGA1UEBxMJ" & _
"U3RvY2tob2xtMR8wHQYDVQQKExZTZW1hIEdyb3VwIEluZm9kYXRhIEFCMREwDwYD" & _
"VQQLEwhJbmZvdG9yZzEdMBsGA1UEAxMUd3d3LmluZm90b3JnLnNlbWEuc2UxJDAi" & _
"BgkqhkiG9w0BCQEWFWluZm9AaW5mb2RhdGEuc2VtYS5zZRcNOTgxMTA2MTMyNTM3" & _
"WhcNOTgxMjA2MTMyNTM3WjANBgkqhkiG9w0BAQQFAAOBgQCLXN2P6XJRBAjGhT5C" & _
"BdUZgCJ6v qx8ccyOa38Qbj3VOIcBfViV1ZFPOhbViE5ZTcplKkNuGTD3gXbEtEb" & _
"Abuw8vnByVnnJXh5rlb KLO26RpiE4SsNEgWfej24 XuLCv7EPyEO0rJckUAXTgR" & _
"LltGwhzIPEKt1lENMwjk5pSmjTEAAAAAAA=="
Enroll.AcceptPKCS7(sz10)
if err.number = 0 then
document.CertLoad.res.value = 1
end if
document.CertLoad.Submit
End Sub
</SCRIPT>
<FORM name=CertLoad
action="https://www.infotorg.sema.se/cgi-bin/infotorg/test/asa/msieok"
method="POST">
<input type=hidden name=userid value="IFT0651">
<input type=hidden name=sessid value="5537">
<input type=hidden name=port value="3015">
<input type=hidden name=res value="0">
<input type=submit name=LoadCertificate value="Ladda klientcertifikat">
</FORM>
</body>
</html>
______________________________________________________________________
OpenSSL Project http://www.openssl.org
User Support Mailing List [EMAIL PROTECTED]
Automated List Manager [EMAIL PROTECTED]
