Änderungen

2021-11-12 17:02:30 +01:00
parent 538c7a74c9
commit bdf8692deb
3 changed files with 106 additions and 96 deletions
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -195,7 +195,7 @@ Partial Class ForgotPW
                    tokenname = Session.Item("TokenforEmail")
                End If

-                If SendEmail(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname), customerID, isusrnmright, isCustomeridright, isemailright, Session.IsNewSession) = True Then
+                If SendEmail(username, password, email, tokenname, customerID, isusrnmright, isCustomeridright, isemailright, Session.IsNewSession) = True Then
                    'password = RandomString(New Random, 10)
                    If (getDateoftoken(tokenname) = True) Then
                        'Dim msgboxstyle = vbDefaultButton1 + vbOK
@@ -220,7 +220,7 @@ Partial Class ForgotPW
                    'MsgBox("Mail would be sent successfully!")
                    lblMessage.ForeColor = Color.Green
                    lblMessage.Text = "The password has been sent sucessfully on the given valid e-mail address."
-                ElseIf SendEmail(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname), customerID, isusrnmright, isCustomeridright, isemailright, Session.IsNewSession) = True Then
+                ElseIf SendEmail(username, password, email, tokenname, customerID, isusrnmright, isCustomeridright, isemailright, Session.IsNewSession) = True Then
                    'MsgBox("Mail would not be sent successfully!")
                    lblMessage.ForeColor = Color.Red
                    If String.IsNullOrWhiteSpace(username) = True Then
@@ -251,85 +251,85 @@ Partial Class ForgotPW
    Protected Sub btn_Send_M_Click(sender As Object, e As EventArgs)

        Dim username As String = String.Empty
-            Dim password As String = String.Empty
-            Dim email As String = String.Empty
-            Dim tokenname As String = String.Empty
-            Dim customerID As String = String.Empty
-            Dim isusernameright As Boolean = False
-            Dim isuserIDright As Boolean = False
-            Dim isuserEmailright As Boolean = False
-            'Mobil
-            If String.IsNullOrEmpty(txtEmail_M.Text) = False And String.IsNullOrEmpty(txt_Username_M.Text) = False And String.IsNullOrEmpty(txt_CustomerID_M.Text) = False And String.IsNullOrEmpty(txtEmail.Text) = True And String.IsNullOrEmpty(txt_Username.Text) = True And String.IsNullOrEmpty(txt_CustomerID.Text) = True Then
-                valreqtxtusername.Enabled = False
-                valreqtxtEmail.Enabled = False
-                regexval_txt_Email_2.Enabled = False
-                regexval_txt_Email.Enabled = False
-                check_UserName_regex.Enabled = False
-                CustomerIDrequired.Enabled = False
-                valid_getNumberInput.Enabled = False
+        Dim password As String = String.Empty
+        Dim email As String = String.Empty
+        Dim tokenname As String = String.Empty
+        Dim customerID As String = String.Empty
+        Dim isusernameright As Boolean = False
+        Dim isuserIDright As Boolean = False
+        Dim isuserEmailright As Boolean = False
+        'Mobil
+        If String.IsNullOrEmpty(txtEmail_M.Text) = False And String.IsNullOrEmpty(txt_Username_M.Text) = False And String.IsNullOrEmpty(txt_CustomerID_M.Text) = False And String.IsNullOrEmpty(txtEmail.Text) = True And String.IsNullOrEmpty(txt_Username.Text) = True And String.IsNullOrEmpty(txt_CustomerID.Text) = True Then
+            valreqtxtusername.Enabled = False
+            valreqtxtEmail.Enabled = False
+            regexval_txt_Email_2.Enabled = False
+            regexval_txt_Email.Enabled = False
+            check_UserName_regex.Enabled = False
+            CustomerIDrequired.Enabled = False
+            valid_getNumberInput.Enabled = False

-                regexval_2_txt_Email_M.Enabled = True
-                regexval_txt_Email_M.Enabled = True
-                valreqtxtEmail_M.Enabled = True
-                valreqtxtusername_M.Enabled = True
-                check_UserName_regex_M.Enabled = True
-                CustomerID_M_required.Enabled = True
-                valid_getNumber_M_Input.Enabled = True
+            regexval_2_txt_Email_M.Enabled = True
+            regexval_txt_Email_M.Enabled = True
+            valreqtxtEmail_M.Enabled = True
+            valreqtxtusername_M.Enabled = True
+            check_UserName_regex_M.Enabled = True
+            CustomerID_M_required.Enabled = True
+            valid_getNumber_M_Input.Enabled = True

-                valreqtxtEmail_M.Validate()
-                If valreqtxtEmail_M.IsValid = True Then
-                    regexval_txt_Email_M.Validate()
-                    If regexval_txt_Email_M.IsValid = True Then
-                        regexval_txt_Email_M.ForeColor = Drawing.Color.OrangeRed
-                        VERAG_VARIABLES.seterrorcount(15)
-                        regexval_txt_Email_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "The Domain does not match."
-                        regexval_2_txt_Email_M.Validate()
-                        If regexval_2_txt_Email_M.IsValid = True Then
-                            email = txtEmail_M.Text
-                            lblMessage_M.ForeColor = Drawing.Color.Lime
-                            lblMessage_M.Text = "E-mail Address valid."
-                        End If
-                    Else
-                        regexval_txt_Email.Validate()
-                        If regexval_2_txt_Email_M.IsValid = True Then
-                            lblMessage_M.ForeColor = Drawing.Color.Lime
-                            lblMessage_M.Text = "E-mail Address valid."
-                            email = txtEmail_M.Text
-                        End If
-                    End If
-                End If
-
-                CustomerID_M_required.Validate()
-                If CustomerID_M_required.IsValid = True Then
-                    valid_getNumber_M_Input.Validate()
-                    If valid_getNumber_M_Input.IsValid = True Then
-                        customerID = txt_CustomerID_M.Text
-                    Else
-                        lblMessage_M.ForeColor = Drawing.Color.Red
-                        VERAG_VARIABLES.seterrorcount(16)
-                        lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Customer-ID is not numeric or too long."
-                    End If
-                End If
-
-                valreqtxtusername_M.Validate()
-                If valreqtxtusername_M.IsValid = True Then
-                    check_UserName_regex_M.Validate()
-                    If check_UserName_regex_M.IsValid = False Then
-                        check_UserName_regex_M.ForeColor = Drawing.Color.Red
-                        VERAG_VARIABLES.seterrorcount(17)
-                        check_UserName_regex_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "The Username is too long."
-                    Else
-                        username = txt_Username_M.Text
+            valreqtxtEmail_M.Validate()
+            If valreqtxtEmail_M.IsValid = True Then
+                regexval_txt_Email_M.Validate()
+                If regexval_txt_Email_M.IsValid = True Then
+                    regexval_txt_Email_M.ForeColor = Drawing.Color.OrangeRed
+                    VERAG_VARIABLES.seterrorcount(15)
+                    regexval_txt_Email_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "The Domain does not match."
+                    regexval_2_txt_Email_M.Validate()
+                    If regexval_2_txt_Email_M.IsValid = True Then
+                        email = txtEmail_M.Text
                        lblMessage_M.ForeColor = Drawing.Color.Lime
-                        lblMessage_M.Text = "Valid Username has been entered."
+                        lblMessage_M.Text = "E-mail Address valid."
+                    End If
+                Else
+                    regexval_txt_Email.Validate()
+                    If regexval_2_txt_Email_M.IsValid = True Then
+                        lblMessage_M.ForeColor = Drawing.Color.Lime
+                        lblMessage_M.Text = "E-mail Address valid."
+                        email = txtEmail_M.Text
                    End If
                End If
-            Else
-                'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
-                lblMessage_M.ForeColor = Color.Red
-                lblMessage_M.Text = "Error 08. The form has not been filled completeley."
            End If

+            CustomerID_M_required.Validate()
+            If CustomerID_M_required.IsValid = True Then
+                valid_getNumber_M_Input.Validate()
+                If valid_getNumber_M_Input.IsValid = True Then
+                    customerID = txt_CustomerID_M.Text
+                Else
+                    lblMessage_M.ForeColor = Drawing.Color.Red
+                    VERAG_VARIABLES.seterrorcount(16)
+                    lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Customer-ID is not numeric or too long."
+                End If
+            End If
+
+            valreqtxtusername_M.Validate()
+            If valreqtxtusername_M.IsValid = True Then
+                check_UserName_regex_M.Validate()
+                If check_UserName_regex_M.IsValid = False Then
+                    check_UserName_regex_M.ForeColor = Drawing.Color.Red
+                    VERAG_VARIABLES.seterrorcount(17)
+                    check_UserName_regex_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "The Username is too long."
+                Else
+                    username = txt_Username_M.Text
+                    lblMessage_M.ForeColor = Drawing.Color.Lime
+                    lblMessage_M.Text = "Valid Username has been entered."
+                End If
+            End If
+        Else
+            'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
+            lblMessage_M.ForeColor = Color.Red
+            lblMessage_M.Text = "Error 08. The form has not been filled completeley."
+        End If
+
        'Erweiterte Degub Msg-Box
        'MsgBox("Userdaten in App" + Environment.NewLine + email + Environment.NewLine + username + Environment.NewLine + "Userdaten desktop" + txt_Username.Text + Environment.NewLine + txtEmail.Text + Environment.NewLine + "Userdaten Mobil:" + Environment.NewLine + txtEmail_M.Text + Environment.NewLine + txt_Username_M.Text)
        If String.IsNullOrEmpty(tokenname) = True And String.IsNullOrEmpty(password) = True Then
@@ -428,7 +428,7 @@ Partial Class ForgotPW
                tokenname = Session.Item("TokenforEmail")
            End If

-            If SendEmail_M(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname), customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession) = True Then
+            If SendEmail_M(username, password, email, tokenname, customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession) = True Then
                'password = RandomString(New Random, 10)
                If (getDateoftoken(tokenname) = True) Then
                    'Dim msgboxstyle = vbDefaultButton1 + vbOK
@@ -453,7 +453,7 @@ Partial Class ForgotPW
                'MsgBox("Mail would be sent successfully!")
                lblMessage_M.ForeColor = Color.Green
                lblMessage_M.Text = "The password has been sent sucessfully on the given valid e-mail address."
-            ElseIf SendEmail_M(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname), customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession) = True Then
+            ElseIf SendEmail_M(username, password, email, tokenname, customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession) = True Then
                'MsgBox("Mail would not be sent successfully!")
                lblMessage_M.ForeColor = Color.Red
                If String.IsNullOrWhiteSpace(username) = True Then
@@ -647,7 +647,7 @@ Partial Class ForgotPW
                    Else
                        tokenname = Session.Item("TokenforEmail").ToString()
                    End If
-                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody, tokenname)
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody)
                    Return True
                End If
            Catch ex As Exception
@@ -668,7 +668,7 @@ Partial Class ForgotPW
            Dim token As String
            If isusrnmright = True And iscstmIDright = True And isemailright = True Then
                Try
-                    token = VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(Convert.ToBase64String(time.Concat(Key).ToArray()))
+                    token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(time.Concat(Key).ToArray()))
                    Return token
                Catch Ex As Exception
                    Dim Msg, Style, Title As String
@@ -679,7 +679,7 @@ Partial Class ForgotPW

                    'If MsgBox(Msg, Style, Title).Retry Then
                    'genToken(username, password, email)
-                    token = VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(Convert.ToBase64String(time.Concat(Key).ToArray()))
+                    token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(time.Concat(Key).ToArray()))
                    If SendEmail(username, password, email, token, CustomerID, isusrnmright, iscstmIDright, isemailright, Session.IsNewSession) = True Then
                        'MsgBox("Email could not been sent because of an internal encryption error.", vbOK + vbInformation + vbDefaultButton1, "Token-Generation Error")
                    Else
@@ -707,9 +707,9 @@ Partial Class ForgotPW
    End Function

    Function getDateoftoken(tokenname As String) As Boolean
-        Dim data() As Byte = Convert.FromBase64String(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname))
+        Dim data() As Byte = Convert.FromBase64String(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(tokenname))
        Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
-        Dim nameoftoken = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname)
+        Dim nameoftoken = VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(tokenname)
        If wenn < DateTime.UtcNow.AddMinutes(-30) Then
            nameoftoken = String.Empty
            tokenname = nameoftoken