jnpe
Сообщений: 171
Оценки: 0
Присоединился: 2010-12-10 12:14:08.143333
|
Самый крутой-прекрутой словарь!!! =)
Dim MyArray
MyArray = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Dim fso, Text
Set fso = CreateObject("Scripting.FileSystemObject")
Set Text = fso.CreateTextFile ("c:\vbs\6.txt")
for a=0 to 25
m= MyArray(a)
for b=0 to 25
n= MyArray(b)
for c=0 to 25
o= MyArray©
for d=0 to 25
p= MyArray(d)
for e=0 to 25
q= MyArray(e)
for f=0 to 25
pass = p +q +MyArray(f)
Text.WriteLine pass
next
next
next
next
next
next
Text.Close
|
Словари логинов и пассвордов для RDP брута - 
