[Creat0R]

Можно попробовать так »

Сорри, не удержался.

Это долго...

Для начала вот функция гинерирующая строку от 6 до 20 случайных символов:

Код:

$sRandomString = _StringGetRandomString(6, 20)

MsgBox(64, "Result", $sRandomString)

Func _StringGetRandomString($iMin=1, $iMax=1)
    If $iMax < $iMin Then Return SetError(1, 0, 0)

    Local $iRandom
    Local $sRet_Str = ''

    For $i = 1 To Random($iMin, $iMax, 1)
        $sRet_Str &= Chr(Random(33, 255, 1))
    Next

    Return $sRet_Str
EndFunc