Hi, all gurus on board,

I guess this must be the right group for my question.

I am working on a web-based certification authority application, from
where users can apply for X.509 digital certificates.

On the certificate application web form, I have a dropdown list of
cryptographic providers.  This list shows up fine in Internet Explorer
6 on Windows XP Pro SP2, as shown by the screen snapshot below.

http://farm1.static.flickr.com/188/428327747_1b0906e0c7.jpg?v=0

But the same list does not show up in Firefox 2.0.  The function which
gets this list of cryptographic providers is written in VBSCRIPT as
shown below.  I understand that Firefox does not support VBSCRIPT.
So, should I write this function in JavaScript?  I am not sure how to
do this, though. Any hint would be highly appreciated.

<OBJECT
        classid="clsid:127698e4-e730-4e5c-
a2b1-21490a70c8a1"
        CODEBASE="/xenroll.dll"
        id="encoder"    >
</OBJECT>
<SCRIPT LANGUAGE=VBSCRIPT>
<!--
   Function GetProviderList()

   Dim CspList, cspIndex, ProviderName
   On Error Resume Next

   count = 0
   base = 0
   enhanced = 0
   CspList = ""
   ProviderName = ""

   For ProvType = 0 to 13
      cspIndex = 0
      encoder.ProviderType = ProvType
      ProviderName = encoder.enumProviders(cspIndex,0)

      while ProviderName <> ""
         Set oOption = document.createElement("OPTION")
         oOption.text = ProviderName
         oOption.value = ProvType
         Document.CertReqForm.CspProvider.add(oOption)
         if ProviderName = "Microsoft Base Cryptographic Provider
v1.0" Then
            base = count
         end if
         if ProviderName = "Microsoft Enhanced Cryptographic Provider
v1.0" Then
            enhanced = count
         end if
         cspIndex = cspIndex +1
         ProviderName = ""
         ProviderName = encoder.enumProviders(cspIndex,0)
         count = count + 1
      wend
   Next
   Document.CertReqForm.CspProvider.selectedIndex = base
   if enhanced then
      Document.CertReqForm.CspProvider.selectedIndex = enhanced
   end if
   End Function
-->
</SCRIPT>

_______________________________________________
dev-tech-crypto mailing list
[email protected]
https://lists.mozilla.org/listinfo/dev-tech-crypto

Reply via email to