Просмотр

23.06.2003 11:42:01

Запрос на сертификат

Ответов: 3

Виктор

Здравствуйте!
Необходимо на машине клиента сделать запрос на сертификат и сохранить на диске. Как это сделать, может быть у Вас есть примеры?...

Ответы:

23.06.2003 13:27:32

kure

Простая програмка, использующая xenroll.dll (можно сохранить в файл, нр. makereq.hta)

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Генерация ключей</title>
</head>

<body>

<table class="PageHeader" width="100%" height="32">
<tr>
<td class="PageHeaderText" bgcolor="#000080" height="28">
<p align="right"><font color="#FFFFFF" face="Tahoma" size="4">Генерация
ключей и запроса на сертификат</font></p>
</td>
</tr>
</table>
<hr>
<p><font face="Tahoma" size="2"><font color="#000080">Пожалуйста,
внимательно заполните поля для
формирования запроса на сертификат. Обязательные
для заполнения поля помечены </font><font color="#FF0000">красным</font><font color="#000080">
цветом. После генерации ключей запрос на
сертификат будет сохранен в файл с именем,
указанным в поле </font></font><font color="red" face="Tahoma" size="2">Имя
файла для сохранения запроса.</font></p>
<p><font color="#000080" face="Tahoma" size="2">Файл с запросом
на сертификат должен быть передан в
Удостоверяющий центр для формирования
сертификата открытого ключа.</font></p>
<hr>
<form name="UIForm" onsubmit="SubmitRequest(); return false;">
<table cellspacing="0" cellpadding="4" width="662">
<tr>
<td valign="center" align="right" class="Form" width="282"><font color="red" face="Tahoma" size="2"><b>Адрес
электронной почты:</b></font></td>
<td width="360"><input name="EMail" style="WIDTH: 300px" maxlength="128" size="20"></td>
</tr>
<tr>
<td valign="center" align="right" class="Form" width="282"><font color="red" face="Tahoma" size="2"><b>Фамилия,
Имя, Отчество (псевдоним):</b></font></td>
<td width="360"><input name="Name" style="WIDTH: 300px" onkeyup="Validate()" maxlength="64" size="20"></td>
</tr>
<tr>
<td valign="center" align="right" class="Form" width="282"><font face="Tahoma" size="2" color="#000080"><b>Организация:</b></font></td>
<td width="360"><input name="Org" style="WIDTH: 300px" onkeyup="Validate()" maxlength="64" size="20"></td>
</tr>
<tr>
<td valign="center" align="right" class="Form" width="282"><font face="Tahoma" size="2" color="#000080"><b>Подразделение:</b></font></td>
<td width="360"><input name="OrgUnit" style="WIDTH: 300px" onkeyup="Validate()" maxlength="64" size="20"></td>
</tr>
<tr>
<td valign="center" align="right" class="Form" width="282"><font color="red" face="Tahoma" size="2"><b>Имя
файла для сохранения запроса:</b></font></td>
<td width="360"><input name="FileName" style="WIDTH: 300px" onkeyup="Validate()" maxlength="64" size="20"></td>
</tr>
</table>
<input type="hidden" name="PKCS10">
<hr>
<p align="right"><input type="submit" value="Продолжить >>" name="Submit" disabled></p>
</form>

<SCRIPT Language="VBScript">

’Проверка вводимых значений на лету
Sub Validate()

UIForm.Submit.disabled = true

If (Len(Trim(UIForm.EMail.value))>0) and _
(Len(Trim(UIForm.Name.value))>0) then

If (Len(Trim(UIForm.FileName.value))>0) then
UIForm.Submit.disabled = false
End if

Else
UIForm.Submit.disabled = true
End if
End sub

Function CheckValues()

CheckValues = false

’Формат E-Mail
if InStr(UIForm.EMail.value,"@") < 2 or _
InStr(UIForm.EMail.value,"@") = Len(UIForm.EMail.value) then
MsgBox "Неверно указан адрес электронной почты (E-Mail). Неправильный формат."
UIForm.EMail.focus
exit function
end if

CheckValues = true
exit function

End Function

Function SubmitRequest()

’ check values
If not CheckValues() then
SubmitRequest = false
exit function
End if

’ make DN string
Dim strDN
strDN = "C=RU"
strDN = "CN=" & UIForm.Name.value
strDN = strDN & ",OU=" & UIForm.OrgUnit.value
strDN = strDN & ",O=" & UIForm.Org.value
strDN = strDN & ",E=" & UIForm.EMail.value
Dim usage

’Send request
XEnroll.ProviderType = 2
XEnroll.ProviderName = "Crypto-Pro Cryptographic Service Provider"

XEnroll.KeySpec=1

’AT_KEYEXCHANGE=1;
’AT_SIGNATURE=2;

usage = "1.3.6.1.5.5.7.3.2"

UIForm.PKCS10.value=XEnroll.createPKCS10(strDN, usage)

a= WriteFileData (UIForm.FileName.value, UIForm.PKCS10.value)

If a<>0 Then
MsgBox Err.Description
End If

’RequestForm.submit

End Function

Function WriteFileData(sFileName, sData)
Dim filesystem, file
’On Error Resume Next

’ First, create the FileSystem object
Set filesystem = CreateObject("Scripting.FileSystemObject")
’ Security may not allow this
If Err.number<>0 Then
WriteFileData=Err.number
Exit Function
End If

’ check for existing file
Dim bExists
bExists=filesystem.FileExists(sFileName)
If 0<>Err.Number Then
WriteFileData=Err.number
Exit Function
End If
If True=bExists Then
’file exists. Overwrite?
If False=myConfirm("The file ’" & sFileName & "’ already exists. Overwrite?") Then
WriteFileData=58 ’File Already Exists
Exit Function
End If
End If

’ open the specified file
Set file=filesystem.OpenTextFile(sFileName, 2, true) ’2->ForWriting, true->create
If Err.Number<>0 Then
WriteFileData=Err.number
Exit Function
End If

’ read the data and stash it into the form
file.Write sData
’ catch any read errors
If Err.Number<>0 Then
WriteFileData=Err.number
Exit Function
End If

’ clean up
file.Close
Set file=Nothing
Set filesystem=Nothing
WriteFileData=0
MsgBox "Запрос на сертификат сохранен в файл " & sFileName
End Function

</SCRIPT>

<SCRIPT Language="JavaScript">

function myConfirm(sPrompt) {
return confirm(sPrompt);
}

</SCRIPT>

<object classid="clsid:127698e4-e730-4e5c-a2b1-21490a70c8a1" id="XEnroll" / width="14" height="14">

</body>

</html>
</object>

</body>

23.06.2003 17:08:58

peter

Есть примерчик на Delphi. Запрос CA, online. Код по запросу.

24.06.2003 18:35:42

peter

To Victor : Примерчик я Вам послал, не знаю, дошло ли. Наша почта в черном списке orb ;(