Une particularité des suites numériques permet de concevoir des algos vraiment simples génèrant des suites très homogènes en quelques instructions.
Ici, DU.Ambitus, représente évidement un DWORD Unsigned stipulant la largeur de l'itération souhaitée -> 0 à DU.Ambitus compris.
Vous pouvez, bien évidement, ajouter une base ou symétriser la valeur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 [DU.Rnd: D$ ?] Randomize: pushad Call 'KERNEL32.GetTickCount' mov D$DU.Rnd eax popad ret Proc Random: Argument @DU.Ambitus Uses eax, edx mov eax 00_0001_0010_0100_1000_0011_0110_1100_1111 | mul D$DU.Rnd mov D$DU.Rnd eax mul D@DU.Ambitus | mov eax edx EndP
Partager