Я использую OpenSSL с PHP для генерации открытого / закрытого ключа в формате PEM.
В PHP я создаю открытый / закрытый ключ:
// generate a 1024 bit rsa private key
$privateKey = openssl_pkey_new(array(
'private_key_bits' => 1024,
'private_key_type' => OPENSSL_KEYTYPE_RSA,
));
// Save Private key
openssl_pkey_export_to_file($privateKey, 'privateKey');
// get the public key
$keyDetails = openssl_pkey_get_details($privateKey);
// Save Public key
file_put_contents('publicKey', $keyDetails['key']);
В VB.NET я кодирую это:
'Public Key
Dim sReader As String ="MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQCxYT5RaHelEBmk4Z7ppiVaPPBns/36sdY12F/AXETJVl2SYkjc672JMz ..... zQwIDAQAB"
Dim PublicKey As Byte() = Encoding.UTF8.GetBytes(sReader)
Dim Exponent As Byte() = {1, 0, 1}
'Create a new instance of RSACryptoServiceProvider.
Dim RSA As New RSACryptoServiceProvider()
'Create a new instance of RSAParameters.
Dim RSAKeyInfo As New RSAParameters()
'Set RSAKeyInfo to the public key values.
RSAKeyInfo.Modulus = PublicKey
RSAKeyInfo.Exponent = Exponent
'Import key parameters into RSA.
RSA.ImportParameters(RSAKeyInfo)
'Create a UnicodeEncoder to convert between byte array and string.
Dim ByteConverter2 As New UnicodeEncoding()
'Create byte arrays to hold original, encrypted, and decrypted data.
bytPlainText = Encoding.UTF8.GetBytes("Data to Encrypt")
bytCipherText = RSA.Encrypt(bytPlainText, False)
Dim sEncrypt99 As String = Convert.ToBase64String(bytCipherText)
Но я не могу расшифровать «sEncrypt99» в PHP с помощью закрытого ключа
Для теста я скопировал «sEncrypt99» в «$ encryptedData1»
<?php
$privateKey = openssl_pkey_get_private('file://privateKey');
openssl_private_decrypt(base64_decode($encryptedData1), $sensitiveData2, $privateKey);
echo "sensitiveData = " . $sensitiveData2 . "<br>";
?>
Никаких ошибок, $ sensData2 пусто.Странно .... Где проблема?
Рем: Извините за мой плохой английский, я француз;)