| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Генератор [D7, WinXP]
AFFONYA © (2006-09-30 13:11:00)Приветствую мастера и тех кто помладьше....
У меня такая проблема .... точнее вопрос ...
Есть допустим какието 3 переменные ...... допустим....
И они у нас равны :
а:='1234567890';
b:='qwertyuiopasdfghjklzxcvbnmЙЦУКЕННГШЩЗХЪЧАРПЛОРЛОфывцукекнггшщзщQWERTYUIOASDF GHJ';
c:='?>
Kolan (2006-09-30 20:40:00) [1]
> Desdechado © (30.09.06 20:23) [5]
Или из каждой в отдельности выбрать символы , составить из них строку, а потом её перемешать.
Desdechado (2006-09-30 20:23:00) [2]Орион © (30.09.06 13:46) [3]
Вообще говоря, вероятность "совмещенного" будет меньше единицы. Т.е. не всегда будут браться символы из каждой из 3 строк, поскольку они разной длины. (хотя и с одинаковой длиной тоже возможны неиспользования символов отдельных строк).
Логичнее было бы выбирать случайное количество символов (пропорциональное длине строки) из случайно выбранной строки.
AFFONYA (2006-09-30 13:52:00) [3]Спасибо за реализованный код бум развивать.....
Орион (2006-09-30 13:46:00) [4]
var
z, res: string;
i: Integer;
begin
z:=a+b+c;
SetLength(res, 6);
Randomize;
for i:=1 to 6 do res[i]=z[Random(Length(z))+1];
end;
AFFONYA (2006-09-30 13:36:00) [5]Нет надо чтоб попробывал сгенерить разные ваианты.....
Допустим ...
фFвАпП5"
Не более 6 символов...
ЗЫ.....
Percent (2006-09-30 13:14:00) [6]c:='?>
| |
