* Hack - Try various combinations of password until key is
pressed
* A through ZZZZZZZZZZ including 0 through 9999999999
parameter lASCII
if parameters() =0
* All characters
else
* Printable characters & digits only
endif
on escape return
cCharacters ='ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
* abcdefghijklmnopqrstuvwxyz
nLength =len(cCharacters)
nX =0
nY =0
cChar1 =''
cChar2 =''
cChar3 =''
cChar4 =''
for n3 =1 to nLength
for n2 =1 to nLength
for n1 =1 to nLength
? cChar3 +cChar2
+cChar1 +substr(cCharacters,n1,1)
endfor
cChar2 =substr(cCharacters,n2,1)
endfor
cChar3 =substr(cCharacters,n3,1)
endfor
? 'Done'