17. august 2004 - 15:50
Der er
2 kommentarer og
1 løsning
Kontroller password
Jeg vil gerne lave et script som kontrollere et input / password for om der er STORE bogstaver, små bogstaver, tal og det er mindst 8 karakterer.
Jeg har dog absolut aldrig rørt ved VBScript - Men fik at vide at det sagtens kunne lade sig gøre med et VB script med hjælp af "VBScript IsUpper og IsLower functions" for bogstaverne og " IsNumeric" for tal.
Script skal kan bruge disse info fra en tekst-fil:
----
yourname....:username
oldpass..:MyOldpass1234
email.......:thisaintan@email.com
newpass...:Thispass12
newpass...:Thispass12
----
Det er "newpass" som skal kontrolleres.
Er der nogle som kan hjælpe mig med at lave sådan et script? :)
På forhånd tak
17. august 2004 - 16:12
#1
<html>
<head>
<title>Test</title>
<script language="vbscript">
function CheckNewPass()
dim strNewPass
dim arrNewPass
dim bFlag
strNewPass = document.all("newpass").value
if strNewPass = ucase(strNewPass) then msgbox ("Maa ikke kun vaerre store bogstaver")
if strNewPass = lcase(strNewPass) then msgbox ("Maa ikke kun vaerre smaa bogstaver")
if len(strNewPass)<9 then msgbox ("Er under 8 tegn")
arrNewPass = split(strNewPass, "0", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "1", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "2", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "3", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "4", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "5", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "6", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "7", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "8", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
arrNewPass = split(strNewPass, "9", -1, 1)
if Ubound(arrNewPass, 1) = 0 then
if NOT bFlag=1 then bFlag=0
else
bFlag=1
end if
if bFLag=0 Then msgbox("Indeholder ikke tal")
end function
</script>
</head>
<body>
<input type=text id=newpass>
<input type=button value=Submit onClick="vbscript:CheckNewPass">
</body>
</html>
