Miguel,
I add one line Session.LCID = 1033 before your code, then everything worked. Now I
can get the client certificate correctly. Thank you very much.
----- Original Message -----
From: zheng xiangyang <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 20, 1999 11:02 AM
Subject: Re: How to get client certificate from IIS4.0 From asp.
>
> ----- Original Message -----
> From: Miguel Angel Fraga <[EMAIL PROTECTED]>
> To: OpenSSL Users <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> Sent: Tuesday, October 19, 1999 9:26 PM
> Subject: Re: How to get client certificate from IIS4.0 From asp.
>
>
> Miguel,
> I used your code to get the Client Certificate, but the Generated Cert file xxxx.pem
>is not a valid Certificate. I suspected It's my region setting cause the error. After
>I change the setting from [Chinese] to [United States], your code worked well. I
>think the VB do codepage conversion automatically when calling the function asc or
>even when 'cer = Request.ClientCertificate( "Certificate" )' . Now, How can I get
>certificate from a Chinese NT4.0 with SP5 region Setting is [Chinese].
> >
> > > Hi,
> > > In my project, I need to retrieve Client Certificate. But the documented
> > > ...
> >
> > In order to get the client cert (pem format) I have
> > included some ASP code.
> >
> > Regards,
> > Miguel Angel
> >
> >
> > //////////////////////////////////////////////
> >
> > ' Crear archivo de texto for append...
> > Set fs = Server.CreateObject("Scripting.FileSystemObject")
> > Set outStream = fs.OpenTextFile( "C:\InetPub\wwwroot\GetCertificate\xxxxx\
> > & ".pem", 8, True )
> >
> >
> > ' Extract Cert
> > uue = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
> > outStream.WriteLine( "-----BEGIN CERTIFICATE-----" )
> > cer = Request.ClientCertificate( "Certificate" )
> > lcer = len(cer)
> > l = 0
> > for x = 1 to lcer step 3
> > a1 = asc(mid(cer,x,1))
> > if x+1 <= lcer then
> > a2 = asc(mid(cer,x+1,1))
> > if x+2 <=lcer then
> > a3 = asc(mid(cer,x+2,1))
> > else
> > a3 = 0
> > end if
> > else
> > a2 = 0
> > a3 = 0
> > end if
> > outStream.Write mid(uue, (a1 and 252)/4 +1 ,1)
> > outStream.Write mid(uue, (a1 and 3)*16 + (a2 and 240)/16 +1 ,1)
> > if x+1 <= lcer then
> > outStream.Write mid(uue, (a2 and 15)*4 + (a3 and 192)/64 +1 ,1)
> > if x+2 <= lcer then
> > outStream.Write mid(uue, (a3 and 63) +1 ,1)
> > else
> > outStream.Write "="
> > end if
> > else
> > outStream.Write "=="
> > end if
> > l = l +4
> > if l = 64 then
> > outStream.WriteLine("")
> > l = 0
> > end if
> > next
> > if l > 0 then
> > outStream.WriteLine( "" )
> > end if
> > outStream.WriteLine( "-----END CERTIFICATE-----" )
> >
> > //////////////////////////////////////////////
> >
> >
> >
> >
> >
> > ______________________________________________________________________
> > OpenSSL Project http://www.openssl.org
> > User Support Mailing List [EMAIL PROTECTED]
> > Automated List Manager [EMAIL PROTECTED]
> >
> ______________________________________________________________________
> OpenSSL Project http://www.openssl.org
> User Support Mailing List [EMAIL PROTECTED]
> Automated List Manager [EMAIL PROTECTED]
>
______________________________________________________________________
OpenSSL Project http://www.openssl.org
User Support Mailing List [EMAIL PROTECTED]
Automated List Manager [EMAIL PROTECTED]
