String auf Zeichen prüfen

[DeddyH]

Ungetestet:

Delphi-Quellcode:

function ValidPW(const s: string): Boolean;
var
  ContainsUpper: Boolean;
  ContainsLower: Boolean;
  ContainsNumber: Boolean;
  c: char;
begin
  ContainsUpper := false;
  ContainsLower := false;
  ContainsNumber := false;
  Result := false;
  for c in s do
    begin
      if CharInSet(c, ['0'..'9']) then
        ContainsNumber := true
      else if c = AnsiUpperCase(c) then
        ContainsUpper := true
      else if c = AnsiLowerCase(c) then
        ContainsLower := true;
      Result := ContainsUpper and ContainsLower and ContainsNumber;
      if Result then
        break;
    end;
end;

[LTE5]

Ich war schon auf dem richtigen Pfad, und Deddy hat es bravourös kompetiert

[Fukiszo]

bei simpler typ Char Auswertung grenz ich's so ein:
if chTemp in ['0'..'9', 'A'..'Z'] then

viele wege führen nach Rom

[Redeemer]

Deddys Algorithmus funktioniert nicht, denn ValidPW('0') ergibt doch true.

[Delphi.Narium]

Naja, wenn ich sowohl eine Ziffer, als auch einen Kleinbuchstaben, sowie einen Großbuchstaben haben möchte, muss ich auch auf die Länge der Eingabe prüfen. Die muss also mindestens 3 sein.

Und diese Aussage dürfte kaum stimmen:

Zitat von Redeemer:

Deddys Algorithmus funktioniert nicht, denn ValidPW('0') ergibt doch true.

Result ist nur dann True, wenn diese Bedingung erfüllt ist: ContainsUpper and ContainsLower and ContainsNumber Das dürfte bei einem Zeichen kaum hinzubekommen sein.

Zumindest mein Delphi weigert sich da

Man könnte DeddyHs Vorschlag ja so abwandeln:

Delphi-Quellcode:

function ValidPW(const s: string; MinLower, MinUpper, MinNumber : Integer): Boolean;
var
  ContainsUpper: Integer;
  ContainsLower: Integer;
  ContainsNumber: Integer;
  c: char;
begin
  ContainsUpper := 0;
  ContainsLower := 0;
  ContainsNumber := 0;
  Result := false;
  for c in s do
    begin
      if CharInSet(c, ['0'..'9']) then Inc(ContainsNumber)
      else if c = AnsiUpperCase(c) then Inc(ContainsUpper)
      else if c = AnsiLowerCase(c) then Inc(ContainsLower);
      Result := (ContainsUpper >= MinUpper) and (ContainsLower >= MinLower) and (ContainsNumber >= MinNumber);
      if Result then
        break;
    end;
end; 

// Aufruf:
  Case ValidPW(ed_Passwort.Text,4,4,1) of
    true  : ShowMessage('Passwort genügt den Anforderungen');
    False : ShowMessage('Passwort genügt nicht den Anforderungen');
  end;

Dann brauche ich halt mindestens 4 Kleinbuchstaben, mindestens 4 Großbuchstaben und eine Ziffer.

'ne Erweiterung um Sonderzeichen dürfte da dann auch kein großes Problem mehr sein.

[zobien123]

Vielen Dank für die ganzen Antworten!

Ich habe es nun so gelöst wie @Delphi.Narium es zeigt

[SProske]

Nur so nebenher zum Thema: https://stackoverflow.com/questions/...ord-validation

Da ist dann auch das correcthorsebatterystaple XKCD dabei

[Fukiszo]

teste es mit umlauten, sonderzeichen, punkt strich etc, dann result = false