Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Windows [игнор отключен] [закрыт для гостей] / Ищу прогу... / 6 сообщений из 6, страница 1 из 1
30.03.2007, 14:35:36
    #34427627
weber
weber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ищу прогу...
Был бы неплохой раздельчик по этой теме и всем бы пригодился.
Ну так к делу.
Возникла необходимость в проге на генерирование паролей. Можно сварганить скрипт можно куча всего но зачем изобретать велосипед. Так что кто какой пользуется поделитесь и на сколько знаков выдаёт. Ежели будет линк то не обижусь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 15:50:57
    #34427940
rrrrrrrrrr
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ищу прогу...
Пять минут работы...
Под Charset пишете набор символов, из которых генерить пароли
Под Length - длина пароля (от 2 до сколько нужно)
Под username пишите столбиком имена пользователей или просто любые символы

Принцип работы: считывается набор символов и из него наугад набирается строка длиной 12 символов, вписывается в ячейку напротив имени пользователя. Работа прекращается, когда достигается первая пустая ячейка столбца пользователей.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit
Sub GenerateMyPasswords()
    Dim my_index, my_cindex, my_random As Integer
    Dim my_pwlstr As String
    Randomize
    my_index =  6 
    While Sheets("1").Cells(my_index,  1 ).Value <> ""
        my_pwlstr = ""
        For my_cindex =  1  To CInt(Sheets("1").Cells( 4 ,  1 ).Value)
            my_random = Round(Rnd * Len(CStr(Sheets("1").Cells( 2 ,  1 ).Value)),  0 )
            While my_random =  0 
                my_random = Round(Rnd * Len(CStr(Sheets("1").Cells( 2 ,  1 ).Value)),  0 )
            Wend
            my_pwlstr = my_pwlstr + Mid(CStr(Sheets("1").Cells( 2 ,  1 ).Value), my_random,  1 )
        Next my_cindex
        Sheets("1").Cells(my_index,  2 ).Value = CStr(my_pwlstr)
        my_index = my_index +  1 
    Wend
End Sub
Проверку на уникальность сделать поленился :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 15:51:27
    #34427945
rrrrrrrrrr
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ищу прогу...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 16:04:57
    #34427988
rrrrrrrrrr
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ищу прогу...
Кстати, сам такими вещами не пользуюсь. Не так давно (полтора года назад) сделал клиент-серверную системку:

1) пользователю в свойствах учетки запрещена смена пароля.
2) на контроллере домена запущен сервис pwlserv.exe из-под учетки админа домена
3) в логон-скрипте пользователей висит запуск клиента pwlman.exe, который при запуске считывает значение ini-файл на сервере и сравнивает его с таким же в реестре. Если совпали - выгружается, если нет - развертываемся на весь экран и не даем работать, пока не сменят пароль.
4) пользователь читает инструкцию, ставит галку "прочел-согласен", потом вбивает свой старый пароль, новый, отправляет запрос на сервер. Данные шифруются, но примитивно - строкой.
5) программа-сервер получает данные, проверяет старый пароль с помощью LogonUser, затем анализирует состав пароля (минимум 1 буква, минимум 1 цифра, минимум 1 спецсимвол, минимальная длина 8 символов и не встречается в логе паролей), и либо отсылает мотив отказа, либо меняет пароль учетки AD и рапортует клиенту. Пароль пишется в лог.
6) По нажатии ОК в сообщении о смене пароля происходит логофф пользователя.

В чем преимущества:
- когда надо сменить пароль, я просто меняю значение параметра в ini-файле на любое другое. При следующей загрузке пользователям просто некуда деться.
- они сами придумывают пароли (не надо записывать), причем они отвечают моим требованиям
- они не могут подсунуть старый пароль как новый
- у меня есть все их пароли
и т.д.

В чем минусы:
- шифрование слабое
- надо разрешить логон пользователей домена на контроллер (т.е. интерактивный вход на контроллер). В принципе, не страшно, т.к. он все равно в моей комнате
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 16:08:00
    #34427998
weber
weber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ищу прогу...
rrrrrrrr сенкс за скриптик. Думал прогу использовать теперь мне стрельнуло вот это вот закомпоновать на странички клиента и пусть себе и генерят как хотят автоматом. Это уже сделаю сам. Выкину лиш знаки которые не очень удобны типа скобок и подобных вещей. Интересно то что Excel мне показал ваши русские надписи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 16:14:10
    #34428013
weber
weber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ищу прогу...
Да меня задолбали то на мыло пароль то на админку страниц на MySQL MSSQL, FTP и сиди выдумывай. Сейчас делаю второй сервак и перевожу всех юзверей с их мылом страницами и т.д. вот решил и заодно что-то на пароли а вот что пока рою в тырнете т.к. надо себе облегчить до минимума операций.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Windows [игнор отключен] [закрыт для гостей] / Ищу прогу... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 309ms
Закрыть
start [/forum/topic.php?fid=26&tablet=1&tid=1507739]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 199ms
total:  309ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]