Войти

Показать полную графическую версию : [решено] Составление списка паролей по алгоритму


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

Iska
24-08-2015, 18:46
И много слов?

MultiGramen
24-08-2015, 19:03
6 слов.

Iska
25-08-2015, 02:02
На 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"




© OSzone.net 2001-2012