Nothing

'This is the brute force vbs, created by someone!
'If you want to change the way this works, just edit the 4 lines below!
'Normally: it gives you 5s then it will start cracking it as if it was ASCII (ALT+1 - ALT+255)

'Btw, I am not responsible for any damage caused to any device by this script, if you are using it right, you shouldn't be getting errors

hasUsr=0 'if there is an username required, set this to true (1) and put in the username between usr=" and " else, set this to false (0)
usr=""
maxCharacters=10 'max characters, set this higher, if the UTF-8 didn't work! (PLS don't use >20 if you don't want to crash your pc)
passType=1 'passType: 0=Numbers,1=Alphabet+Numbers,2=ASCII,3=UTF-8
sleepTime=5 'The time that is given before this thing will start operating
ticksBetween=60 'The ticks that are between a try (/1000 = seconds)
keysToPress="" 'For instance, when you want to press an extra key after it put in another key like: {TAB}
auto=0 'Only turn on auto, if you want to wait really long, but you really want the password


Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep(sleepTime*1000)

If(hasUsr=1) Then
WshShell.SendKeys usr
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"
End If

number=0
alphaStart="`"
ASCIIStart = chr(1)
UTFStart = "?"

If((passType=0) OR (auto=1)) Then
 Dim a : a=10^maxCharacters
   For i=0 to a Step 1
    WshShell.SendKeys i
    WScript.Sleep ticksBetween
    WshShell.SendKeys "{ENTER}"
        WScript.Sleep ticksBetween
        WshShell.SendKeys keysToPress
   Next
End If
If((passType=1) OR (auto=1)) Then
nice = alphaStart & ""
Do While Len(nice)<=maxCharacters
ne = ""
improved=0
 Dim l : l=Len(nice)-1
  For m=0 to l Step 1
   curr=Mid(StrReverse(nice),m+1,1)
   If((asc(curr)>=65 AND asc(curr)<90 AND (improved=0)) OR (asc(curr)>=96 AND asc(curr)<122 AND (improved=0)) OR (asc(curr)>=48 AND asc(curr)<57 AND (improved=0))) Then
    neBackup = ne
    ne = chr(asc(curr)+1)

    If(m>0) Then
      Dim zzz : zzz=m-1
      For zz=0 to zzz Step 1
        If(zz=m-1) Then
        ne=ne&"`"
        Else
        ne=ne&"a"
        End If
      Next
    Else
    ne=ne&neBackup
    End If

    improved=1
    'If l>0 get everything behind and set it to 'a'

    'If it changes, check if there are things after it, yes? get length and put in x times 'a' instead of ne
   ElseIf((asc(curr)=90)  AND (improved=0)) Then
    ne= chr(48) & ne
    improved=1
   ElseIf((asc(curr)=122) AND (improved=0)) Then
    ne = chr(65) & ne
    improved=1
   Else
    ne = curr & ne
   End If
  Next
    WshShell.SendKeys ne
    WScript.Sleep 1
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep ticksBetween
    WshShell.SendKeys keysToPress
isOnlyZ=1
 Dim b : b=Len(alphaStart)-1
  For j=0 to b Step 1
   curr=Mid(ne,j+1,1)
   If(NOT asc(curr)=57) Then
     isOnlyZ=0
   End If
  Next
If(isOnlyZ=1) Then
ncop=ne
ne="`"
 Dim c : c=Len(ncop)-1
  For k=0 to c Step 1
    ne = "a" & ne
  Next
End If
nice = ne & ""
Loop
End If

If((passType=2) OR (auto=1)) Then

End If

If((passType=3) OR (auto=1)) Then

End If