edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen

Browse Source
This commit is contained in:
ja
2021-10-19 13:29:16 +02:00
parent 443a2fdc1c
commit 9045f79100
3 changed files with 18 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
login/ChangePW.aspx.vb
View File

@@ -9,6 +9,7 @@ Partial Class ChangePW
Session.Add("urltochangepw", url) Session.Add("urltochangepw", url)
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("USerID").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2")) Then If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("USerID").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2")) Then
If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
Try
txt_Pw_WH.Enabled = True txt_Pw_WH.Enabled = True
txt_Pw.Enabled = True txt_Pw.Enabled = True
regexval_txt_Pw_WH.Enabled = True regexval_txt_Pw_WH.Enabled = True
@@ -16,6 +17,9 @@ Partial Class ChangePW
reqPasswtxt.Validate() reqPasswtxt.Validate()
reqPassw1txt.Validate() reqPassw1txt.Validate()
End If End If
Catch exc As Exception
MsgBox(exc)
End Try
Else Else
btn_submitpw.Enabled = False btn_submitpw.Enabled = False
txt_Pw.BackColor = Drawing.Color.Gray txt_Pw.BackColor = Drawing.Color.Gray

4
login/ForgotPW.aspx
View File

@@ -281,8 +281,8 @@
<td align="left" colspan="2"> <td align="left" colspan="2">
<asp:TextBox ID="txtEmail" runat="server" Width="265" ValidationGroup="val-desk" Font-Size="1.125em" Placeholder="E-Mail" CssClass="bg-email-icon" style="margin-left:45px;color:#003680"/> <asp:TextBox ID="txtEmail" runat="server" Width="265" ValidationGroup="val-desk" Font-Size="1.125em" Placeholder="E-Mail" CssClass="bg-email-icon" style="margin-left:45px;color:#003680"/>
<asp:RequiredFieldValidator ID="valreqtxtEmail" ControlToValidate="txtEmail" ValidationGroup="val-desk" runat="server" Text="Require E-Mail Address" ForeColor="Red" ></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="valreqtxtEmail" ControlToValidate="txtEmail" ValidationGroup="val-desk" runat="server" Text="Require E-Mail Address" ForeColor="Red" ></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email" ValidationGroup="val-desk" ValidationExpression="[\w\.]+\@(\bverag.ag\b)" Display="Dynamic" ErrorMessage="The E-Mail has not the correct domain!" SetFocusOnError="true" style="font-size:1em" ForeColor="Red"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email" ValidationGroup="val-desk" ValidationExpression="[\w\.]{0,2}\@(\bverag.ag\b)" Display="Dynamic" ErrorMessage="The E-Mail has not the correct domain!" SetFocusOnError="true" style="font-size:1em" ForeColor="Red"></asp:RegularExpressionValidator>
<asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email_2" ValidationGroup="val-desk" ValidationExpression="[\w\.]+\@[\w]+(?:\.[\w]{3}|\.[\w]{2}\.[\w]{2}|\.[\w]{2})\b" Display="Dynamic" ErrorMessage="The E-Mail has not the correct domain!" ForeColor="Red" SetFocusOnError="true"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email_2" ValidationGroup="val-desk" ValidationExpression="[\w\.]{0,2}\@[\w]+(?:\.[\w]{3}|\.[\w]{2}\.[\w]{2}|\.[\w]{2})\b" Display="Dynamic" ErrorMessage="The E-Mail has not the correct domain!" ForeColor="Red" SetFocusOnError="true"></asp:RegularExpressionValidator>
</td></tr> </td></tr>
<tr style="color:#003680; height:30px;"> <tr style="color:#003680; height:30px;">
<td align="left" colspan="2"> <td align="left" colspan="2">

8
login/ForgotPW.aspx.vb
View File

@@ -49,15 +49,17 @@ Partial Class ForgotPW
Boolemail_mobile_notempty = False Boolemail_mobile_notempty = False
If Boolemail_desktop_notempty = True Then If Boolemail_desktop_notempty = True Then
regexval_txt_Email_2.Validate() regexval_txt_Email.Validate()
If regexval_txt_Email_2.IsValid = True Then If regexval_txt_Email.IsValid = True Then
Boolemail_desktop_regex = True Boolemail_desktop_regex = True
Boolemail_desktop_regexdomain = True
Boolemail_mobile_regex = False Boolemail_mobile_regex = False
Boolemail_mobile_regexdomain = False
End If End If
If Boolemail_desktop_notempty = True AndAlso Boolemail_desktop_regexdomain = True AndAlso Boolemail_desktop_regex = True Then If Boolemail_desktop_notempty = True AndAlso Boolemail_desktop_regexdomain = True AndAlso Boolemail_desktop_regex = True Then
email = txtEmail.Text email = txtEmail.Text
Else Else
regexval_txt_Email_2.IsValid = True regexval_txt_Email.IsValid = True
Boolemail_desktop_regex = True Boolemail_desktop_regex = True
Boolemail_mobile_regex = False Boolemail_mobile_regex = False
If Boolemail_desktop_regexdomain = True Then If Boolemail_desktop_regexdomain = True Then