Random на MASM32

[Ulex]

Объясните пожалуйста новичку принцип работы random_а. У меня есть
такой кусок кода, он вроде работает, но я не очень понимаю принцип.
Вообще я когда-то очень давно содрал его с какого-то примера и пользовался. А сейчас чего-то какие-то подозрения, а random ли это вообще.

.data
nrandom_seed	dd 12345678

.code
nseed 	proc uses ebx edi esi, \
	TheSeed:DWORD
	mov	eax, TheSeed
	mov	nrandom_seed, eax
	ret
nseed 	endp

nrandom	PROC uses ebx edi esi, \
	base:DWORD
	
	mov	eax, nrandom_seed
	xor	edx, edx
	mov	ecx, 127773
	div	ecx
	mov	ecx, eax
	mov	eax, 16807
	mul	edx
	mov	edx, ecx
	mov	ecx, eax
	mov	eax, 2836
	mul	edx
	sub	ecx, eax
	xor	edx, edx
	mov	eax, ecx
	mov	nrandom_seed, ecx
	div	base
	mov	eax, edx
	ret
nrandom ENDP

[Vedrus]

Это запутанная функция, но не рандом.
Попробуйте позапускать программу несколько раз и посмотрите на её реакцию. 100% всё будет повторяться.

Принцип действия рандома: нужно прицепиться к какой-нибудь случайной величине, и от неё плясать. Самая распространённая такая величина - время. Но время легко предсказать.

На компьютере можно получить только псевдослучайные числа, абсолютно случайных он дать не может, т.к. является цифровым устройством.

[Ulex]

А как можно проверить random или не_random (я в смысле алгоритма)
Просто позапускав программу я повторов не заметил

Это пятнашки на этом "random_e"

[Ulex]

Ну конечно-же, слона то я и не заметил....

invoke	GetSystemTime, offset sys_time
xor	eax, eax	
mov	ax, [sys_time.wMilliseconds]
xor	edx, edx	
mov	dx, [sys_time.wSecond]
shl	edx, 16
or	eax, edx
invoke	nseed, eax

Vedrus- Спасибо !!!

[rpy3uH]

Сообщение от Vedrus

Принцип действия рандома: нужно прицепиться к какой-нибудь случайной величине, и от неё плясать. Самая распространённая такая величина - время.

за такую величину можно брать значение полученное от функции GetTickCount или значение полученное от команды rdtsc.

[Ulex]

или значение полученное от команды rdtsc

А если я работаю не на нулевом уровне привелегий, как мне установить бит TSD ???

При компиляции -
Assembling: C:\main_assembler\15_ki_masm\15_kiM ASM.asm
C:\main_assembler\15_ki_masm\15_kiM ASM.asm(228) :
error A2085: instruction or register not accepted in current CPU mode

- это на команде rdtsc.

[Ulex]

А если я работаю не на нулевом уровне привелегий, как мне установить бит TSD ???

Всё, понял - компилить для процессора не ниже .586