Программа жеребьевки для сетевой Civ5

[alxtskv]

насколько "честен" алгоритм генерации случайных чисел

Чем слушать оценки автора, лучше самостоятельно оценить насколько честен алгоритм этой программы.

Алгоритм распределения наций:

СписокНаций = ПолучитьСписокПомеченныхНаций();

RND.Init();

Для НомерИгрока = 1 По КоличествоИгроков Цикл

Если СписокНаций.Количество > 0 Тогда

НомерНацииВСписке = RND.GetCode(СписокНаций.Количество);
СтрокаРезультатаЖеребьевки = ИмяИгрокаПоНомеру(НомерИгрока) + " - " + ИмяНацииПоНомеру(НомерНацииВСписке);
Если НЕ РазрешеныОдинаковыеНации Тогда

СписокНаций.УдалитьЗначениеПоНомеру(НомерНацииВСписке);

КонецЕсли;

КонецЕсли;

КонецЦикла;

Код класса генератора случайных чисел:

class TRandom {

float StartCode;

public:

void Init(void);
int GetCode(int Zone);
float GetStartCode(void);

};

void TRandom::Init(void) {

SYSTEMTIME t;
GetLocalTime(&t);
StartCode=t.wMilliseconds*0.001;

}

int TRandom::GetCode(int Zone) {

StartCode=StartCode*37+1;
StartCode=StartCode-(int)StartCode;
return (int)(1+StartCode*Zone);

}

float TRandom::GetStartCode(void) {

return StartCode;

}

p.s.:

это типовой взмык на защите лабы по rnd автор поймет, полагаю

Честно говоря не знаком с таким взмыком.

Лабы по rnd никогда не защищал.