Update RSA.Codeunit.al

src/System Application/App/Cryptography Management/src/RSA.Codeunit.al

@@ -26,6 +26,17 @@ codeunit 1475 "RSA"
         RSAImpl.InitializeRSA(KeySize);
     end;
 
+    /// <summary>
+    /// Creates a RSA object with private key and returns the XML string.
+    /// </summary>
+    /// <param name="PrivateKey">private key as text</param>
+    /// <param name="IncludePrivateParameters">true to include a public and private RSA key; false to include only the public key.</param>
+    /// <returns>An XML string containing the key of the current RSA object.</returns>
+    procedure ToSecretXmlString(PrivateKey: SecretText; IncludePrivateParameters: Boolean): SecretText
+    begin
+        exit(RSAImpl.ToSecretXmlString(PrivateKey, IncludePrivateParameters));
+    end;
+
     /// <summary>
     /// Creates and returns an XML string containing the key of the current RSA object.
     /// </summary>

src/System Application/App/Cryptography Management/src/RSAImpl.Codeunit.al

@@ -186,6 +186,14 @@
         DotNetRSA.FromXmlString(XmlString);
     end;
 #endif
+
+    procedure ToSecretXmlString(PrivateKey: SecretText; IncludePrivateParameters: Boolean): SecretText
+    begin
+        DotNetRSA := DotNetRSA.Create(2048);
+        DotNetRSA.ImportFromPem(PrivateKey);
+        exit(ToSecretXmlString(IncludePrivateParameters));
+    end;
+
     procedure ToSecretXmlString(IncludePrivateParameters: Boolean): SecretText
     begin
         exit(DotNetRSA.ToXmlString(IncludePrivateParameters));