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;