Re: [Openca-Users] ie signing - still failing (source from cvs)

[Michael B. <mic...@rz...>]

Lizner Martin schrieb:
> 
> hi,
> 
> i've just tested new cvs update and ie signing still fails:
> 
> Compilation failed in require at /usr/local/apache/cgi-bin/ra/RAServer
> line 213.
> General Error Trapped 6203: The request is not signed! at
> /usr/local/openca_ra/lib/functions/misc-utils.lib line 38.

This means that your browser doesn't sign the data. If you use IE then
you can edit signForm.vbs. Simply add a MsgBox to see the data.

############## changed signForm.vbs ###################

<!--//
Function signFormIE(theForm, theWindow)
Dim SignedData

On Error Resume Next

Set Settings = CreateObject("CAPICOM.Settings")
Settings.EnablePromptForCertificateUI = True

Set SignedData = CreateObject("CAPICOM.SignedData")
If Err.Number <> 0 then
        MsgBox("please register the capicom.dll on your machine " )
End If

SignedData.Content = theForm.text.value

// we cannot use normally because MsgBox can only handle up to 1024
characters
MsgBox(theForm.text.Value)

theForm.signature.Value = SignedData.Sign (Nothing)
// theForm.signature.Value = SignedData.Sign (Nothing, False,
CAPICOM_ENCODE_BASE64)

MsgBox (theForm.signature.Value)

// SignedData.Verify (theForm.signature.Value)
// SignedData.Verify (theForm.signature.Value, False)
// SignedData.Verify (theForm.signature.Value, False,
CAPICOM_VERIFY_SIGNATURE_AND_CERTIFICATE)

If Err.Number <> 0 then
        MsgBox("Sign error: " & Err.Description)
End If

End Function
//-->
###############################################

Michael
-- 
-------------------------------------------------------------------
Michael Bell                   Email (private): mic...@we...
Rechenzentrum - Datacenter     Email:  mic...@rz...
Humboldt-University of Berlin  Tel.: +49 (0)30-2093 2482
Unter den Linden 6             Fax:  +49 (0)30-2093 2959
10099 Berlin
Germany                                       http://www.openca.org