9
Code-Generator
Seriennummern, Model-Nummern, Codes, usw. hat schon jeder mal gesehen. Ich möchte mit einer kleinen Funktion veranschaulichen wie man so ein "Code" selbst generieren kann.
Folgende Funktion generiert ein Quadrupel bestehend aus Zahlen von 0-9 und Buchstaben von A-Z. Dabei ergeben sich dadurch insgesammt 1'336'336 (34^4) Möglichkeiten.
Ausgabe:
...
AA5E
DRTX
1646
2R0O
...
Diese Funktion generiert einfach vor sich hin ohne zu prüfen ob ein Quadrupel bereits existiert. Eine Möglichkeit wäre alle ergebnisse in eine Datenbank zu speichern und zu prüfen ob dieser Wert bereits existiert.
Viel spass damit! Und wenn sich ein Fehler eingeschlichen hat oder jemandem etwas unklar ist einfach melden.
Gruss
Ccamel
Ausgabe:
...
AA5E
DRTX
1646
2R0O
...
Diese Funktion generiert einfach vor sich hin ohne zu prüfen ob ein Quadrupel bereits existiert. Eine Möglichkeit wäre alle ergebnisse in eine Datenbank zu speichern und zu prüfen ob dieser Wert bereits existiert.
<?php
function generatorQuadrupel(){
$quadrupel = array(); //--- Define Array
$anzahl = 4; //--- 4 Stellen (Quadrupel)
for($x = 0; $x < $anzahl; $x++){
$i = mt_rand(0, 1);
if($i < 1){
$single = chr(mt_rand(65, 90)); //--- Zufalls ASCII von A-Z
}else{
$single = mt_rand(0, 9); //--- Zufallszahl von 0-9
}
$quadrupel[$x] = $single; //--- Das Array wird gefüllt
}
return implode("", $quadrupel);
}
?>Viel spass damit! Und wenn sich ein Fehler eingeschlichen hat oder jemandem etwas unklar ist einfach melden.
Gruss
Ccamel
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 122945
Url: https://administrator.de/contentid/122945
Printed on: May 2, 2024 at 13:05 o'clock
9 Comments
Latest comment
Und Wie muss ich den Code ändern, wenn ich den kompletten American Standard Code for Information Icnterchenge(ASCII)-Zeichensatz haben will???
Hoi,
bin zwar kein PHp programmierer und kann das jetzt nicht austesten. Aber die Zeile:
$single = chr(mt_rand(65, 90)); --- Zufalls ASCII von A-Z
musst du wohl so abändern:
$single = chr(mt_rand(0, 127));--- Zufalls ASCII
Gruß
Xearo
bin zwar kein PHp programmierer und kann das jetzt nicht austesten. Aber die Zeile:
$single = chr(mt_rand(65, 90)); --- Zufalls ASCII von A-Z
musst du wohl so abändern:
$single = chr(mt_rand(0, 127));--- Zufalls ASCII
Gruß
Xearo
Morgen,
LordXenaro liegt mit seiner Vermutung richtig. Dazu noch ein Link: http://www.asciitable.com/
Gruss
Ccamel
LordXenaro liegt mit seiner Vermutung richtig. Dazu noch ein Link: http://www.asciitable.com/
Gruss
Ccamel
Im Bereich von 0 - 31 liegen die nicht druckbaren Steuerzeichen. Ob das wirklich sinnvoll ist .....
Abgesehen davon: Die paar Codezeilen als Anleitung anstatt als Tipp zu veröffentlichen, ist schon dreist.
Abgesehen davon: Die paar Codezeilen als Anleitung anstatt als Tipp zu veröffentlichen, ist schon dreist.
Schön knapp aber aufs Wesentliche bezogen.
X
X
Moin,
Zufallszahlen an einem Computer erzeugen geht ja eigentlich nicht. Es sind immer Pseudozufallszahlen.
Du gehst immer das Risko ein, dass Deine Routinen oder die des OS fehlerhaft sind und damit in einer endlosschleife hängen (weil schon vorhanden).
Besser wäre ein "System".
Z.B. sehen unsere Rechnungen so aus 200910090001. Also Datum rückwerts mit einem Zähler.
Letzten Wert auslesen, Datum überprüfen, Zähler erhöhen.
Zusätzlich kann man anhand der SN dann noch das Datum erkennen.
Stefan
Zufallszahlen an einem Computer erzeugen geht ja eigentlich nicht. Es sind immer Pseudozufallszahlen.
Du gehst immer das Risko ein, dass Deine Routinen oder die des OS fehlerhaft sind und damit in einer endlosschleife hängen (weil schon vorhanden).
Besser wäre ein "System".
Z.B. sehen unsere Rechnungen so aus 200910090001. Also Datum rückwerts mit einem Zähler.
Letzten Wert auslesen, Datum überprüfen, Zähler erhöhen.
Zusätzlich kann man anhand der SN dann noch das Datum erkennen.
Stefan
Salü
"In der Berechenbarkeitstheorie wird alles das als pseudozufällig bezeichnet, was durch den Betrachter nicht von wirklicher Zufälligkeit unterschieden werden kann." - Wikipedia
Hast Du das Script überhaupt mal getestet? Bei mir nie hängen geblieben wegen "weil schon vorhanden". Alles eine Sache der Handhabung.
Gruss
Ccamel
Zufallszahlen an einem Computer erzeugen geht ja eigentlich nicht. Es sind immer Pseudozufallszahlen.
"In der Berechenbarkeitstheorie wird alles das als pseudozufällig bezeichnet, was durch den Betrachter nicht von wirklicher Zufälligkeit unterschieden werden kann." - Wikipedia
Du gehst immer das Risko ein, dass Deine Routinen oder die des OS fehlerhaft sind und damit in einer endlosschleife hängen (weil schon vorhanden).
Hast Du das Script überhaupt mal getestet? Bei mir nie hängen geblieben wegen "weil schon vorhanden". Alles eine Sache der Handhabung.
Besser wäre ein "System"...
Du erzählst was von Rechnungen. Find ich super Dein System. Ich aber erzähl was von "Codes" wie man sie bei Captchas oder sonstwo findet.Gruss
Ccamel
Hallo zusammen,
hier auch noch ein kleiner Code-Generator von mir...
Beinhaltet 0-9, a-z, A-Z und einen ganzen Satz an Sonderzeichen!
Die Länge ist begrenzt auf 1024 Zeichen. Damit kommt man in der Regel aus ;)
VBS-Code:
Viel Spaß damit!
Gruß Sam
hier auch noch ein kleiner Code-Generator von mir...
Beinhaltet 0-9, a-z, A-Z und einen ganzen Satz an Sonderzeichen!
Die Länge ist begrenzt auf 1024 Zeichen. Damit kommt man in der Regel aus ;)
VBS-Code:
Option Explicit
'Deklaration der Variablen
Dim index 'Zähler für die FOR-NEXT-Schleife
Dim index1 'Abfrage ob DO-Schleife wiederholt werden soll
Dim index2 'Erstelltes Zufallszeichen
Dim index3 : index3 = "" 'Länge des Keys
dim index4 : index4 = 1024 'Maximale Länge des Keys
Dim min : min = 33 'Minimalindex für ASCII-Zeichen
Dim max : max = 126 'Maximalindex für ASCII-Zeichen
Dim key 'Key
'Deklaration der Objekte
Dim objSHELL : SET objSHELL = createobject("wscript.shell")
'Zufallswert für Start ermitteln
Randomize
'Key erstellen
Do
index3 = InputBox("Bitte geben Sie die Länge des gewünschten Keys an...", "KeyGen")
If index3 = Empty then WScript.Quit
If IsNumeric(index3) Then
if cint(index3) > index4 then
msgbox "Die gewünschte Länge des Keys ist zu groß!" & vbcr & "Es werden maximal " & index4 & " Zeichen unterstützt.",vbokonly+vbexclamation,"KeyGen"
index1 = vbNo
else
Do
key = ""
For index = 1 To index3
index2 = Int((max - min + 1) * Rnd + min)
key = key & Chr(index2)
Next
index1 = objSHELL.popup("Ihr generierter Schlüssel mit einer Länge von " & index3 & " Zeichen:" & vbCr & vbCr & key & vbCr & vbCr & "Zufrieden?",,"KeyGen",vbyesno + vbexclamation)
Loop While index1 = vbNo
end if
else
MsgBox "Sie haben keine Zahl eingegeben!", vbCritical, "KeyGen"
index1 = vbNo
End If
Loop While index1 = vbNo
'Key in Inputbox ausgeben (damit er kopiert werden kann!)
InputBox "Zum kopieren einfach 'Strg+C' oder 'rechtsklick - Kopieren' wählen","KeyGen",key Gruß Sam
Und hier noch die 1 Zeilen Variante in PHP: ;)
Aufruf dann via "echo keyGen()" oder bei anderer Länge als 4 "echo keyGen(10)"
function keyGen($l=4){while(strlen($k)<$l)$k.=(mt_rand(0,1)==0?mt_rand(0,9):chr(mt_rand(65,90)));return $k;}Aufruf dann via "echo keyGen()" oder bei anderer Länge als 4 "echo keyGen(10)"
