Mail geändert
This commit is contained in:
ja
17
App_Code/RegexSammlung_VERAG.vb
Normal file
17
App_Code/RegexSammlung_VERAG.vb
Normal file
@@ -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
|
||||
@@ -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;">
|
||||
|
||||
@@ -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},<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 mailto As String = email
|
||||
Dim Betreff As String = "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)
|
||||
' 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
|
||||
|
||||
@@ -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;">
|
||||
|
||||
Reference in New Issue
Block a user