Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: Пароль на лисе Excel - странная штука Добавлено: 21.01.09 14:21  

Автор вопроса:  AngryBadger
Здравствуйте, пытаясь распаролить лист excel, pass от которого я благополучно забыл, наткнулся на такую странную штуку(Возможно, странная она из-за моей неначитанности)
Посмотреть на неё можно на примере:

Sub Unprot()

Dim i As Integer
Dim pass As Integer

pass = 6824

Sheets(1).Protect pass

For i = 1 To 10000
    On Error Resume Next
        Sheets(1).Unprotect i
    If Sheets(1).ProtectContents = False Then
        MsgBox i
    Exit Sub
End If
Next i

End Sub



В чем, собственно, дело?

Ответить

  Ответы Всего ответов: 23  

Номер ответа: 1
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
 Профиль | | #1 Добавлено: 21.01.09 22:22
Н-да, придется листы защищать 64-значными паролями из символов в разном регистре, раз Миша научил всех взламывать более простые.
А пример этот пошли БГ, пусть у него голова болит.

Ответить

Номер ответа: 2
Автор ответа:
 AngryBadger



ICQ: 3329[нуль]7519 

Вопросов: 0
Ответов: 13
 Web-сайт: mfgang.ru
 Профиль | | #2
Добавлено: 21.01.09 23:00
Who is БГ???

Ответить

Номер ответа: 3
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
 Профиль | | #3 Добавлено: 21.01.09 23:04
типа начальник микрософта

Ответить

Номер ответа: 4
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #4 Добавлено: 21.01.09 23:05
Ты шутишь?
ИЛИ ДЕЙСТВИТЕЛЬНО НЕЗНАЕШЬ ДЯДЮ БИЛА?

Ответить

Номер ответа: 5
Автор ответа:
 AngryBadger



ICQ: 3329[нуль]7519 

Вопросов: 0
Ответов: 13
 Web-сайт: mfgang.ru
 Профиль | | #5
Добавлено: 21.01.09 23:07
Вашу, НАЛЕВО, вы бы мне еще на ASCI написали.))

Ответить

Номер ответа: 6
Автор ответа:
 AngryBadger



ICQ: 3329[нуль]7519 

Вопросов: 0
Ответов: 13
 Web-сайт: mfgang.ru
 Профиль | | #6
Добавлено: 21.01.09 23:08
Так что, кто нибудь вкурсе, почему 123=102, а 6824=2017??? и т.д. и т.п.

Ответить

Номер ответа: 7
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
 Профиль | | #7 Добавлено: 21.01.09 23:12
Михаил at home, я не знаю, потому и послал по нужному адресу.

Ответить

Номер ответа: 8
Автор ответа:
 AngryBadger



ICQ: 3329[нуль]7519 

Вопросов: 0
Ответов: 13
 Web-сайт: mfgang.ru
 Профиль | | #8
Добавлено: 21.01.09 23:48
А где mc-black, Nytrogene или GDK? Парни... ну))

Ответить

Номер ответа: 9
Автор ответа:
 Father



Вопросов: 0
Ответов: 159
 Профиль | | #9 Добавлено: 21.01.09 23:52
почему 123=102, а 6824=2017

В дополнение темы:
Sheets(1).Protect "abc"
Sheets(1).Unprotect "afa"
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_21040795.html

Ответить

Номер ответа: 10
Автор ответа:
 AngryBadger



ICQ: 3329[нуль]7519 

Вопросов: 0
Ответов: 13
 Web-сайт: mfgang.ru
 Профиль | | #10
Добавлено: 21.01.09 23:54
Сорри, Father'a забыл.

Ответить

Номер ответа: 11
Автор ответа:
 KiZ



Вопросов: 27
Ответов: 68
 Профиль | | #11 Добавлено: 26.01.09 18:22
Смешно, но методом тыка выяснил, как снять с листа пароль с помощью HexEditora. ))

Ответить

Номер ответа: 12
Автор ответа:
 AngryBadger



ICQ: 3329[нуль]7519 

Вопросов: 0
Ответов: 13
 Web-сайт: mfgang.ru
 Профиль | | #12
Добавлено: 26.01.09 19:17
Почему 123=102 так и не понял, но нашел на буржуйских форумах, что любой пароль Excel преобразовывается в 12 значную строку, 11 символов в верхнем регистре(ANSI 65 и 66), и один на выбор с 32 по 126. Вобщем вариантов не много. 2^11*98

Ответить

Номер ответа: 13
Автор ответа:
 AngryBadger



Вопросов: 33
Ответов: 245
 Профиль | | #13 Добавлено: 27.01.09 09:27
Посчитал вобщем)) 2^11*95

Ответить

Номер ответа: 14
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #14
Добавлено: 27.01.09 15:26
Наверняка не отвечу. На самом деле к одному и тому же паролю 6824 соответствует множество паролей-дублеров, в числе которых:
2017 2036 2055 2074 2093 2207 2226 2245 2264 2283 2416 2437 2454 2475 2492 2606 2627 2644 2665 2682 2815 2834 2857 2876 2891 4107 4126 4145 4164 4183 4317 4336 4355 4374 4393 4506 4527 4544 4565 4582 4716 4737 4754 4775 4792 4905 4924 4947 4966 4981 6007 6026 6045 6064 6083 6217 6236 6255 6274 6293 6406 6427 6444 6465 6482 6616 6637 6654 6675 6692 6805 6824 6847 6866 6881 8116 8137 8154 8175 8192 8306 8327 8344 8365 8382 8517 8536 8555 8574 8593 8707 8726 8745 8764 8783 8914 8935 8956 8977 8990


Проверяется просто:

  1. Sub Unprot()
  2.     Dim i As Integer
  3.     Dim pass As Integer
  4.     
  5.     pass = 6824
  6.     
  7.     Sheets(1).Protect pass
  8.     
  9.     For i = 1 To 10000
  10.         On Error Resume Next
  11.             Sheets(1).Unprotect i
  12.         If Sheets(1).ProtectContents = False Then
  13.             Debug.Print i
  14.             Sheets(1).Protect pass
  15.         End If
  16.     Next i
  17.  
  18. End Sub

Ответить

Номер ответа: 15
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #15
Добавлено: 27.01.09 15:39
Интересна сама по себе закономерность этого ряда, возможно даже получится вывести какую-то формулу последовательности. Вот бред!

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам