delphi的随机数函数有什么特征没有?

比如特征常数之类的.

例如VC的rand如下:
.text:00548CB9 E8 31 7D 00 00                      call    __getptd
.text:00548CB9
.text:00548CBE 8B 48 14                                mov     ecx, [eax+14h]
.text:00548CC1 69 C9 FD 43 03 00                 imul    ecx, 343FDh
.text:00548CC7 81 C1 C3 9E 26 00                 add     ecx, 269EC3h
.text:00548CCD 89 48 14                                mov     [eax+14h], ecx
.text:00548CD0 8B C1                                     mov     eax, ecx
.text:00548CD2 C1 E8 10                                shr     eax, 10h
.text:00548CD5 25 FF 7F 00 00                        and     eax, 7FFFh
.text:00548CDA C3                                          retn

感谢clide2000

delphi的random:
00402B4C  /$  53              push ebx
00402B4D  |.  31DB            xor ebx, ebx
00402B4F  |.  6993 08004500 0>imul edx, dword ptr ds:[ebx+450008], 8088405
00402B59  |.  42              inc edx
00402B5A  |.  8993 08004500   mov dword ptr ds:[ebx+450008], edx
00402B60  |.  F7E2            mul edx
00402B62  |.  89D0            mov eax, edx
00402B64  |.  5B              pop ebx
00402B65  \.  C3              retn

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课