[VBS] Скрипт для генерации паролей

Недавно камрад makc разместил на нашем форуме скрипт для генерации паролей. Не мог не перепостить для себя 😉 Скрипт под катом.


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
'Wscript.Sleep 1000
'FSO.DeleteFile("passwords.txt")

Содержание файла после генерации 10 паролей по 32 символа:

l>Xm}~phBqBO+.ar^*W.97u5N;%cADK^
T#*[o1pDO?yq5~s:@CV*BUB/1bU9BOA!
r@WKgV;b_nNA$:ll0*$}Rcc-rJ5rRZoT
N2(‘q1@<31N9+ul!RFMXSwl;@XB>Vtc%
I]u=’FW^Vx;z{,v4{Gkh+A]T{{+(dD!;
09H%#[U1=m3^au{C,.4bAG3@da}_1x3H
ID/w}fN&xt:OJI/Vt=’KZp4}}23d;NW&
+mB*<5iezdoeOK@<yu)%r&M{2Tdq<j_J
O*g>%-YkZ<19c/#?0as4W2+V9l>K%.gt
J/d’grTx4Sw’)t8l@(d_E5NG=rqx;kSF

Запись опубликована в рубрике IT с метками . Добавьте в закладки постоянную ссылку.

Один комментарий на «[VBS] Скрипт для генерации паролей»

  1. MPService говорит:

    Спасибо 🙂

Добавить комментарий

Войти с помощью: 

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Лимит времени истёк. Пожалуйста, перезагрузите CAPTCHA.