[решено] Составление списка паролей по алгоритму

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Составление списка паролей по алгоритму

Начну с самого начала:
Когда-то давно, примерно год или два назад, я зашифровал файлы в RAR архив, но спустя такое количество времени я забыл от него пароль. Сейчас хочу его открыть, но помню лишь слова, которые точно имеются в этом пароле. Единственная проблема – не помню их распорядок.
Немного полазив в интернете, я нашёл программу ARCHPR – она способна открыть архив разными методами, в том числе и из определённых фраз.
Вопрос следующий: может существует какой-нибудь сайт, или программа, которая способна поставить эти слова в разный порядок?

И много слов?

На WSH:

Скрытый текст

Код:

Option Explicit



Dim arrWords



arrWords = Array("A", "B", "C", "D", "E", "F")



PRGenerate 0



WScript.Quit 0

'=============================================================================



'=============================================================================

Sub PRGenerate(ByVal intGeneration)

        Dim i

        

        If intGeneration < UBound(arrWords) Then

                For i = intGeneration To UBound(arrWords)

                        SwapValues arrWords(intGeneration), arrWords(i)

                        PRGenerate intGeneration + 1

                        SwapValues arrWords(intGeneration), arrWords(i)

                Next

        Else

                For i = LBound(arrWords) To UBound(arrWords) - 1

                        WScript.StdOut.Write arrWords(i) & " "

                Next

                

                WScript.StdOut.WriteLine arrWords(UBound(arrWords))

        End If

End Sub

'=============================================================================



'=============================================================================

Sub SwapValues(Var1, Var2)

        Dim SomeVar

        

        SomeVar = Var1

        Var1 = Var2

        Var2 = SomeVar

End Sub

'=============================================================================

Исполнять под консольным хостом. При желании можете сразу перенаправить вывод в файл, наподобие:

Код:

cscript.exe //nologo "C:\Мои проекты\10\My Script.vbs" >"Out.txt"