Public Shared Function CreatePublicKey(ByRef priv_key As String) As String
                Dim Crypt As New RSACryptoServiceProvider
                priv_key = Crypt.ToXmlString(True)
                Return Crypt.ToXmlString(False)
End Function