[Creat0R]

есть ли скрытый смысл в использование Dim? »

Какой скрытый смысл? переменные уже объявлены в локальном скупе, а Dim позволяет присвоить значение нескольким переменным сразу, при этом не меняя локального скупа.

[FlatX007]

Так оно работает и без Local $iMin_Rndm = 33, $iMax_Rndm = 255

А если убрать строчку If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122 - то получается гинератор крокозябр просто несталкивался с функцией Chr на практике - вот и задаю глупые вопросы.

[proxy]

при этом не меняя локального скупа. »

вот эотго не понимаю.

чем это:

Local $iMin_Rndm = 33, $iMax_Rndm = 255 If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122

т.е. при этом, не будут объявляться новые переменные, т.к. будет определенно, что они уже существуют и им просто будет присвоенно новое значение?

будет отличаться от этого:

Local $iMin_Rndm = 33, $iMax_Rndm = 255 If $iOnly_ASCII Then Local $iMin_Rndm = 97, $iMax_Rndm = 122

а в этом случае, невзирая, что эти переменные уже существуют, они снова будут объявленны и им будет присвоенно соотсвтевующее значение...

так?

[Creat0R]

Так оно работает и без Local $iMin_Rndm = 33, $iMax_Rndm = 255 »

Ну попробуй вместо 1 поставить 0 при вызове функции (последний параметр)

если убрать строчку If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122 - то получается гинератор крокозябр »

Не надо ничего убирать, это можно сделать и через параметр $iOnly_ASCII = 0. Если он будет равен 1, то будет гинерировать только ASCII символы.

чем это: Цитата:Local $iMin_Rndm = 33, $iMax_Rndm = 255 If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122 будет отличаться от этого: Цитата:Local $iMin_Rndm = 33, $iMax_Rndm = 255 If $iOnly_ASCII Then Local $iMin_Rndm = 97, $iMax_Rndm = 122 ? »

Ничем, оба варианта работают одинаково. Я вот другого не понимаю, зачем придираться к этим мелочам, не в этом же суть функции.

[proxy]

Ничем, оба варианта работают одинаково. Я вот другого не понимаю, зачем придираться к этим мелочам, не в этом же суть функции. »

нееее. я не придираюсь - я изучаю, мнеж не понятно. думал что в этом есть реально смысл, который я непомниаю. я бы Local написал бы без задней мысли...а тут Dim - вот и удивился ....)

[Creat0R]

proxy,

Из справки:

The difference between Dim, Local and Global is the scope in which they are created: Dim = Local scope if the variable name doesn't already exist globally (in which case it reuses the global variable!) Global = Forces creation of the variable in the Global scope Local = Forces creation of the variable in the Local/Function scope You should use Local or Global, instead of Dim, to explicitly state which scope is desired for a variable/constant/array.

Т.е в нашем случае, оно не играет особой роли, вот если бы эти переменные были заранее объявлены глобально, то Local в функции создал бы точно такие переменные с локальным скупом, а Dim оставил бы скуп как есть, только переназначил бы значения.

[amel27]

Где логика »

ладно, проехали...

Максимально случайным будет только первый вызов Random(), случайность всех последующих вызовов будет существенно ниже – реальная величина зависит от применяемого алгоритма генератора СЧ. Т.к. максимально целое случайное число является 31-разрядным, длина максимально-случайного слова вычисляется формулой 31*ln2/lnN, где N – кол-во букв в алфавите. Для 33 русских букв одного регистра - это слово из 6 букв. Т.е. для максимально случайной фразы мы должны генерировать не по одной букве, а по 6-символьным последовальностям, при этом каждые 5 битов числа будут кодировать одну букву.

P.S. вся эта “нудь” имеет смысл только при решении задач типа генераторов паролей, чтобы точно знать РЕАЛЬНУЮ сложность сгенерированного пароля

[FlatX007]

Нащёт моего примера в шапке я и так знаю

Максимально случайным будет только первый вызов Random(), »

- поэтому и попросил помочь. :Р а из формулы я ничего непонял.

[amel27]

FlatX007, можно уменьшить кол-во вызовов Random():

Код:

$p = _GetRandomString(10)
$e = @extended

ConsoleWrite("Password: "& $p &@CRLF)
ConsoleWrite("Skipped : "& $e &" chars"&@CRLF)

Func _GetRandomString($iLen, $sABC = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_@")
    Local $iABC = StringLen($sABC), $sOut = ""
    Local $iBit = Int(Log($iABC)/Log(2)) ; бит на символ
    Local $iMsk = BitShift(1,-$iBit) -1  ; битовая маска
    Local $iChr = Int(31/$iBit)          ; символов на одно случайное число

        While 1
        $iRnd = Random(1, 0x7FFFFFFF, 1)
        For $i=1 To $iChr
            $sOut &= StringMid($sABC, BitAND($iRnd, $iMsk)+1, 1)
            If StringLen($sOut)>=$iLen Then Return SetError(0, $iABC-$iMsk-1,$sOut)
            $iRnd = BitShift($iRnd, $iBit)
        Next
    WEnd
EndFunc

ADD: кол-во символов должно быть равно степени двойки (32, 64,...), иначе строка обрезается до ближайшей такой

[tweakos]

FlatX007, Есть способ гораздо проще:

Код:

$1=random("65","95")
$2=random("65","95")
$3=random("65","95")
$4=random("65","95")
$5=random("65","95");здесь записываем необходимое кол-во рандомных цифр
$result=(chr($1)&chr($2)&chr($3)&chr($4)&chr($5));обьеденяем фразу ,посредством chr переводим цифру в букву