Duke Shadow Да, я писал на бэйсике и там нужно было такую процедуру делать.
Сейчас в криптографических программах применяют аппаратные генераторы случайных чисел, например "Соболь".
Может быть тогда сделать цикл, в котором будет выбираться не первое случайное число, а число, которое получится в результате какого-то расчёт на основании сложившегося списка ников.
Например можно взять код ASCII первой буквы из каждого ника, сложить эти 100 чисел и взять это случайное число.
То есть типа того:
for i = 1 to (<сумма 100 первых ASCII> )
$num = 1 + int rand(100);
next i
print $num;
суррогат бейсика получился
Добавлено: Хотя я сейчас уточнил и выяснил, что вроде как в современных языках, датчик случайных чисел автоматом привязан к дате и времени и поэтому отпадает вероятность во всяких дополнительных усложнений.
Так что можно оставить просто:
$num = 1 + int rand(100);
print $num;