COMMENT GÉNÉRER UN MOT DE PASSE ALÉATOIRE EN ÉVITANT AU MIEUX LES DOUBLONS ?
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
1 mai 2004 à 09:43
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015 - 7 mai 2004 à 22:21
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015 - 7 mai 2004 à 22:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/22443-comment-generer-un-mot-de-passe-aleatoire-en-evitant-au-mieux-les-doublons
https://codes-sources.commentcamarche.net/source/22443-comment-generer-un-mot-de-passe-aleatoire-en-evitant-au-mieux-les-doublons
7 mai 2004 à 22:21
(sachant que l'on a 32 caractères avec 36 possibilités pour chacun)
c'est à dire 36 exposant 32. Ceci explique la quasi-impossibilité de doublon
7 mai 2004 à 22:14
) à faire une fonction sans déclaration de variable (pour m'amuser)
________________
Function CreateGUID:string;
begin
Randomize;
while length(result)<36 do
begin
case random(2) of
0:Result := Result +chr(random(10)+48);
1:Result := Result +chr(random(26)+65);
end;
case length(result) of
8,13,18,23:Result:=Result+'-';
end;
end;
end;
________________
sinon, il y avait aussi (par curiosité):
____________________
(avec ComObj, ActiveX, )
function CreateGuid: string;
var
ID: TGUID;
begin
Result := '';
if CoCreateGuid(ID) = S_OK then
Result := GUIDToString(ID);
end;
____________________
2 mai 2004 à 10:49
Je vous remercie tous les deux pour m'avoir éclairé à ce sujet.
ChapeauBonnet bas.
Inekman. 10/10
1 mai 2004 à 14:59
1 mai 2004 à 14:16
1 mai 2004 à 09:51
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Randomize;
// Exemple type CLID => FA1BA083-5B86-48F9-9DD3-CF3DA9EEC4F6
Edit1.Text := RandomPassword(8)+'-'+RandomPassword(4)+'-'+RandomPassword(4)+'-'+RandomPassword(4)+'-'+RandomPassword(12);
end;
au lieu de réinitialiser le générateur de nombres aléatoires à chaque série de caractères.
1 mai 2004 à 09:43
{ajouter SysUtils à la clause Uses}
procedure TForm1.Button1Click(Sender: TObject);
var
Guid: TGuid;
Password: string;
begin
//Création d'un identificateur unique
CreateGuid(Guid);
//Transformation en une chaine
Password := GuidToString(Guid);
//retire les accolades à chaque bout
Edit1.Text := Copy(Password, 2, Length(Password)-2);
end;
L'utilisation de ce code ne donnera jamais de code identique sur une même machine tout comme sur des milliers d'ordinateurs à travers le monde.
Le plus dur n'est pas de générer un mot de passe mais qu'il soit facile à retenir ! :o(