delphi 如何读取数字证书(.cer文件)的内容。
Parmy 2008-07-30 10:48:39 有java的一段代码:
CertificateFactory certificatefactory = CertificateFactory.getInstance("X.509");
FileInputStream fin = new FileInputStream("%存放路径%/server.cer");
X509Certificate certificate = (X509Certificate) certificatefactory
.generateCertificate(fin);
fin.close();
// 得到公钥
PublicKey pubK = certificate.getPublicKey();
// 初始化cipher
Cipher cipher = Cipher.getInstance("RSA/ECB/PKCS1Padding");
cipher.init(Cipher.DECRYPT_MODE, pubK);
byte[] code = Base64.decode(request.getParameter("password"));
byte[] plain2 = new byte[code.length];
int ixplain2 = 0;
int ixcode2 = 0;
while ((code.length - ixcode2) > 128) {// 每128字节做一次解密
ixplain2 += cipher.doFinal(code, ixcode2, 128, plain2, ixplain2);
ixcode2 += 128;
}
ixplain2 += cipher.doFinal(code, ixcode2, code.length - ixcode2, plain2, ixplain2);
// 得到解密后的时间戳
String s2 = new String(plain2, 0, ixplain2, "UTF-8");
如何把该段代码翻译成delphi语言。