Seriennummer-Algorithmus

[Matze]

Bevior einer fragt, wo sakuras Formular ist.

Es befindet sich bissle weit links, im OI eifach Left auf 0 stellen.

[yankee]

Also ich würde das so machen:
Erst wandelst du alle Buchstaben in Zahlen um, in dem du 'ne FOR-Schleife mit 'ner if-Abfrage koppelst, so dass a in 1, b in 2 usw. umgewandelt wird. Dann errechnest du dir die Quersumme. So oft wie du willst (also von der Quersumme die Quersumme....) bis du eine einstellige Zahl hast und wenn eine bestimmte Zahl rauskommt, dann ist es richtig...

[negaH]

Yankee's Vorschlag ist simpel und eine Möglichkeit.
Allerdings hast du keinerlei konkrete Aussagen gemacht was DIR am Serial-Nummern-Algo. WICHTIG ist.

Sollte es zB. wichtig sein das nur DU korrekte Serialnummern erzeugen kannst, sozusagen einen Registrationsschlüssel-Algoithmus, dann wäre Yankee's Vorschlag eben absolut untauglich. Seine Idee taugt zb. für Nummern wie beim ISBN, BarCodes usw. Aber für einen Registrationskey ist der Algo. ideal für KeyGens geeignet.

Es ist also ein enorm breites Feld, wenn man nur nach irgendeinem Serialnummern Algo. fragt.

Gruß Hagen

[sakura]

Da vorhin die Zeit etwas knapp war, habe ich den Code jetzt noch einmal herangenommen, angepasst und dokumentiert, damit er leichter verstänglich ist.

Hinweis: Das ist eine der einfachsten und(!) bekanntesten Implementationen, sollte aber einen einfachen Start geben

......

[alanblack]

Hi,

ich weiß ja nich ob das jetzt zu diesem Thread passt (wenn nicht bitte einfach ignorieren)

also:

wenn es nur eine nummer ist die immer gleich (also ohne verschiedene SRN zu generieren) könnte man es doch so machen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var key: string;
begin
key := 'seriennummer';
If Edit1.Text >= key Then
ShowMessage('richtig')
else
ShowMessage('falsch');
end;

mfg alanblack

[TheMiller]

Hi,

danke für eure zahlreichen Antworten. Sollte schon ein bsp-Algo für Seriennummern sein! Ich werde mir dein dokumentiertes Bsp mal ansehen. Aber erst gehe ich schlafen!

Gute Nacht

[sakura]

Zitat von DJ-SPM:

Sollte schon ein bsp-Algo für Seriennummern sein!

Ist es Und Du kannst ca. 83% der Seriennummer selbst definieren und am Ende wieder extrahieren

......

[Pseudemys Nelsoni]

hoi,

hm sakura, ist das normal das wenn ich am anfang da "64862 | 56465 | 12354 | 54648" stehen habe und auf "erstellen" klicke, "648621-564653-123541-546480" rausbekomme? ich meine die zahl ist ja fast identisch mit der vom anfang, bis auf das eine zahl hinten angefügt wurde

[sakura]

Zitat von Pseudemys Nelsoni:

ich meine die zahl ist ja fast identisch mit der vom anfang, bis auf das eine zahl hinten angefügt wurde

Es geht ja auch um die einfache Generierung einer Seriennummer. Was Du jetzt daraus machst, daß ist vollständig Dir überlassen

In diesem Fall habe ich einfach die ersten fünf Stellen um eine 6. erweitert, welche prüft, ob die ersten korrekt sind. Damit kann man es auch wieder sehr einfach zurück auflösen.

Ich habe ein einfaches Beispiel geliefert und keine Wissenschaft daraus gemacht

Kurz: Es ist korrekt.

......

[Pseudemys Nelsoni]

Achso, hab ich wohl überlesen, sorry