Outlook 2010の電子メール暗号化

プロシージャTOpenSSL.CreateSignedCert（const FileName：String; OutFiles：TStringList;

constパスワード：文字列。

ValidDays：整数; KeySize：整数; const ExtendedKeyUsage：文字列。

const CommonName、Email、Organization、OrganizationalUnit、Country：文字列。

const CAFileSpec、CAPFXFileSpec、CAPrivateKeyPassword：文字列。

ARandomFileSpec：文字列= '';

ProgressProc：TProgressProc = nil; LogMsgProc：TLogMsgProc = nil）;

var

TmpPrivateKeyFileSpec、TmpPublicKeyFileSpec：ストリング;

TmpCerFileSpec、TmpPfxFileSpec、TmpCsrFileSpec、TmpCASerialFileSpec、TmpExtFileSpec、TmpPemFileSpec：ストリング;

TmpCAPrivateKeyFileSpec：ストリング;

Subj：文字列;

TempDir：文字列;

中止：ブール値。

WasError：ブール値。

OutPublicKeyFileSpec：文字列;

始める

WasError：= True;

TempDir：= GetTempDir;

試してみる

CheckIsFileExists（CAFileSpec）;



//ルート証明書から秘密鍵を取得します

TmpCAPrivateKeyFileSpec：= TempDir + ChangeFileExt（ExtractFileName（CAPFXFileSpec）、 ''）+ '.privateKey.pem';

ExportPrivateKeyFromPfx（CAPFXFileSpec、TmpCAPrivateKeyFileSpec、CAPrivateKeyPassword）;



//すべてのファイルを一時ディレクトリに作成し、すべてのファイルが正常に作成された後にのみ-//永続的なストレージの場所に転送します

TmpPrivateKeyFileSpec：= TempDir + FileName + '.privateKey.pem';

TmpPublicKeyFileSpec：= TempDir + FileName + '.publicKey.pem';

TmpCerFileSpec：= TempDir + FileName + '.cer';

TmpPemFileSpec：= TempDir + FileName + '.pem';

TmpPfxFileSpec：= TempDir + FileName + '.pfx';

TmpCsrFileSpec：= TempDir + FileName + '.csr';

TmpCASerialFileSpec：= TempDir + FileName + '.srl';



Subj：= GetSubj（CommonName、Email、Organization、OrganizationalUnit、Country）;



中止：= False;

割り当てられた場合（ProgressProc）

ProgressProc（13、4、Aborted、Format（ '％s（％d％s）...' {'Generate Keys（％d bits）...'}、[StKeysGenerate、KeySize、StBit]）;

中止された場合

出口



CreatePrivateKey（TmpPrivateKeyFileSpec、TmpPublicKeyFileSpec、KeySize、ARandomFileSpec）;



割り当てられた場合（ProgressProc）

ProgressProc（13、5、Aborted、Format（ '％s ...'、[StGenerateCertificate]）{'Generate certificate ...'}）;

中止された場合

出口



割り当てられた場合（ProgressProc）

ProgressProc（13、6、Aborted、Format（ '％s ...'、[StCreateCertificateRequest]）{'Create the certificate request ...'}）;



//リクエストを作成します-.csr

RunOpenSSLConsole（形式（

'req -new -key "％s" -out "％s" -days％d -subj％s'、

[TmpPrivateKeyFileSpec、TmpCsrFileSpec、ValidDays、Subj]

）、True、nil、nil）;



割り当てられた場合（ProgressProc）

ProgressProc（13、7、Aborted、Format（ '％s ...'、[StCreateExtensionsFile]）{'Create the extensions file ...'}）;



// www.openssl.org/docs/apps/x509v3_config.html

TmpExtFileSpec：= StrToFile（

// 'keyUsage = digitalSignature、nonRepudiation、keyEncipherment、dataEncipherment、keyCertSign' +

'keyUsage = digitalSignature、keyEncipherment' +

iif（ExtendedKeyUsage <> ''、＃13＃10'extendedKeyUsage = '+ ExtendedKeyUsage、' '）、

TempDir + FileName + '.extensions.cfg'

）;



割り当てられた場合（ProgressProc）

ProgressProc（13、8、Aborted、Format（ '％s ...'、[StCreateSignedCertificate]）{'Create the signed certificate ...'}）;



//リクエストに基づいて、ルート証明書によって署名された証明書を作成します

RunOpenSSLConsole（形式（

'x509 -req -days％d -passin pass：％s -in "％s" -CAform DER -CA "％s" -CAkey "％s" -CAserial "％s" -CAcreateserial -out "％s"- DER -extfile "％s" 'を出力します'、

[ValidDays、パスワード、TmpCsrFileSpec、CAFileSpec、TmpCAPrivateKeyFileSpec、TmpCASerialFileSpec、TmpCerFileSpec、TmpExtFileSpec]

）、False、nil、nil）;



割り当てられた場合（ProgressProc）

ProgressProc（13、9、Aborted、Format（ '％s ...'、[StConvertCertificate]）{'証明書をCERからPEM形式に変換する...'}）;



// cer => pemをpfxの次のエクスポートコマンドに変換します

RunOpenSSLConsole（形式（

'x509 -in "％s" -inform DER -out "％s" -outform PEM'、

[TmpCerFileSpec、TmpPemFileSpec]

）、False、nil、nil）;



割り当てられた場合（ProgressProc）

ProgressProc（13、10、Aborted、Format（ '％s ...'、[StCreatePFX]）{'Create the PFX certificate file ...'}）;



//結果のPEMとキーからPFXを作成します

RunOpenSSLConsole（形式（

'pkcs12 -password pass：％s -export -in "％s" -inkey "％s" -name "％s" -out "％s"'、

[パスワード、TmpPemFileSpec、TmpPrivateKeyFileSpec、FileName、TmpPfxFileSpec]

）、False、nil、nil）;



OutPublicKeyFileSpec：= TmpPublicKeyFileSpec + '.signed';



割り当てられた場合（ProgressProc）

ProgressProc（13、11、Aborted、Format（ '％s ...'、[StExportPublicKey]）{'PFX証明書ファイルから公開キーをエクスポート...'}）;



ExportPublicKeyFromPfx（TmpPfxFileSpec、OutPublicKeyFileSpec、パスワード）;



//そして、結果がファイルリストに追加されます

OutFiles.Add（TmpCerFileSpec）;

OutFiles.Add（TmpPfxFileSpec）;

OutFiles.Add（TmpPrivateKeyFileSpec）;

OutFiles.Add（TmpPublicKeyFileSpec）;

OutFiles.Add（OutPublicKeyFileSpec）;



WasError：= False;

ついに

//一時ファイルを削除します

WasErrorの場合

始める

CheckDeleteFile（TmpCerFileSpec）;

CheckDeleteFile（TmpPfxFileSpec）;

CheckDeleteFile（TmpPrivateKeyFileSpec）;

CheckDeleteFile（TmpPublicKeyFileSpec）;

CheckDeleteFile（OutPublicKeyFileSpec）;

終わり;



CheckDeleteFile（TmpCsrFileSpec）;

CheckDeleteFile（TmpCASerialFileSpec）;

CheckDeleteFile（TmpExtFileSpec）;

CheckDeleteFile（TmpPemFileSpec）;

CheckDeleteFile（TmpCAPrivateKeyFileSpec）;

終わり;

終わり;