Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Комбинации 5(6)-значных чисел
 
#1
23.02.2016 13:29:01
Здравствуйте друзья. хочу сразу предупредить, что мои познания в области excel крайне малы. поэтому очень надеюсь на вашу помощь.

Не так давно установил на телефоне пароль, который затем благополучно забыл. Рассчитываю, что кто-нибудь поможет с формулой, чтобы построить комбинации цифр. надеюсь вспомнить пароль путем простого перебора комбинации.

Исходные данные следующие. В пароле были цифры 9 8 7 1 0. Пароль точно начинался на 9. всего было 5 или 6 цифр. какие-то цифры могли повторяться.

Заранее всем спасибо за помощь!
 
 
 
#2
23.02.2016 13:36:56
=90000+СТРОКА(A1)
Копировать ячейку с формулой на 10000 строк

Вариант2. Вписать в А1 90000.
В А2:
=A1+1
Ячейку с формулой копировать ниже.

Так же и для 6-значных - 900000 и далее.
 
 
 
#3
23.02.2016 13:40:57
Цитата
Unskilled написал:надеюсь вспомнить пароль путем простого перебора комбинации.
Цитата
vikttur написал: Копировать ячейку с формулой на 10000 строк
пальцы сотрете  :)
Лень двигатель прогресса, доказано!!!
 
 
 
#4
23.02.2016 13:42:12
10 000+100 000 :)
 
 
 
#5
23.02.2016 13:55:48
Для пятизначного варианта -
Код
Dim S_Msg As String

Sub main()
  S_Msg = ""
  Pn "8710"
  MsgBox S_Msg
End Sub
 
Public Sub Pn(S As String, Optional SS As String = "")
Dim i As Integer
  If Len(S) = 1 Then
    S_Msg = S_Msg & "9" & SS & S & vbLf
  Else
    For i = 1 To Len(S)
      Pn Left$(S, i - 1) & Mid$(S, i + 1), SS & Mid$(S, i, 1)
    Next
  End If
End Sub
 
 
 
#6
23.02.2016 14:05:26
Для всех остальных -
Код
Sub main()
  Pn "8710"
  Pn "98710"
  Pn "88710"
  Pn "87710"
  Pn "87110"
  Pn "87100"
End Sub
 
Public Sub Pn(S As String, Optional SS As String = "")
Dim i As Integer
  If Len(S) = 1 Then
    Debug.Print "9" & SS & S
  Else
    For i = 1 To Len(S)
      Pn Left$(S, i - 1) & Mid$(S, i + 1), SS & Mid$(S, i, 1)
    Next
  End If
End Sub
Только в окно Immediate всё не влезет, придумайте другой вариант вывода результата.
 
 
 
#7
23.02.2016 14:48:50
Цитата
Unskilled написал: Не так давно установил на телефоне пароль, который затем благополучно забыл.
Проще найти информацию как сбросить настройки (вместе с паролем) на заводские для Вашей модели телефона. (у меня сын давеча на свой телефон пароль, какого-то лешего, поставил - сбросили)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#8
23.02.2016 15:33:31
кнопка цитирования не для ответа [МОДЕРАТОР]

Апострофф, спасибо большое. но не подскажете как еще можно вывести результаты? я в этом абсолютно ничего не понимаю
 
 
 
#9
23.02.2016 15:54:41
Цитата
Unskilled написал: как еще можно вывести результаты?
На активный лист, например -
Код
dim r&

Sub main()
  Pn "8710"
  Pn "98710"
  Pn "88710"
  Pn "87710"
  Pn "87110"
  Pn "87100"
End Sub
  
Public Sub Pn(S As String, Optional SS As String = "")
Dim i As Integer
  If Len(S) = 1 Then
    r=r+1
    cells(r,1)="9" & SS & S
    'Debug.Print "9" & SS & S
  Else
    For i = 1 To Len(S)
      Pn Left$(S, i - 1) & Mid$(S, i + 1), SS & Mid$(S, i, 1)
    Next
  End If
End Sub
Изменено: Апострофф - 23.02.2016 16:55:08
 
 
 
#10
23.02.2016 16:38:02
Апострофф,извините, но я действительно абсолютно не понимаю как это сделать. вы не можете выложить файл?
 
 
 
#11
23.02.2016 16:46:42
файл.
 
 
 
Страницы: 1
Наверх