Das ist eine super Idee, alcaeus!
Hm... aber dieses hash versteh och nicht ganz. Ich versteh darunter ( hab mir nen paar achen dazu angeschaut ) das man etwas verschlüsselt.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, Ziffer, Summe, MasterSumme, Laenge: Integer;
Key, Name, NameOrd: String;
KeyArray: Array[1..4] of String;
begin
Name := EditName.Text;
Laenge := Length(Name);
for i := 1 to Laenge do begin
Name[i] := upcase(Name[i]);
NameOrd := NameOrd + '.' + IntToSTr(Ord(Name[i])-64);
end;
EditName.Text := NameOrd;
Randomize;
Summe := 0;
MasterSumme := 0; stringlist
for j := 1 to 4 do begin
for i := 1 to 5 do begin
Ziffer := Random (10);
Summe := Summe + Ziffer;
Key := Key + IntToStr(Ziffer);
end;
KeyArray[j] := Key;
Key := '';
MasterSumme := MasterSumme + Summe;
end;
EditKey.Text := KeyArray[1] + '-' + KeyArray[2] + '-' + KeyArray[3] + '-' + KeyArray[4];
Label2.Caption := IntToStr(Summe);
Label4.Caption := IntToStr(MasterSumme);
ListBox1.Items.Add(EditKey.Text);
end;
Ist hier schon sowas wie dieses hash-Dingens drin?
Sry, aber ich versteh das echt nicht.
mfg
freak