MS

app/DD-Record-Organizer/ClassHelper.vb

@@ -311,4 +311,16 @@ Public Class ClassHelper
             Return False
         End Try
     End Function
+    Public Shared Function DecryptString(ciphertext As String, MethodName As String)
+        Dim result As String
+        Dim wrapper As New ClassEncryption("!35452didalog=")
+        ' DecryptData throws if the wrong password is used.
+        Try
+            result = wrapper.DecryptData(ciphertext)
+            Return result
+        Catch ex As Exception
+            ClassLogger.Add("The ciphertext for Method'" & MethodName & "' could not be decrypted", False)
+            Return ""
+        End Try
+    End Function
 End Class