Скрипт генерации паролей

Set fso = CreateObject("Scripting.FileSystemObject")
Set Text = fso.CreateTextFile("passwords.txt")
dim a, DesiredLength, DesiredCount
DesiredLength = inputbox ("Введите длину пароля")
DesiredCount = inputbox ("Введите количество паролей")
FOR a=1 to DesiredCount
Randomize( )
dim CharacterSetArray
CharacterSetArray = Array( _
Array( DesiredLength, "~!@#$%^&*()_+-=[]{};':,./<>?0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" ) _
)
dim i
dim j
dim Count
dim Chars
dim Index
dim Temp
Count = CharacterSetArray( 0 )( 0 )
Chars = CharacterSetArray( 0 )( 1 )
for j = 1 to Count
Index = Int( Rnd( ) * Len( Chars ) ) + 1
Temp = Temp & Mid( Chars, Index, 1 )
next
dim TempCopy
do until Len( Temp ) = 0
Index = Int( Rnd( ) * Len( Temp ) ) + 1
TempCopy = TempCopy & Mid( Temp, Index, 1 )
Temp = Mid( Temp, 1, Index - 1 ) & Mid( Temp, Index + 1 )
loop
RandomString = TempCopy
Text.WriteLine(RandomString)
TempCopy=""
Rnd( )
next
Text.Close
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "notepad.exe passwords.txt"
Set WSHShell = Nothing

Также интересно:

0
Голосов пока нет

Комментарии

Зачем выкладывать нерабочий скрипт???

То скобки не хватает после For, то еще чего ... нафига так делать?

Ошибка может закраться, скрипты выложены не для тупого копирования, а для примера и самообучения

Оставить комментарий