Ответ 1
Мне действительно нужно было обеспечить совместимость Openssl с RSACryptoServiceProvider, чтобы я мог реализовать систему лицензионного ключа программного обеспечения (Ref).
Мне нужно было создать частные и открытые ключи в Linux с помощью openssl, чтобы впоследствии они могли использоваться для управления лицензиями в веб-приложении PHP. Тем не менее, также используйте их в качестве основы для лицензионной системы подписи RSA в приложении VB.Net.
После недели поиска я в конце концов обнаружил, что это вполне возможно, поэтому я решил поделиться ею.
Начните с Linux (или любой другой полезной ОС) и используйте openssl для создания закрытого ключа (private.pem), открытого ключа (public.pem), сертификата (сертификата .crt) и файла личной информации Exchange ( certificate.pfx). Не беспокойтесь о полях CN и emailAddress, файлы сертификата и pfx используются только в качестве транспортного средства, чтобы открыть общедоступный или закрытый ключ в объект RSACryptoServiceProvider.
openssl genrsa -out private.pem 1024
openssl rsa -in private.pem -out public.pem -pubout
openssl req -nodes -x509 -days 3650 -subj '/CN=www.example.com/[email protected]' -new -key private.pem -out certificate.crt
openssl pkcs12 -export -out certificate.pfx -inkey private.pem -in certificate.crt
Теперь, чтобы получить секретный ключ в коде:
Dim cert As New X509Certificate2("certificate.pfx", "", X509KeyStorageFlags.Exportable)
Dim rsaProvider As RSACryptoServiceProvider = DirectCast(cert.PrivateKey, RSACryptoServiceProvider)
Если вам нужен секретный ключ или открытый ключ, попробуйте это:
msgbox(rsaProvider.ToXmlString(True)) 'Private key in XML format
msgbox(rsaProvider.ToXmlString(False)) 'Public key in XML format
Чтобы получить открытый ключ в код:
Dim cert As New X509Certificate2("certificate.crt")
Dim rsaProvider As RSACryptoServiceProvider = DirectCast(cert.PublicKey.Key, RSACryptoServiceProvider)
Если вам нужен открытый ключ, попробуйте это:
msgbox(rsaProvider.ToXmlString(False)) 'Public key in XML format
Еще впереди.....