Seriennummern funktionsweise

[Sharky]

Zitat von Bassel:

Ich wollte mal fragen, wie Seriennummern allgemein funktionieren.
Es sind ja meist mehrer Textfelder in denen man einen Namen und dararunter den
Key eingeben muss.

Hai Bassel,

eine Möglichkeit wäre zum Beispiel aus dem Namen + einen String von Dir einen MD5 Hash zu erzeugen.

Pseudocode:

Delphi-Quellcode:

function CalcSerial(aValue: string): string;
const
  salt = 'blubber*blubber';
begin
  result := MD5_Hash2String(MD5_HashForString(aValue + salt));
end;

procedure TDemo_Form.Button1Click(Sender: TObject);
var
  ser_number: string;
begin
  ser_number := CalcSerial('Sharky');
  ShowMessage(ser_number);
end;

In diesem Fall habe ich die MD5-Unit aus diesem Betrag der Code-Library verwendet.

Der "salt" sollte natürlich nicht im Klartext im Code stehen