产生随机数的方法
各位大牛, 除了Random,
还有其他方法得到随机数吗?

Random 公式算出来的伪随机数很容易破解, 不敢用

0. 原理上不能破解
1. 随机的范围不需要很大(1~100就够用了)
2. 每个值原理上均匀分部


----------------
能想到的一个方法是
取CPU 的内部定时器的值求余

Function RndNum(qRang : word) : word;
var
Cnt : int64;
begin
if qRang < 1 then qRang := 1;
asm
rdtsc
mov DWORD PTR Cnt, EAX
mov DWORD PTR (Cnt+4), EDX
end;
Result := Cnt mod qRang;
end;

不知道这种方法是不是可行
是不是经的起推敲

[解决办法]
8错，有新意~~~
[解决办法]
方法太多了，^_^

hash你现在屏幕上的象素信息
得到主板检测的热量(如果你的主板有这种API的话)
哈希csdn上的滚动新闻标题
...