|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Составление списка паролей по алгоритму |
|
[решено] Составление списка паролей по алгоритму
|
Новый участник Сообщения: 21 |
Профиль | Отправить PM | Цитировать Начну с самого начала:
Когда-то давно, примерно год или два назад, я зашифровал файлы в RAR архив, но спустя такое количество времени я забыл от него пароль. Сейчас хочу его открыть, но помню лишь слова, которые точно имеются в этом пароле. Единственная проблема – не помню их распорядок. Немного полазив в интернете, я нашёл программу ARCHPR – она способна открыть архив разными методами, в том числе и из определённых фраз. Вопрос следующий: может существует какой-нибудь сайт, или программа, которая способна поставить эти слова в разный порядок? |
|
Отправлено: 17:43, 24-08-2015 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать И много слов?
|
Отправлено: 18:46, 24-08-2015 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 21
|
Профиль | Отправить PM | Цитировать 6 слов.
|
Отправлено: 19:03, 24-08-2015 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать На 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 '============================================================================= Исполнять под консольным хостом. При желании можете сразу перенаправить вывод в файл, наподобие: |
Отправлено: 02:02, 25-08-2015 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - lu-факторизации по алгоритму дулитла | serjik161@vk | Программирование и базы данных | 1 | 13-10-2013 11:43 | |
CMD/BAT - [решено] Составление списка существуюих дисков + отсев дисков не имеющих ФС | komix | Скриптовые языки администрирования Windows | 16 | 23-12-2012 07:31 | |
CMD/BAT - Составление списка файлов и вставка | ck80 | Скриптовые языки администрирования Windows | 0 | 14-12-2012 13:43 | |
Теория - [решено] Необходима помощь в составлении списка положений или инструкции по разработке ПО | Mystic | Программирование и базы данных | 1 | 05-01-2009 14:07 | |
Составление e-mail пользователя | vitaliyboch | Microsoft Exchange Server | 2 | 26-03-2008 11:37 |
|