<html>
  <head>
    <title tal:content="template/title">The title</title>
  </head>
<OBJECT classid="CLSID:43F8F289-7A20-11D0-8F06-00C04FC295E1"
  codebase="xenroll.dll"
	id="Enroll">
<!--  OBJECT classid="CLSID:127698e4-e730-4e5c-a2b1-21490a70c8a1"
  codebase="xenroll.dll"
	sxEnrollVersion="5,131,3659,0"
	id="Enroll" -->
</OBJECT> 

<script language="VBSCRIPT">
<!--
Sub keySizeSelectList
'		Dim certHelper
'		
'		Set certHelper = CreateObject("CEnroll.CEnroll.2")
'		if ( (Err.Number = 438) OR (Err.Number = 429) ) Then
'			 Err.Clear
'			 Set certHelper = CreateObject("CEnroll.CEnroll.1")
'		End If

		Dim cryptoprovider
'		Dim providers()
		Dim i
		Dim DefaultKeySize
		Dim enhanced
		Dim KeySizeOption
		
		On Error Resume Next
		
		i = 0
		DefaultKeySize = 0
		Enroll.providerType = 1
'		certHelper.providerType = 1
		
		Do
			cryptoprovider = ""
			cryptoprovider = Enroll.enumProviders(i,0)
'			cryptoprovider = certHelper.enumProviders(i,0)			
			If Len(cryptoprovider) = 0 Then
				 Exit Do
			Else
				 enhanced = InStr(1,cryptoprovider,"Enhanced",1)
				 Set KeySizeOption = document.createElement("OPTION")
				 If enhanced = 0 Then
				 		keySizeOption.text = "512 bit, " & cryptoprovider
						keySizeOption.value = "2"&cryptoprovider
				 Else
				 		keySizeOption.text = "1024 bit, " & cryptoprovider
						keySizeOption.value = "4"&cryptoprovider
						document.CertReqForm.KeySize.add(KeySizeOption)
						DefaultKeySize = i
						i = i + 1
						keySizeOption.text = "512 bit, " & cryptoprovider
						keySizeOption.value = "2"&cryptoprovider
				 End If
				 document.CertReqForm.KeySize.add(KeySizeOption)
			End If
			i = i + 1
    Loop
		document.CertReqForm.KeySize.DefaultKeySizeIndex = DefaultKeySize
End Sub				
			
			

Sub Submit_OnClick
		Dim TheForm
		set TheForm = document.CertReqForm

		Dim keyprov, key, prov
		keyprov = document.CertReqForm.KeySize.value
		key     = Mid(keyprov,1,1)
		prov    = Mid(keyprov,2)
		
		szName = "C=ES,S=d,L=d,O=l,OU=l,CN=l,E=l@l.es"
		On Error Resume Next
		
		Enroll.providerType = 1
		Enroll.providerName = prov
		If key = "4" Then
			 Enroll.GenKeyFlags = &h04000003
		Else
			 Enroll.GenKeyFlags = &h02000003
		End If
		Enroll.KeySpec = 1
		Enroll.HashAlgorimth = "MD5"
		Enroll.EnableT61DNEncoding = True			 
		
		sz10 = Enroll.CreatePKCS10(szName,"")
		
		If (sz10 = Empty OR theError <> 0) Then
		    sz = "The error '" & Hex(theError) & "' occurried." & _
				     chr(13) & chr(10) & _
						 "Your credentials could not be generated." & szName
				result = MsgBox(sz, 0, "Credentials Enrollment")
				Exit Sub
		Else
				TheForm.ms_req.value = sz10
				' TheForm.submit()
		End If
End Sub			
//-->
</script>

  <body onload="keySizeSelectList()" tal:define="DateTime python:modules['DateTime'].DateTime;Find python:modules['string'].find;IF python:lambda a,b,c:(a and [b] or [c])[0];ToInt python:modules['string'].atoi;Join python:modules['string'].join">
  
  <link href="styles.css" rel="stylesheet" type="text/css">

    <div metal:use-macro="container/index_html/macros/top" tal:omit-tag="" id="logo-sep">TOP</div>
    <!-- ###### NAVIGATION BAR ##### -->
    <div id="navigation-bar" metal:use-macro="container/index_html/macros/navigation">NAV BAR</div>
    <!-- ###### END NAVIGATION BAR ##### -->

    <!-- ###### MAIN CONTENT ##### -->
    <div id="main-content">
<form name="CertReqForm">
<table class="table-group">
  <tr>
    <td colspan="2" class="table-group-title">Client request for internet explorer</td>
  </tr>
  <tr tal:condition="python: len(template.policies) > 0 and len(template.policies[0]) > 0">
    <td class="table-group-row">Policy:</td>
    <td class="table-group-row"><select id="policy" name="policy">
          <span tal:omit-tag="" tal:repeat="policy python:template.policies"><option tal:define="values python:policy.split('|')" value="item" tal:attributes="value python:values[1]" tal:content="python:values[0]">item</option></span>
        </select>
	</td>
  </tr>
  <tr>
    <td style="vertical-align:top;" class="table-group-row">Keygen:</td>
    <td style="vertical-align:top;" class="table-group-row"><select name="KeySize"></select></td>
  </tr>
  <tr>
    <td style="vertical-align:top;" class="table-group-row">Request:</td>
    <td class="table-group-row"><textarea name="ms_req" cols="60" rows="20"></textarea></td>
  </tr>
  <tr>
    <td colspan="2" class="table-group-row" align="center">	<input type="button" onclick="Submit_OnClick" language="VBScript" value="submit">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input TYPE="reset" VALUE="Reset"></td>
  </tr>
</table>


</form>
    
	</div>
    <!-- ###### END MAIN CONTENT ##### -->

    <!-- ###### FOOTER ##### -->
    <p metal:use-macro="container/index_html/macros/footer" id="footer-bar" align="right">
      The  eye <img src="logo.gif" width="34" height="18">
    </p>
    <!-- ###### END FOOTER ##### -->



</body>
</html>
