Create function to get the XML structure via the private key

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

@@ -27,13 +27,14 @@ codeunit 1475 "RSA"
     end;
 
     /// <summary>
-    /// Initializes a new instance of RSA with the specified key size and a pem private Key.
+    /// Creates a RSA object with private key and returns the XML string.
     /// </summary>
-    /// <param name="KeySize">The size of the key in bits.</param>
-    /// <param name="PrivateKey">The private key as text.</param>
-    procedure InitializeRSA(KeySize: Integer; PrivateKey: Text)
+    /// <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
-        RSAImpl.InitializeRSA(KeySize, PrivateKey);
+        exit(RSAImpl.ToSecretXmlString(PrivateKey, IncludePrivateParameters));
     end;
 
     /// <summary>
@@ -96,4 +97,4 @@ codeunit 1475 "RSA"
     begin
         RSAImpl.Decrypt(XmlString, EncryptedTextInStream, OaepPadding, DecryptedTextOutStream);
     end;
-}
+}

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

@@ -186,6 +186,14 @@ codeunit 1476 "RSA Impl." implements "Signature Algorithm v2"
         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));