VERAG_Homepage/login/ChangePW.aspx.vb

Partial Class login_ChangePW
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs)
        Dim url = Request.ServerVariables("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 Then
            If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
                txt_Pw_WH.Enabled = True
                txt_Pw.Enabled = True
                regexval_txt_Pw_WH.Enabled = True
                If IsPostBack Then
                    reqPasswtxt.Validate()
                    reqPassw1txt.Validate()
                End If
            Else
                btn_submitpw.Enabled = False
                txt_Pw.BackColor = Drawing.Color.Gray
                txt_Pw.ForeColor = Drawing.Color.DarkGray
                txt_Pw_WH.Enabled = False
                txt_Pw_WH.BackColor = Drawing.Color.Gray
                txt_Pw_WH.ForeColor = Drawing.Color.DarkGray
                txt_Pw.Enabled = False
                regexval_txt_Pw_WH.Enabled = False
            End If
        Else
            MsgBox("Link ist abgelaufen. Bitte neue E-Mail senden.", MsgBoxStyle.Critical, "Error06")
            Response.Redirect("ForgotPW.aspx")
        End If
    End Sub

    Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_Pw_WH.Validate()
        confirmPasswordReq.Validate()
        If confirmPasswordReq.IsValid Then
            btn_submitpw.Enabled = True
        Else
            btn_submitpw.Enabled = False
        End If
    End Sub
    Public Function geturlofpage() As String
        Dim url = Request.Url.Authority + HttpContext.Current.Request.RawUrl.ToString()

        If Request.ServerVariables("HTTPS") = "on" Then
            url = "https://" + url
        Else
            url = "http://" + url
        End If
        Return url
    End Function

    Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
        Dim tempstr As String = ""
        Dim Msg, Style, Title As String

        If String.IsNullOrEmpty(txt_Pw.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = Not True AndAlso txt_Pw_M.Attributes.Item("Placeholder") = "Enter Password" And String.IsNullOrEmpty(txt_Pw_M.Text) AndAlso txt_Pw_WH_M.Attributes.Item("Placeholder") = "Repeat Password" Then

            reqPasswtxt.Validate()
            reqPassw1txt.Validate()
            reqPassw1txt_M.Enabled = False
            reqPasswtxt.Enabled = False
            tempstr = txt_Pw.Text
        ElseIf String.IsNullOrEmpty(txt_Pw.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = True AndAlso txt_Pw.Attributes.Item("Placeholder") = Not True AndAlso txt_Pw_WH.Attributes.Item("Placeholder") = "Repeat Password" AndAlso txt_Pw.Attributes.Item("Placeholder") = "Repeat Password" Then

            reqPasswtxt.Enabled = False
            reqPassw1txt.Enabled = False
            reqPasswtxt_M.Validate()
            reqPassw1txt_M.Validate()
            tempstr = txt_Pw_M.Text
        Else
            tempstr = "Error01"
        End If


        If txt_Pw.Text = tempstr And txt_Pw_WH.Text = tempstr AndAlso txt_Pw_M.Text = String.Empty And txt_Pw_WH_M.Text = String.Empty Then
            Msg = "PW erfolgreich geändert!"
            Style = vbOKOnly + vbInformation + vbDefaultButton1
            Title = "Information"
            regexval_txt_Pw.ForeColor = Drawing.Color.Green
            regexval_txt_Pw.Text = "Password has been changed successfully!"
            'MsgBox(Msg, Style, Title)

            ' If MsgBox(Msg, Style, Title).Ok Then
            'Response.Redirect("login_FLEX.aspx")
            'End If
        ElseIf txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso txt_Pw.Text = String.Empty And txt_Pw_M.Text = String.Empty Then
            Msg = "PW erfolgreich geändert!"
            Style = vbOKOnly + vbInformation + vbDefaultButton1
            Title = "Information"
            regexval_txt_Pw.ForeColor = Drawing.Color.Green
            regexval_txt_Pw.Text = "Password has been changed successfully!"
            'MsgBox(Msg, Style, Title)

            ' If MsgBox(Msg, Style, Title).Ok Then
            'Response.Redirect("login_FLEX.aspx")
            'End If
        ElseIf tempstr = "Error01" Then
            regexval_txt_Pw.ForeColor = Drawing.Color.MediumVioletRed
            regexval_txt_Pw.Text = "Password has not been changed successfully!"
            '   Msg = "PW nicht erfolgreich geändert!"
            '  Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1
            ' Title = "Error"
            'MsgBox(Msg, Style, Title)
            'If MsgBox(Msg, Style, Title).Retry Then
            'Response.Redirect(Request.RawUrl)
            'ElseIf MsgBox(Msg, Style, Title).Abort Then
            '   Response.Redirect("../newPageJulius_Sidebar.aspx")
            'ElseIf MsgBox(Msg, Style, Title).Ignore Then
            '   Try

            '   Catch ex As Exception

            '   End Try
        End If

    End Sub

    Protected Sub txt_Pw_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_Pw.Validate()
        If regexval_txt_Pw.IsValid Then
            txt_Pw_WH.ReadOnly = False
            regexval_txt_Pw_WH.Enabled = True
        Else
            txt_Pw_WH.ReadOnly = True
            regexval_txt_Pw_WH.Enabled = False
        End If
    End Sub

    Function getDateoftoken(tokenname As String) As Boolean
        Dim data() As Byte = Convert.FromBase64String(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(tokenname))
        Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
        Dim nameoftoken = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(tokenname)
        If wenn < DateTime.UtcNow.AddMinutes(-30) Then
            nameoftoken = String.Empty
            'MsgBox("Token has not been found or is too old!" + Environment.NewLine + "Please send a new E-mail!")
            Session.Remove("TokenforEmail")
            Return False
        ElseIf nameoftoken = "Error04" Then
            nameoftoken = String.Empty
            Session.Remove("TokenforEmail")
            Return False
        ElseIf nameoftoken = "NotYet" Then
            Return True
        Else
            Return True
        End If
    End Function


    Protected Sub Image1_M_Click(sender As Object, e As ImageClickEventArgs)
        MsgBox("")
    End Sub
End Class