1С 7.x : Использование генератора случайных чисел - Random

 НачальноеЧисло = 167;

ГСЧ = Новый ГенераторСлучайныхЧисел(НачальноеЧисло);

СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0, 1000);   

 ГСЧ = Новый ГенераторСлучайныхЧисел();

СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0, 1000);   

 Функция Рандом() Экспорт

UID=Новый УникальныйИдентификатор();

UID = СтрЗаменить(UID,"-","");

Значение = "";

Для Н=1 По СтрДлина(UID) Цикл

Симв = Сред(UID,Н,1);

Значение = Значение+Прав(КодСимвола(Симв),1);

КонецЦикла;

Возврат Число("0."+Значение);

КонецФункции   

 Функция Ранд(Парам=0)

    Если Парам<>0 Тогда

        Случай=Парам;

    КонецЕсли;

    Если Число(Случай)=0 Тогда

        Случай=Число(СтрЗаменить(""+ТекущееВремя(),":",""));

        Случай=(16807*Случай)%2147483647;

    КонецЕсли;

    Случай=(16807*Случай)%2147483647;

    Случай=макс(Случай,-Случай);

    Возврат(Случай/2147483647);

КонецФункции   

 ремоте=СоздатьОбъект("rcbdyctl.setting");

Сообщить(ремоте.CreatePassword);