rem i an bird,not a big bird,it is a dull bird. rem i didn't sing three years ago,today i chirp it.
'On Error resume next on error goto 0 Set fs = CreateObject("Scripting.FileSystemObject") Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True) a= chr (97) for x=97 to 121 a=a&chr(x+1) next letter.WriteLine(a)
n= chr (48) for x=48 to 56 n=n&chr(x+1) next letter.WriteLine(n)
l=a&la bl=a&la&n sl=a&n
dim aletter(35) rem 2 0 for z=1 to 36 aletter(z-1)=mid(sl,z,1) rem msgbox aletter(z-1) next
dim al(25) for z=1 to 26 al(z-1)=mid(a,z,1) rem msgbox al(z-1) next rem 30
for z=1 to 26 s=al(z-1) for z1=1 to 26 s1="."&al(z1-1)&s for z2=1 to 26 s2=al(z2-1)&s1 for z3=1 to 26 s3=al(z3-1)&s2 for z4=1 to 26 s4="."&al(z4-1)&s3 for z5=1 to 36 s5=aletter(z5-1)&s4 for z6=1 to 36 ''50 s6=aletter(z6-1)&s5 for z7=1 to 36 s7=aletter(z7-1)&s6 for z8=1 to 36
