17. august 2004 - 15:50Der 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
<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">
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
