diff --git a/App_Code/RegexSammlung_VERAG.vb b/App_Code/RegexSammlung_VERAG.vb new file mode 100644 index 0000000..3fc70cd --- /dev/null +++ b/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 diff --git a/login/ChangePW.aspx b/login/ChangePW.aspx index f223977..07cf545 100644 --- a/login/ChangePW.aspx +++ b/login/ChangePW.aspx @@ -73,7 +73,7 @@
- @@ -94,8 +94,10 @@ @@ -113,7 +115,7 @@ diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb index ecae57b..ca83f87 100644 --- a/login/ForgotPW.aspx.vb +++ b/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 + + email = txtEmail.Text + Catch ex As Exception Dim Msg, Style, Title As String Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!" @@ -81,17 +78,17 @@ 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) End If 'SendEmail(username, password, email) MsgBox("Mail would be sent successfully!") - lblMessage.ForeColor = Color.Green - lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet." - ElseIf SendEmail(username, password, email) = False Then - MsgBox("Mail would not be sent successfully!") + lblMessage.ForeColor = Color.Green + lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet." + ElseIf SendEmail(username, password, email) = False Then + MsgBox("Mail would not be sent successfully!") lblMessage.ForeColor = Color.Red lblMessage.Text = "Diese E-Mail ist nicht in unserer Datenbank vorhanden." End If @@ -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") - Msg.To.Add(email) - Msg.Subject = "Passwort reset" - Msg.Body = String.Format("Sehr geehrte/r {0},

Der Link zum Zurücksetzen des Passwortes lautet:


.
" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "
Mit freundlichen Grüßen,", username, password) + Dim mailto As String = email + Dim Betreff As String = "Passwort reset" + Dim htmlbody = String.Format("Sehr geehrte/r {0},

Der Link zum Zurücksetzen des Passwortes lautet:


.
" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "
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 diff --git a/login/login_FLEX.aspx b/login/login_FLEX.aspx index 527180a..f9b7a2a 100644 --- a/login/login_FLEX.aspx +++ b/login/login_FLEX.aspx @@ -64,13 +64,17 @@ - + + <%Dim veragregex = New RegexSammlung_VERAG() + Dim regexUID As String = veragregex.getregUID() + Dim regexPWVal As String = veragregex.getregPassword()%>
+
+
+ <% Dim veragregex = New RegexSammlung_VERAG() + Dim veragpwVAL = veragregex.getregPassword()%> - +
- +