survvb Цитата: Слишком все надумано. Чтобы автоматизировать этот процесс, понадобится несколько тысячелетий.
Ты немного погорячился насчет тысячелетий
suomifinland Думаю насчет оплаты ты оже
А по существу
Делаешь файл
pass.vbs, со следующим содержимым
Код: Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Wscript.Shell")
Set pth=objFileSystem.GetFolder(".")
Set fls=pth.SubFolders
Randomize
Set cmd=objFileSystem.OpenTextFile("RARPass.Cmd",2,true,0)
Set psw=objFileSystem.OpenTextFile("Password.txt",2,true,0)
cmd.WriteLine("@Echo Off")
For Each fl in fls
strPass=""
For i=1 To 10
strPass=strPass+Chr(Int(88*Rnd+35))
Next
cmd.WriteLine("CD "+fl.Name)
cmd.WriteLine("RAR a ..\"+fl.Name+" -p"+chr(34)+strPass+chr(34)+" -s -r")
cmd.WriteLine("CD ..")
psw.WriteLine(Left(fl.Name+" ",32)+" Pass:"+strPass)
Next
cmd.close
psw.close