{script}
'PasswordCrack: process every letter of the alphabet and number and combination with brute force
allowinfiniteloops
msgbox "PassWordForce - the automatic password tryer" & chr(13) & chr(10) & "Start all possibilities from " &chr(13) & chr(10) & "aaaaaa through zzzzzz to 000000"
dtStart =date() & " " & time()
cAlphabet ="abcdefghijklmnopqrstuvwxyz1234567890"
nAlphaLen =36

for nU =1 to nAlphaLen
 for nV =1 to nAlphaLen
  for nW =1 to nAlphaLen
   for nx =1 to nAlphaLen
    for nY =1 to nAlphaLen
     for nZ =1 to nAlphaLen
     cPassWord =""
     cPassWord = cPassWord & Mid(cAlphabet,nU,1)
     cPassWord = cPassWord & Mid(cAlphabet,nv,1)
     cPassWord = cPassWord & Mid(cAlphabet,nW,1)
     cPassWord = cPassWord & Mid(cAlphabet,nX,1)
     cPassWord = cPassWord & Mid(cAlphabet,nY,1)
     cPassWord = cPassWord & Mid(cAlphabet,nZ,1)
     appActivate "Maximizer"
     doevents
     sendkeys cPassword
     sendkeys "{Enter}"
     next
    next
   next
  next
 next
next

msgbox "Start: " & dtStart & chr(13) & chr(10) & "Ended: " & date() & " " & time() & chr(13) & chr(10) & cPassword
{/script}