8.х генератор паролей

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем altenas, 8 дек 2009.

0/5, Голосов: 0
  1. TopicStarter Overlay
    altenas
    Offline

    altenas Опытный в 1С

    Регистрация:
    1 окт 2008
    Сообщения:
    93
    Симпатии:
    0
    Баллы:
    26
    условия к паролю-8 знаков, все английские, маленькие,
    код:
    пароль="";
    ГСЧ=Новый ГенераторСлучайныхЧисел(255);
    Для сч=1 по 8 Цикл
    слч=ГСЧ.СлучайноеЧисло(97,122);
    Пароль=пароль+Символ(слч);
    КонецЦикла;

    все время отдает один и тот же пароль. Что не так? :unsure:
    altenas, 8 дек 2009
    #1
  2. Stack_G
    Offline

    Stack_G Опытный в 1С

    Регистрация:
    10 дек 2007
    Сообщения:
    786
    Симпатии:
    2
    Баллы:
    29
    обратите внимание на параметр в конструкторе. Из СП:
    Stack_G, 8 дек 2009
    #2
  3. TopicStarter Overlay
    altenas
    Offline

    altenas Опытный в 1С

    Регистрация:
    1 окт 2008
    Сообщения:
    93
    Симпатии:
    0
    Баллы:
    26
    ага, значит ГСЧ=Новый ГенераторСлучайныхЧисел();
    altenas, 8 дек 2009
    #3
  4. Stack_G
    Offline

    Stack_G Опытный в 1С

    Регистрация:
    10 дек 2007
    Сообщения:
    786
    Симпатии:
    2
    Баллы:
    29
    пробуйте, отпишитесь потом для сообщества :)
    Stack_G, 8 дек 2009
    #4
  5. lazy
    Offline

    lazy Модераторы Команда форума Модератор

    Регистрация:
    1 сен 2007
    Сообщения:
    2.127
    Симпатии:
    4
    Баллы:
    29
    Ех, опередили. А вот вариант для пущей секюритности дополняет случайными цифирями:
    Код:
    пароль="";
ГСЧ=Новый ГенераторСлучайныхЧисел();
Для сч=1 по 8 Цикл
слч=ГСЧ.СлучайноеЧисло(97,122);
Если ((слч % 2) = 0 ) Тогда
слч=ГСЧ.СлучайноеЧисло(0,9);
Пароль=пароль+слч;
Продолжить;
КонецЕсли;
Пароль=пароль+Символ(слч);
КонецЦикла;
Сообщить("Пароль: "+Пароль);
    lazy, 8 дек 2009
    #5
  6. TopicStarter Overlay
    altenas
    Offline

    altenas Опытный в 1С

    Регистрация:
    1 окт 2008
    Сообщения:
    93
    Симпатии:
    0
    Баллы:
    26
    если руками тыкать в кнопку "слепить пароль", то разные получаются,
    а вот потоковое создание полутора тысяч паролей (что и было цель) неудачно, получаются группки из 8 одинаковых паролей подряд. Нужно что-нибудь, что бы подтормаживало...
    altenas, 8 дек 2009
    #6
  7. lazy
    Offline

    lazy Модераторы Команда форума Модератор

    Регистрация:
    1 сен 2007
    Сообщения:
    2.127
    Симпатии:
    4
    Баллы:
    29
    Да, действительно. Ну, как правило генераторы случайных чисел построены на системном таймере видимо обращается к функции чаще, чем в раз секунду вот и результат. К сожалению нет у 1Ски возможности просто затормозить работу обработки на N секунд. Можно просто добавить цикл, который будет жрать процессорное время, чтобы подождать, пока сменится время на часах.

    Код:
    для счет = 1 по 200 цикл
для счет2 = 1 по 2000 цикл // просто так...
Нифига = ТекущаяДата();
КонецЦикла;

пароль="";
ГСЧ=Новый ГенераторСлучайныхЧисел();
Для сч=1 по 8 Цикл
слч=ГСЧ.СлучайноеЧисло(97,122);
Если ((слч % 3) = 0 ) Тогда
слч=ГСЧ.СлучайноеЧисло(0,9);
Пароль=пароль+слч;
Продолжить;
КонецЕсли;
Пароль=пароль+Символ(слч);
КонецЦикла;
Сообщить("Пароль: "+Пароль);
КонецЦикла;
    lazy, 8 дек 2009
    #7
  8. Stack_G
    Offline

    Stack_G Опытный в 1С

    Регистрация:
    10 дек 2007
    Сообщения:
    786
    Симпатии:
    2
    Баллы:
    29
    к слову, по поводу паузы (если нужно остановить на конкретное кол-во секунд):
    Код:
    ВремяСтарта = ТекущаяДата();
Длительность = 30;
Пока (ТекущаяДата() - ВремяСтарта) < Длительность Цикл
//Ожидаем
КонецЦикла;
    Stack_G, 8 дек 2009
    #8
Похожие темы
  1. KiberMath

    8.х генератор ИНН

    KiberMath, 22 фев 2009, в разделе: Общие вопросы "1С:Предприятие 8"
    Ответов:
    1
    Просмотров:
    2.034
    KiberMath
    22 фев 2009
  2. cjamz

    8.х Генератор отчетов

    cjamz, 28 окт 2010, в разделе: Отчеты и обработки для "1С:Предприятие 8"
    Ответов:
    5
    Просмотров:
    2.190
    cjamz
    28 окт 2010
  3. tana

    8.х ЗУП Смена паролей пользователей

    tana, 1 апр 2013, в разделе: "1С:Зарплата и управление персоналом ЗУП"
    Ответов:
    3
    Просмотров:
    1.876
    Неназываемый
    1 апр 2013
  4. Vitaly

    8.х Задание паролей всем пользователям

    Vitaly, 4 мар 2014, в разделе: Общие вопросы "1С:Предприятие 8"
    Ответов:
    7
    Просмотров:
    2.279
    nbIpKuH_BaH9I
    4 мар 2014
  5. Raideres

    8.х Ищю генератор QR кода

    Raideres, 3 июн 2016, в разделе: Отчеты и обработки для "1С:Предприятие 8"
    Ответов:
    2
    Просмотров:
    2.445
    Raideres
    15 июн 2016
Загрузка...