Discussion :

[Bearimprint]

Existe-il un algo qui permette d'avoir un Cardinal unique à partir d'un string (qui ne dépassera pas 16 caractères)
Je pensais à un truc tout con comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.btn1Click(Sender: TObject);
var i: Integer;
  astr: string;
  Unique: Cardinal;
begin
astr:= edt1.Text; //edt1 est un Tedit.
 
//Debut du ...aheum... cryptage. 
for i:= 1 to Length(astr) do
  unique:= unique+ (i*255*ord(astr[i]));
 
btn1.caption:= IntToStr(Unique);
end;

Mais je me demande si cela me fournirais un Cardinal unique pour chaque mots (d'une longueur mini de 3 et max de 16).
En fait, Il me faudrait un algo comme le MD5 mais en beaucoup plus simple...

[tourlourou]

ça s'appelle le CRC32 : nombreuses implémentations disponibles
en fait, ce n'est pas rigoureusement unique, mais la proba est très faible que 2 strings aient le même CRC32

[Bearimprint]

Merci, c'est ce qu'il me fallait ^^