Mail geändert

App_Code/RegexSammlung_VERAG.vb

@@ -0,0 +1,17 @@
+Imports System.Threading.Tasks
+Imports Microsoft.VisualBasic
+
+Public Class RegexSammlung_VERAG
+    Function getregEmail() As String
+        Dim strtemp As String = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
+        Return strtemp
+    End Function
+    Function getregUID() As String
+        Dim strtemp As String = "^[0-9]"
+        Return strtemp
+    End Function
+    Function getregPassword() As String
+        Dim strtemp As String = "^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,30}$"
+        Return strtemp
+    End Function
+End Class

login/ChangePW.aspx

@@ -94,8 +94,10 @@
                       </tr>
                       <tr style="color:#003680;height:min-content;">
                         <td>
+                           <% Dim veragregex = New RegexSammlung_VERAG()
+                               Dim veragpwVAL = veragregex.getregPassword()%>
                             <asp:RequiredFieldValidator ID="reqPassw1txt" runat="server" ErrorMessage="Bitte ein Passwort eingeben!" ControlToValidate="txt_Pw" Display="Dynamic"></asp:RequiredFieldValidator>
-                            <asp:RegularExpressionValidator ControlToValidate="txt_Pw" runat="server" ID="regexval_txt_Pw" ValidationGroup="TXT_val" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,30}$" Display="Dynamic" ErrorMessage="Das Passwort muss mindestens eine Länge von Zeichen, einen Groß- und mindestens einen Kleinbuchstaben sowie ein Sonderzeichen enthalten!" SetFocusOnError="true"></asp:RegularExpressionValidator>
+                            <asp:RegularExpressionValidator ControlToValidate="txt_Pw" runat="server" ID="regexval_txt_Pw" ValidationGroup="TXT_val" ValidationExpression="<%=veragpwVAL %>" Display="Dynamic" ErrorMessage="Das Passwort muss mindestens eine Länge von 4 Zeichen, einen Groß- und mindestens einen Kleinbuchstaben sowie ein Sonderzeichen und maximal 30 zeichen enthalten!" SetFocusOnError="true"></asp:RegularExpressionValidator>
                             </td>
                           </tr>
                      <tr style="color:#003680;height:36.67px;">
@@ -113,7 +115,7 @@
                         <td>
                             <asp:CompareValidator ID="confirmPasswordReq" runat="server" ControlToCompare="txt_Pw" ControlToValidate="txt_Pw_WH" ErrorMessage="Die Passwörter stimmen nicht überein! nochmal versuchen!" Display="Dynamic"></asp:CompareValidator>
                             <asp:RequiredFieldValidator ID="reqPasswtxt" runat="server" ErrorMessage="Bitte Passwort wiederholen!" ControlToValidate="txt_Pw_WH" Display="Dynamic"></asp:RequiredFieldValidator>
-                             <asp:RegularExpressionValidator ControlToValidate="txt_Pw_WH" runat="server" ID="regexval_txt_Pw_WH" ValidationGroup="TXT_val" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,30}$" Display="Dynamic" ErrorMessage="Das Passwort muss mindestens eine Länge von Zeichen, einen Groß- und mindestens einen Kleinbuchstaben sowie ein Sonderzeichen enthalten!" SetFocusOnError="true"></asp:RegularExpressionValidator>
+                             <asp:RegularExpressionValidator ControlToValidate="txt_Pw_WH" runat="server" ID="regexval_txt_Pw_WH" ValidationGroup="TXT_val" ValidationExpression="<%=veragpwVAL %>" Display="Dynamic" ErrorMessage="Das Passwort muss mindestens eine Länge von 4 Zeichen, einen Groß- und mindestens einen Kleinbuchstaben sowie ein Sonderzeichen und maximal 30 zeichen enthalten!" SetFocusOnError="true"></asp:RegularExpressionValidator>
                         </td>
                     </tr>
                     <tr style="color:#003680;height:36.67px;">

login/ForgotPW.aspx.vb

@@ -49,12 +49,9 @@ Partial Class login_ForgotPW
                     username = dr("Username").ToString()
                     password = dr("Password").ToString()
                     Try
-                        If email = dr("Email").ToString() Then
+
                         email = txtEmail.Text
-                        Else
+
-                            MsgBox("Error bei Email- Authentifizierung. Diese Mail stimmt nicht mit den hinterlegten Account-informationen überein.")
-                            con.Close()
-                        End If
                     Catch ex As Exception
                         Dim Msg, Style, Title As String
                         Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
@@ -81,7 +78,7 @@ Partial Class login_ForgotPW
             If (getDateoftoken(tokenname) = True) Then
                 Dim msgboxstyle = vbDefaultButton1 + vbOK
 
-                MsgBox(tokenname, MsgBoxStyle)
+                MsgBox(tokenname, msgboxstyle)
             Else
                 MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
                 tokenname = genToken(username, password, email)
@@ -111,28 +108,15 @@ Partial Class login_ForgotPW
     Function SendEmail(username As String, password As String, email As String) As Boolean
         Dim lkb As LinkButton = New LinkButton()
         lkb.PostBackUrl = "ChangePW.aspx"
-
-        Dim Msg As New MailMessage
-        Dim myCredentials As New System.Net.NetworkCredential
-        myCredentials.UserName = "al@verag.ag"
-        myCredentials.Password = "Luxandreas#2"
-        Msg.IsBodyHtml = True
-        Dim mySmtpsvr As New SmtpClient()
-        mySmtpsvr.Host = "smtp.1und1.de" 'bei web.de
-        mySmtpsvr.Port = 587 '25
-        mySmtpsvr.UseDefaultCredentials = False
-        mySmtpsvr.Credentials = myCredentials
-
         Try
             Dim tokennametemp = genToken(username, password, email)
             If getDateoftoken(tokennametemp) = True Then
-                Msg.From = New MailAddress("al@verag.ag")
+                Dim mailto As String = email
-                Msg.To.Add(email)
+                Dim Betreff As String = "Passwort reset"
-                Msg.Subject = "Passwort reset"
+                Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Der Link zum Zurücksetzen des Passwortes lautet:<br /><br /><br />.<br />" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
-                Msg.Body = String.Format("Sehr geehrte/r {0},<br /><br /> Der Link zum Zurücksetzen des Passwortes lautet:<br /><br /><br />.<br />" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
                 '     Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
                 '     Msg.Attachments.Add(attachment)
-                mySmtpsvr.Send(Msg)
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody)
                 MsgBox("SENT")
                 Return True
             Else

login/login_FLEX.aspx

@@ -65,12 +65,16 @@
 </head>
  
  <body onload="FocusOnInput()"> 
+     <%Dim veragregex = New RegexSammlung_VERAG()
+         Dim regexUID As String = veragregex.getregUID()
+         Dim regexPWVal As String = veragregex.getregPassword()%>
        <div id="content_container">
         <div class="container-fluid">           
         <form id="form1" runat="server">
         <asp:Login ID = "Login1" runat = "server" OnAuthenticate= "ValidateUser" ClientIDMode="AutoID" DestinationPageUrl="../Customers/CustomsAviso.aspx" >
             <LayoutTemplate>     
                 <center>
+                    
                            <table cellpadding="0" style="font-size:12px">
                                    <!--  <tr style=" background-image: linear-gradient(to right, #003680 , #0055cc);color:#fff;height:30px;font-size:12px">
                                         <td align="center" colspan="2" style="color:#fff;font-kerning:auto;font-weight:700;">Bitte melden Sie sich an:</td>
@@ -92,7 +96,7 @@
                                             </td></tr>
                                <tr style="color:#003680; height:15px;">
                                         <td align="right">
-                                            <asp:RegularExpressionValidator ID="valid_getNumberInput" ControlToValidate="CustomerID" ValidationGroup="txt_check" runat="server" Display="Dynamic" SetFocusOnError="true" ValidationExpression="^[0-9]"></asp:RegularExpressionValidator>
+                                            <asp:RegularExpressionValidator ID="valid_getNumberInput" ControlToValidate="CustomerID" ValidationGroup="txt_check" runat="server" Display="Dynamic" SetFocusOnError="true" ValidationExpression="<%=regexUID %>"></asp:RegularExpressionValidator>
                                         </td>
                                     </tr>  
                                  <tr style="color:#003680; height:30px;">