Имя: Пароль:
1C
1С v8
Проверка сложности пароля
,
0 Ахиллес
 
16.02.12
14:38
Рисую в 1С собственную схему авторизации. От пользователя потребуется придумывать себе пароль самостоятельно. Есть что нибудь стандартное и готовое, что бы можно было бы дёрнуть и узнать пытается юзер создать простой пароль или нормальный. Что бы юзеры не вводили "123" или "йцукен".
1 Starhan
 
16.02.12
14:39
о_О

Проверяешь есть ли заглавная буква, еть ли цифра, больше ли 8знаков и усе. :)
2 Ненавижу 1С
 
гуру
16.02.12
14:40
3 jump if zero
 
16.02.12
14:44
ПолучитьПроверкуСложностиПаролейПользователей()
4 guitar_player
 
16.02.12
14:45
(3) +1)
5 guitar_player
 
16.02.12
14:46
+(4) только это не то)
6 Heckfy
 
16.02.12
14:47
ОФФ: А чем авторизация через домен не подходит?
7 Ахиллес
 
16.02.12
14:48
(3) Если сможешь прикрутить это к проверке текстовой переменной, то с меня пиво (самовывоз из Дефаулт-сити :-)
8 Fish
 
16.02.12
14:48
(6) Дык нетленка же :)))
9 Ахиллес
 
16.02.12
14:49
Это авторизация не на вход в программу. Типа электронной подписи документов для бедных :-)
10 Ахиллес
 
16.02.12
14:51
Тут главное не перемудрить и не сделать слишком сложно, иначе хомячки взбунтуются и откажутся этим пользоваться.
11 Heckfy
 
16.02.12
14:52
12 Tatitutu
 
16.02.12
14:52
(9) а я думал ты к Пятнице готовишься
даешь форму для всех пользователей (бухгалтерии)
ввести новый свой пароль
(народ простой и вводит свой любимый не простой пароль)
а этот список паролей уже твой (ведь он не в кэше хранится, а открытом виде)
и вперед в одноклассники, в контакт, в почту.... ты будешь знать ВСЕ и обо ВСЕХ !
13 Heckfy
 
16.02.12
14:53
Можно адаптировать под 1С http://www.sysman.ru/index.php?showtopic=13085
14 Heckfy
 
16.02.12
14:53
15 Irbis
 
16.02.12
14:53
(0) Балуешь ты зверей. Использовать надо генератор паролей. К (1) еще добавить спецсимвол (не букву и не цифру)
16 Ахиллес
 
16.02.12
15:09
(12) Я по молодости лет админил немного.
Приходит ко мне начальник и говорит, типа ты наверно можешь любую почту любых пользователей читать, видеть кто чем занимается.
Я ему отвечаю, ну садись рядом, посмотрим. Открываю наугад логи. А там:
-Привет падруга.
-Привет.
-Как дела?
-Нармально.
-Ну созвонимся вечером
-Пака!
Так, что читать чужие письма и аськи вовсе не так интересно :-) Точнее совсем не интересно. :-)

В общем идея понятна. Ничего сложного нет, просто, как всегда хотелось бы нахаляву и уже готового под 1С ;-)
17 BOZKURT
 
16.02.12
15:56
Гыыы:
<code>
Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   ОчиститьСообщения();
   Сообщить("Русские буквы в ВЕРХНЕМ регистре: " + СодержитСимволы(1, ПолеВвода1));
   Сообщить("Русские буквы в нижнем регистре: " + СодержитСимволы(2, ПолеВвода1));
   Сообщить("Латинские буквы в ВЕРХНЕМ регистре: " + СодержитСимволы(3, ПолеВвода1));
   Сообщить("Латинские буквы в нижнем регистре: " + СодержитСимволы(4, ПолеВвода1));
   Сообщить("Цифры: " + СодержитСимволы(5, ПолеВвода1));
   Сообщить("Специальные сиволы: " + СодержитСимволы(6, ПолеВвода1));
   
КонецПроцедуры

///////////////////////////////////////
/// ТипСимволов:
///   1 - Русские буквы в ВЕРХНЕМ регистре
///   2 - Русские буквы в нижнем регистре
///   3 - Латинские буквы в ВЕРХНЕМ регистре
///   4 - Латинские буквы в нижнем регистре
///   5 - Цифры
///   6 - Специальные сиволы
Функция СодержитСимволы(ТипСимволов, ПроверяемыйТекст)
   
   НаборОбязательныхСимволов_RU_U = "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ";
   НаборОбязательныхСимволов_RU_L = "йцукенгшщзхъфывапролджэячсмитьбю";
   НаборОбязательныхСимволов_EN_U = "QWERTYUIOPASDFGHJKLZXCVBNM";
   НаборОбязательныхСимволов_EN_L = "qwertyuiopasdfghjklzxcvbnm";
   НаборОбязательныхСимволов_DG = "0123456789";
   НаборОбязательныхСимволов_SC = "№!@#$%^&*()_+-|/\?.><,*;:`~";
   
   ЭталонныйНаборСимволов = "";
   Если ТипСимволов = 1 Тогда
       ЭталонныйНаборСимволов = НаборОбязательныхСимволов_RU_U;
   ИначеЕсли ТипСимволов = 2 Тогда
       ЭталонныйНаборСимволов = НаборОбязательныхСимволов_RU_L;
   ИначеЕсли ТипСимволов = 3 Тогда
       ЭталонныйНаборСимволов = НаборОбязательныхСимволов_EN_U;
   ИначеЕсли ТипСимволов = 4 Тогда
       ЭталонныйНаборСимволов = НаборОбязательныхСимволов_EN_L;
   ИначеЕсли ТипСимволов = 5 Тогда
       ЭталонныйНаборСимволов = НаборОбязательныхСимволов_DG;
   ИначеЕсли ТипСимволов = 6 Тогда
       ЭталонныйНаборСимволов = НаборОбязательныхСимволов_SC;
   КонецЕсли;
   
   содержит = Ложь;
   Если НЕ ПустаяСтрока(ЭталонныйНаборСимволов) Тогда
       Для а = 1 По СтрДлина(ПроверяемыйТекст) Цикл
           код1 = КодСимвола(Сред(ПроверяемыйТекст, а, 1));
           Для б = 1 По СтрДлина(ЭталонныйНаборСимволов) Цикл
               код2 = КодСимвола(Сред(ЭталонныйНаборСимволов, б, 1));
               Если код1 = код2 Тогда
                   содержит = Истина;
                   Прервать;
               КонецЕсли;
           КонецЦикла;
           Если содержит Тогда
               Прервать;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
   
   Возврат содержит;
   
КонецФункции
</code>
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший