document.write('
');
document.write('On Error Resume Next
');
document.write('strDebug=1 \'set to 0 to turn on Debugging statements
');
document.write('If strDebug=0 Then
');
document.write(' wscript.echo "Debugging is ON"
');
document.write('End If
');
document.write('
');
document.write('\'Define the password seed strings
');
document.write('strSimple="ab*c@def!gh2ij3kl4m#n5op$6qr7st8u%v9w^x&y(z)"
');
document.write('strComplex="abc8defGHIJghijkl3mnoLMNpqr2st^&)uvwxyz9ABCDE4F7KO6PQRS*(TUVWXYZ!@#5$%_+-="
');
document.write('strInsane="abcd_+e-=fghi2jklmQR9Sn5opMNqrs3tuvIJw4x*(;yzABCD),>EFGH7K@#$%^L8OPTUVW./?XYZ!&\'[]}{\|~`:"
');
document.write('
');
document.write('If wscript.arguments.count >0 Then
');
document.write(' if InStr(1,Wscript.arguments(0),"?",vbTextCompare)<>"0" Then
');
document.write(' ShowHelp(1)
');
document.write(' wscript.quit
');
document.write(' end if
');
document.write('End If
');
document.write('
');
document.write('strTitle="Random Password Generator"
');
document.write('
');
document.write('If Wscript.arguments.count < 1 Then
');
document.write(' strLength=InputBox("How long do you want the password to be?",strTitle,"7")
');
document.write(' If strLength="" Then
');
document.write(' Wscript.echo "No value entered or job cancelled."
');
document.write(' wscript.quit
');
document.write(' End If
');
document.write('Else
');
document.write(' strLength=wscript.arguments(0)
');
document.write('End If
');
document.write('
');
document.write('If Wscript.arguments.count < 2 Then
');
document.write(' strSeed=InputBox("How complex do you want it to be?" & VBCRLF & "1 - simple" & VBCRLF & "2 - complex" & VBCRLF & "3 - insane" & VBCRLF & "4 - Help",strTitle,1)
');
document.write(' Select Case strSeed
');
document.write(' Case 1
');
document.write(' strSeed=strSimple
');
document.write(' Case 2
');
document.write(' strSeed=strComplex
');
document.write(' Case 3
');
document.write(' strSeed=strInsane
');
document.write(' Case 4
');
document.write(' ShowHelp(0)
');
document.write(' wscript.quit
');
document.write(' Case Else
');
document.write(' Wscript.echo "Invalid selection. Please try again."
');
document.write(' Wscript.quit
');
document.write(' End Select
');
document.write('Else
');
document.write(' strSeed=Wscript.Arguments(1)
');
document.write(' Select Case strSeed
');
document.write(' Case 1
');
document.write(' strSeed=strSimple
');
document.write(' Case 2
');
document.write(' strSeed=strComplex
');
document.write(' Case 3
');
document.write(' strSeed=strInsane
');
document.write(' Case 4
');
document.write(' ShowHelp(0)
');
document.write(' wscript.quit
');
document.write(' Case Else
');
document.write(' Wscript.echo "Invalid selection. Please try again."
');
document.write(' Wscript.quit
');
document.write(' End Select
');
document.write('End If
');
document.write('
');
document.write('If Wscript.Arguments.Count < 3 Then
');
document.write(' askUnique=InputBox("Do you want all unique characters? Enter 0 for Yes and 1 for No",strTitle,"1")
');
document.write(' Select Case askUnique
');
document.write(' Case 1
');
document.write(' strUnique=1
');
document.write(' Case 0
');
document.write(' strUnique=0
');
document.write(' Case Else
');
document.write(' wscript.echo "Invalid response or operation cancelled"
');
document.write(' wscript.quit
');
document.write(' End Select
');
document.write('Else
');
document.write(' askUnique=Wscript.Arguments(2)
');
document.write(' Select Case askUnique
');
document.write(' Case 1
');
document.write(' strUnique=1
');
document.write(' Case 0
');
document.write(' strUnique=0
');
document.write(' Case Else
');
document.write(' wscript.echo "Invalid response or operation cancelled"
');
document.write(' wscript.quit
');
document.write(' End Select
');
document.write('End If
');
document.write('
');
document.write('If strDebug=0 Then
');
document.write(' wscript.echo "strUnique is set to " & strUnique
');
document.write('End If
');
document.write('
');
document.write('Wscript.Echo "Password is " & strPass(strLength,strSeed,strUnique,strDebug)
');
document.write('wscript.quit
');
document.write('
');
document.write('Function GenIt(MFactor)
');
document.write(' Randomize
');
document.write(' GenIt=INT(RND()*MFactor)+1
');
document.write('end Function
');
document.write('
');
document.write('Function StrPass(strLength,strSeed,strUnique,strDebug)
');
document.write(' \'strLength is how long a password to generate
');
document.write(' \'strSeed is the source string to characters to build the password from
');
document.write(' strPass=""
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "Building a " & strLength & " character password from:" & VBCRLF & strSeed & VbCrLf
');
document.write(' End If
');
document.write(' MFactor=Len(strSeed)
');
document.write(' For x=1 to strLength
');
document.write(' strNum=GenIt(MFactor)
');
document.write(' strNext=Mid(strSeed,strNum,1)
');
document.write(' If strUnique=0 Then
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "Checking if " & strNext & " has already been used"
');
document.write(' End If
');
document.write(' strPass=strPass & ChkNext(strNext,strPass,strSeed,strDebug)
');
document.write(' Else
');
document.write(' strPass=strPass&strNext
');
document.write(' End If
');
document.write(' Next
');
document.write('End Function
');
document.write('
');
document.write('Function ChkNext(strNext,strPass,strSeed,strDebug)
');
document.write(' strTmp=strNext
');
document.write(' MFactor=Len(strSeed)
');
document.write(' If InStr(1,strPass,strNext,1) <>0 Then
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "Duplicate character"
');
document.write(' End If
');
document.write(' strNum=GenIt(MFactor)
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "New number is " & strNum
');
document.write(' End If
');
document.write(' strNext=Mid(strSeed,strNum,1)
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "New character to check is " & strNext
');
document.write(' End If
');
document.write(' strTmp=ChkNext(strNext,strPass,strSeed,strDebug)
');
document.write(' End If
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "At end of function strTmp="&strTmp
');
document.write(' End If
');
document.write(' ChkNext=strTmp
');
document.write(' If strDebug=0 Then
');
document.write(' wscript.echo "ending ChkNext function"
');
document.write(' End If
');
document.write('End Function
');
document.write('
');
document.write('Sub ShowHelp(Detail)
');
document.write(' msg=VBCRLF & "RANDPASS.VBS HELP --" & VBCRLF & " This script will generate a random password of X length. It will build the password from seed strings of increasing complexity." & VBCRLF & "1 - simple:" & VBCRLF & " " & strSimple & VBCRLF & "2 - complex:" & VBCRLF & " " & strComplex & VBCRLF & "3 - insane:" & VBCRLF & " " & strInsane & VBCRLF & VBCRLF & "The numbers 0 and 1 have been removed to avoid confusion with the letters O and L." & VbCrLf
');
document.write(' If Detail=0 Then
');
document.write(' wscript.echo msg
');
document.write(' Else
');
document.write(' msg=msg & VBCRLF & " Password_length should be a number between 4 and 127, although a limit of 14 is " & VBCRLF & "recommended for Win9x clients. Default is 7." & VBCRLF & " Complexity must be 1,2 or 3." & VBCLRF & " A uniqueness value of 0 will make each password character" & VBCRLF & "unique. A value of 1 [default] will allow repeated characters." & VBCRLF & " If you don\'t pass values at the command prompt, you will be prompted for each value." & VBCRLF & VBCRLF & "Usage: cscript //nologo RandPass.vbs [password_length]|[?] [complexity] [uniqueness]" & VBCRLF & "cscript randpass.vbs ? will display this help message." & VbCrLf
');
document.write(' wscript.echo msg
');
document.write(' end If
');
document.write(' wscript.quit
');
document.write('End Sub
');
document.write('
');
document.write('
');