Подскажите пожалуйста функцию генерации случайного числа/символа в 1С

//_____________________________________________________________________________
function random(n) export
   randSeed = _getPerformanceCounter() * 1103515245 + 12345;
   return ((randSeed / 65536) % 32768) % n+1;
endFunction

Книга знаний: Генератор случайных чисел в 1С

Это что за язык?

ты будешь удивлен: 1с :)

Аутор . Этот вопрос много раз задавали. А мне всегда было интересно Зачем рандом в 1С?

(3) Извините:

//_____________________________________________________________________________

Функция РандомХренов(н) Эспорт
   РандСид = _getPerformanceCounter() * 1103515245 + 12345;
   Возврат ((РандСид / 65536) % 32768) % н+1;
КонецФункции;

(4) Действительно удивлен :) Щас попробую

(1,6) Кто ж с Таймера случайное число считает???
_GetPerformanceCounter()
Нормально использовать только для Randomize() -
начальной установки RandSeed

(5) например по методу монтекарло считать число PI с заданой точностью :)
ну или например оклад рассчитывать...
" а назначем мы сотрудникам седня зарплату пофиг как в диапазоне от 1000 до 2000 у.е"

(0)(1)(6) может лучше через ком обращатся к функциям VBS и  использовать RND() ?

Решение:
1. т.к. генератор от avb и NS давал маленький разброс случайных чисел, пришлось поюзать немного другой алгоритм:


function Random()
   if emptyvalue(randSeed) = 1 then
       randSeed = _getperformancecounter();
   endif;                      
   
   randSeed=(a*randSeed+c)%m;
   return randSeed;
endfunction



Здесь:
a=1664525; c=1013904223; m=4294967296;
последняя переменная - 2 в 32-й степени, две другие - рекомендуемые для таких целей коэффициенты

Приводить к интервалу [0..A-1] лучше вот так -

цел(Randseed * A / m) - это лучше чем (RandSeed / A)

(10) А Зачем?

Ну все поняли - в более плохом вариенте есно не "/", а "%"

(12) похоже на настоящий RANDOM

(9) В точно такомже вопросе утор писал что ему НУЖНО выбирать случайные элементы из справочника . Но к сожалению тот аутор кудато потерялся.  

АУТОР если ты тут скажи ЗАЧЕМ???

(14) Ты настоящий рандом видел? :lol:
Погугли Random() в Делфи, Вариант (11) лучше делфевого Рандома.

(16) к сожалению окинув взглядом 2 выдаваемые последовательности чисел, оценить наскольо одна из них более настоящий RANDOM чем другая не имею навыков и знаний.

Пароли генерирую случайные

(16)вот здесь не могу с вами согласиться...

тьфу (19) читать как "вот здесь не могу с вами не согласиться"

(17) Ты посмотри ВИД Делвевого РАНДОМА.
Там Рандом -
   randSeed=(a*randSeed+c)%m;
   return randSeed;

m так-же равно 4294967296;
a a=1 для скорости.

И чем Рандом в (11) отличается от Делфевого?
Только тем что Делфевый чуть хуже для большей скорости.

В интервал Делфи укладывает Ровно так-же как рекомедую я -
((RandSeed*A) shr 32 )

(19) Гугли, и выкладывай Рандом из Делфи, или хочешь я его выложу?

(17)указанный в (11) алгоритм предложен комитетом ANSI-C

function sin(value,sc=0)
     sc=createObject("MSScriptControl.ScriptControl");
     sc.language="VBscript";
     return sc.eval("RND()");
endFunction

sin(value,sc=0) - переменные нафиг не нужны.. остались от функции возвращающей синус... :)

Вот стандартный Сишный Рандом:
http://www.vbnet.ru/forum/show.aspx?id=78900&page=3
Делфевый куда-то ссылку запсил... Но короче он такой как я привел выше, только чему равно "с" не помню.

Когда нужен более менее хороший  - всегда стандартные генераторы переписывают - примеры Зобрист (Шахматные программы), Покер (игровые боты)

(24,25) Ты не ответил на вопрос - чем этот генератор лучше предложенного в (11)

Извиняюсь - Сишный чуть дальше -
http://www.vbnet.ru/forum/show.aspx?id=78900&page=4

(27) яж ответил.. мой мозг не в состоянии оценить 2 последовательности числе на предмет их рандомности и сказать что одна последовательность более рандомная чем другая.
просто мне способ через вбс кажется проще :)
да и особого доверия к вычислениям типа ((а+б/с*д)=случайное_число) для получения "случайного" числа нет...
обосновать не могу но доверия нет :)

(29) хотя я могу искренне заблуждаться :)

(29,30) Не понимаю подхода. И в предложенном генераторе, и в делфевом коэффициенты предложены изначально Кнутом.
В Дефлфи были выбраны чуть худшие значения в угоду скорости.
Если не умеешь оценивать - зачем тогда что-то утверждать?
Оценка разных значений для конгруэнтных генераторов есть у Кнута.

(29) Ты читать умеешь? Такой генератор и в Си, и в Делфи.

И кто тебе сказал что в VBскрипте не конгруэнтный генератор? Вообще-то они практически везде конгруэнтные, так как считаются одними из лучших, и при этом самые быстрые.

Вот генератор Делфи:
RandSeed:=(RandSeed*08088405H+1) mod (2^32)  

Вот ассемблерный текст:
function RandInt(Range:Integer):Integer;register;
asm
{    ->EAX    Range  }
{    <-EAX    Result  }
       PUSH    EBX
       XOR    EBX, EBX
       IMUL    EDX,[EBX].RandSeed,08088405H
       INC    EDX
       MOV    [EBX].RandSeed,EDX
       MUL    EDX
       MOV    EAX,EDX
       POP    EBX
end;

function RandExt:Extended;
const
 two2neg32:double=((1.0/$10000)/$10000);// 2^-32
asm
       PUSH    EBX
       XOR    EBX, EBX
       IMUL    EDX,[EBX].RandSeed,08088405H
       INC    EDX
       MOV    [EBX].RandSeed,EDX
       FLD    [EBX].two2neg32
       PUSH    0
       PUSH    EDX
       FILD    qword ptr [ESP]
       ADD    ESP,8
       FMULP  ST(1), ST(0)
       POP    EBX
end;

(31)(32)(33)(34) в посте (10) обрати внимание на слово "может"
я не утверждаю что лучше
я просто спрашиваю...

просто как один из вариантов.

(35) Я читаю твой (14) пост.
И обясняю тебе - Рандом из (11) Это и есть настоящий рандом, и так-же как и все остальные стандартные генераторы в распространенных языках он использует линейный конгруэнтный метод и берет начальное значение с таймера. Точно так-же как и в Делфи, и в Си, и в Вбскрипте.
Ты же не используешь арифмитические опреции через VBS?
А то вдруг они в 1С ненастоящие, а там что ни на есть самые настоящие :)

Чего-то мне кажется, что использование random для паролей - не очень хороший метод - перебрать могут быстро.

(37) Твой моск схавал Ктулкху?

(37) видимо он хочет быстро подобрать рандомом пароль вида:

"3bRQW4npa5gMd7MBRAW0"

хотя мысль здравая, нада в обработки по управлению списком пользователей базы добавить генерилку паролей... а то самому надоедает придумывать пароли вида
123
321
итд...

Извиняюсь за шутку, но имхо, лучший рандом, это подбор чего угодно руками оператора... Удачных выходных! :)))))

(40) тото большинство паролей состоят из комбинаций
123
321
987
789
:)
а все он, оператор наподбирал....

(41) Это та самая непредсказуемая предсказуемость... Могут, когда не знают что делают, веть да? :))))

Алгоритмы... Пилять, озвучил юзеру требования к паролю и все дела. Нехай креативит. Нахрен рандомайзить? Напрер обязательное требование не менее 8 символов с использованием строчных, прописных и цифрей. Все равно ведь защита в 1с чисто условная, к сожалению.

Обычно проблема не в рандоме, не в пароле. Та и васче, хто нахрен будет подбирать пароли? Проблема обычно в отучении вешания стикера с паролем на монитор. Бо генери/не генери што хош, а коли стикер на монике висит, то на кой хрен все эти телодвижения - не понятно

(43)(44) пароли пользователей делаются не для того чтобы злобный "}{AsKeр" не проник в базу а для того чтбы для документов с "высоким уровнем ответсвенности" можно было гарантировать невмешательство в документ третьих лиц.
тоесть тобы тетя машаа-бухгалтер не заявляла - "а я ничего не знаю про эту дебиторскую задолженность а то что в документах значится мой пользователь ничего не значит ибо  у меня пароль 123 и все его знаю и вообще ничего я не знаю"

имхо.

+ чем строже пароль тем ответственнее пользователь в целом к системе подходит ...(наблюдения личные)

(45) Полностью согласен. Ты уточнил то, что как раз подразумевалось в указанных постах