MS

App/CONFIG_APP/frmMain.vb

@@ -902,8 +902,6 @@ Public Class frmMain
 
 
 
-
-
     Private Sub COMMENTTextBox_Leave(sender As Object, e As EventArgs) Handles COMMENTTextBox.Leave
         Try
             Dim separatorIndex = COMMENTTextBox.Text.IndexOf(".")
@@ -944,4 +942,14 @@ Public Class frmMain
         End Try
 
     End Sub
+
+    Private Sub PasswortAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasswortAnzeigenToolStripMenuItem.Click
+        Try
+            Dim oPW = EMAIL_PWTextBox.Text
+            Dim pwdecrypted = _Encryption.DecryptData(oPW)
+            MsgBox(pwdecrypted, MsgBoxStyle.Information, "Current PW")
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "")
+        End Try
+    End Sub
 End Class