Genere un nom au hazard

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 359 fois - Téléchargée 26 fois

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

Ajouter un commentaire

Commentaire

vincent2795
Messages postés
41
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
4 octobre 2012
-
Slt, add me,
envoi moi le rank.inc stp.
merci
«(.·°¯`·-> OwNeD bY `p0m1?! <-·Ž¯°·.)»

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.