Genere un nom au hazard

Commenter

Contenu du snippet

Bonjour a tous!
Je me suis amusé un programmé une Procédure qui genere un nom au hazard!
invoke UnNom,10 <--- ici on genere un nom de 10lettre...
Ce programme necessite "rand.inc".
Allez,Bonne Prog!!!

Source / Exemple : 


.386

.model flat, stdcall

option casemap :none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib   
include \masm32\include\kernel32.inc
includelib \masm32\lib\kernel32.lib
include \masm32\include\rand.inc
UnNom      PROTO  :DWORD

.data

.data?
table db 256 dup(?)

.code

start:

invoke UnNom,10

invoke MessageBox,0,addr table,addr table,MB_OK

invoke UnNom,2
invoke MessageBox,0,addr table,addr table,MB_OK

invoke ExitProcess,0

UnNom PROC NBLETTRE:DWORD
dec NBLETTRE
NonNul:
INVOKE GetTickCount
INVOKE Randomize,eax
mov ecx,0
GenereNom:
INVOKE Rand,26   
add al,97
mov byte ptr[table+ecx],al
inc ecx
cmp ecx,NBLETTRE
jng GenereNom
cmp [table],0
jng NonNul
Finition:
mov byte ptr[table+ecx],0
mov al,byte ptr[table+ecx]
inc ecx
cmp al,0
jnz Finition
RET 
UnNom  ENDP

end start

A voir également

Du même auteur (Vv20oX)