Wenn Alphabet zuende, dann von vorne anfangen

Xeron · Verfasst: Do 28.01.10 17:44

Hi, ich will ein Passwort Generator basteln. Dieses Passwort soll nur aus Buchstaben bestehen.

Wie kann ich nun erreichen, wenn das Programm A..Z erstellt hat, das es mit AA weiter macht?
Also A..Z, weiter mit AA..ZZ, AAA..ZZZ usw.?

Danke

aksdb · Verfasst: Do 28.01.10 17:51

Wäre für einen Passwortgenerator nicht Randomize und Random sinnvoll? Eine Liste mit allen Kombinationsmöglichkeiten scheint mir nicht gerade sinnvoll zu sein (abgesehen davon, dass die ziemlich groß wird ;-)

)

Xeron · Verfasst: Do 28.01.10 17:56

Ja, aber Random schafft ja nur Zahlen oder seh ich das Falsch?

ALF · Verfasst: Do 28.01.10 18:17

Festlegen in welchen zahlenbereich, also 65 - 92, sind glaube ich alle GrossBuchstaben.
Dann Zufall generieren und Zahl mit chr(zufallszahl) in Buchstaben wandeln!
Währe die einfachst Möglichkeit

Gruss Alf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

Xeron · Verfasst: Do 28.01.10 18:27

Nein nein, das hat schon alles seine richtigkeit.

ich habe es jetzt so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  Form1: TForm1;
  s: Char = 'a';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Edit1.Text := OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 26 do
  begin
    s := Chr(Ord(s)+1);
    ListBox1.Items.Add(s);
    ProgressBar1.Position := i;
    if i = 26 then
    begin
      ListBox1.Items.Add(s)
    end
 end;
  ProgressBar1.Position := 100;
end;


end.

und jetzt, wenn ich bei z angekommen bin, soll automatisch von vorne begonnen werden, und das Zeichen dan das Zeichen an die ersten 26 Buchstaben gehangen werden.

jaenicke · Verfasst: Do 28.01.10 18:29

Du kannst mit Modulo arbeiten. Dann kannst du immer weiterzählen und mit modulo 26 landest du wieder zwischen 0 und 25. Diesen Rest der Division kannst du dann zum Zeichencode vom a addieren um einen Zeichencode zu haben.

Xeron · Verfasst: Do 28.01.10 18:34

hmm, versteh ich grade nicht so. modulo = mod oder

kannste mal ein ganz kurzes Beispiel zeigen? Danke

jaenicke · Verfasst: Do 28.01.10 18:38

markieren

Delphi-Quelltext

1:
2:

for i := 0 to 100 do
  ShowMessage(Chr(Ord('a') + i mod 26));

Xeron · Verfasst: Do 28.01.10 18:41

dann wird aber immer wieder von vorne gezählt. ich will aber das das Zeichen an das andere Zeichen drangehängt wird.
Also so:

a
b
c
..
x
y
z
aa
ab
ac
..
az
aaa
..

Xentar · Verfasst: Do 28.01.10 18:44

Spätestens, wenn du auch Sonderzeichen haben willst, könnte das mit mod aber problematisch werden.

Hab mir auch mal nen Passwortgenerator gebaut. Hab das da so gelöst, dass ich einen String hatte, wo alle verwendbaren Zeichen drinstehen s := 'asDFgH'; , und dann mit random(length(s)) ein beliebiges Zeichen daraus ausgewählt habe.

_________________
PROGRAMMER: A device for converting coffee into software.

ALF · Verfasst: Do 28.01.10 18:51

Xeron

Zitat:

ich will aber das das Zeichen an das andere Zeichen drangehängt wird.

und wann willst Du aufhören? Ich sehe da sonst keine Ende!!!!

Gruss Alf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

Xeron · Verfasst: Do 28.01.10 19:04

naja, so nach 10-12 Zeichen
also z.B.

aghtfifnhdg

elundril · Verfasst: Do 28.01.10 19:05

ALF hat folgendes geschrieben :

Xeron

Zitat:

ich will aber das das Zeichen an das andere Zeichen drangehängt wird.

und wann willst Du aufhören? Ich sehe da sonst keine Ende!!!!

Gruss Alf

kann man ja in einer Schleife festlegen, oder.

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

ALF · Verfasst: Do 28.01.10 19:12

Aber so wie er es machen will hatt es nichts mit einen PWgenerator zu tuen!?
oder seh ich das Falsch :shock:

Gruss Alf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

Xeron · Verfasst: Do 28.01.10 19:15

Ich hätte eine neue Idee.
Ginge es mit einer Goto Anweisung?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Label Sprung;
begin
  Sprung:
  for i := 1 to 26 do
  begin
    s := Chr(Ord(s)+1);
    ListBox1.Items.Add(s);
    ProgressBar1.Position := i;
    if i = 26 then
    begin
      Goto Sprung;
      ListBox1.Items.Add(s)
    end
 end;
  ProgressBar1.Position := 100;
end;

oder irgendwie so

elundril · Verfasst: Do 28.01.10 19:21

du weißt das du damit eine endlosschleife erzeugen würdest?

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Xeron · Verfasst: Do 28.01.10 19:22

ja, auch grade gemerkt.

Naja, gibt irgendeinen Befehl um 2 Char Typen zusammen zu kopieren wie
etwa s := s + s;

Xentar · Verfasst: Do 28.01.10 19:23

Xeron hat folgendes geschrieben :

ja, auch grade gemerkt.

Naja, gibt irgendeinen Befehl um 2 Char Typen zusammen zu kopieren wie
etwa s := s + s;

Probier diese eine Zeile mal bitte aus...
Aber das Ergebnis passt nicht mehr in einen Char, da es ja zwei Zeichen sind. Also musst du nen String nehmen.

_________________
PROGRAMMER: A device for converting coffee into software.

Xeron · Verfasst: Do 28.01.10 19:43

ok, habs jetzt so halbwegs.
Wie kann ich jetzt aber einen Char in einen String umwandeln?

c := String(s);

geht ja irgendwie nicht

und einfach c := s auch nicht

Xentar · Verfasst: Do 28.01.10 19:46

Aus der Benennung deiner Variablen schließe ich, dass du links und rechts vom Gleichheitszeichen vertauschst..

Und noch was: Bitte gewöhn dir an, statt "geht nicht" direkt die Fehlermeldung mitzuposten.

_________________
PROGRAMMER: A device for converting coffee into software.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme