| Server IP : 103.6.199.200 / Your IP : 3.144.20.66 Web Server : Microsoft-IIS/10.0 System : Windows NT EMPUSA 10.0 build 20348 (Windows Server 2016) i586 User : EMPUSA$ ( 0) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Domains/sspucom/ssp2u.com/wwwroot/ |
Upload File : |
<!-- #INCLUDE FILE="doc.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_scramkey.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/formObj.asp" -->
<%
DIM i, s, x, y
DIM f
RANDOMIZE
Session("LoginID") = CHR(65 + INT(RND * 25)) & INT(190000 + RND * 9999999)
Session("Password") = CHR(65 + INT(RND * 24)) & INT(19000 + RND * 9999999)
Session("SKey") = INT(200000 + RND * 798999)
FUNCTION DST(s)
DIM i, j, n, x
x = ""
FOR i = 1 TO LEN(s)
n = INT(4 * RND)
FOR j = 1 TO n
x = x & " "
NEXT
x = x & MID(s, i, 1)
'x = x & STRING(n, " ") & MID(s, i, 1)
NEXT
DST = x
END FUNCTION
StartDoc "Forgot Password"
'PrintTitle "Forgot Password"
'Print "Please enter your Login ID and we will email your login password to your registered email account."
SET f = NEW MyForm
'Print "<center>"
DXOpen ""
f.Open "", "forgotPassword.asp"
CText "Enter your Login ID & screen Key, password will be email to you:"
COpen "Login ID": f.Edit "LoginID", "", 32, 22: CClose
'CText "Please enter the Random Key shown below:"
'DOpen "", "<b>" & X_GetScramKey(Session("SKey")) & "</b>"
COpen "Enter Key: <span style='color: #aa2e24;'>" & DST(Session("SKey")) & "</span>": f.Edit "SKey", "", 32, 22: CClose
'DOpen "", s
COpen "": Print "<br>"
'f.Reset " Reset ": Print " "
'f.Button " Cancel ", "history.back()": Print " "
f.Submit " Get Password "
f.Close
DXClose
'Print "</center>"
EndDoc
%>