Kombination der Groß-Klein Buchstaben

[Dax]

Delphi-Quellcode:

procedure PermuteCase(const s: string; list: TString; startIndex: Integer := 0);
var temp: string;
begin
  if startIndex > length(s) then exit;
  if startIndex = 0 then
  begin
    temp := lowercase(s);
    startIndex := 1;
  end
  else
    temp := s;
  list.Add(temp);
  PermuteCase(temp, list, startIndex + 1);
  temp[startIndex] := upper(temp[startIndex]);
  list.Add(temp);
  PermuteCase(temp, list, startIndex + 1);
end;

Womöglich stimmen nicht alle Aufrufe, aber das Prinzip müsste so richtig umgesetzt sein ;)

[gizzy]

Zitat:

Wenn die Liste case-sensitive ist, macht der Satz
Zitat:
Wäre ja doof wenn dann einer ankommt und sich "AdMin" nennt.
in meinen Augen aber keinen Sinn.

Wieso?

Blacklist:

Zitat:

Admin
admin
GameMaster
Gamemaster
Administrator
administrator

Trotzdem ist "ADMIN", "GameMastEr" und "aDministrator" noch möglich.

Sonst würde ja (wenn nicht Ccase-sensitive) die Angabe "admin" in der Blacklist alle Möglichkeiten auschließen (zb. "Admin", "ADMIN", usw.).

Leider kann ich die Blackliste auch nicht Beeinflussen, da es ein externes Programm ist, und ich sozusagen nur das Programm zur erweiterung jener schreiben möchte.

[DeddyH]

AdMin ist aber auch möglich und das ist ja angeblich doof :gruebel:

[gizzy]

Zitat:

Zitat von DeddyH

AdMin ist aber auch möglich und das ist ja angeblich doof :gruebel:

Weil dann die Blackliste nicht erreicht hat was sie soll, nämlich alle admin möglichkeiten zu blocken! :-D

Ich hab jetzt das Beispiel von Dax mal abgewandelt. Es waren ein paar Syntax Fehler drin. Sah mir am Anfang stark nach ner Endlosschleife aus, aber jetzt bekomme ich eine Zugriffverletzung für meine Stringlist (fals dies mit TStrings gemeint war).

Delphi-Quellcode:

procedure PermuteCase(const s: string; list: TStringList; startIndex: Integer = 0);
var
temp,charf: String;

begin
  if startIndex > length(s) then exit;
  if startIndex = 0 then
  begin
    temp := lowercase(s);
    startIndex := 1;
  end
  else
    temp := s;
  list.Add(temp);
  //PermuteCase(temp, list, startIndex + 1);
  charf:= uppercase(temp[startIndex]);
  temp[startIndex] := charf[1];
  list.Add(temp);
  PermuteCase(temp, list, startIndex + 1);
end;

[DeddyH]

Jetzt bin ich völlig verwirrt. Sollen nun alle Groß-/Kleinschreibungskombinationen der Blacklist geblockt werden?

[gizzy]

Zitat:

Zitat von DeddyH

Jetzt bin ich völlig verwirrt. Sollen nun alle Groß-/Kleinschreibungskombinationen der Blacklist geblockt werden?

Na klar, wo wäre den sonst der Sinn der Blacklist :cheer:

[DeddyH]

Dann mach doch Deine Blacklist komplett in Kleinschreibung, wandele den Usernamen auch mit AnsiLowerCase um und schau mit IndexOf nach, ob dieser in der Blacklist enthalten ist.

[freak4fun]

Ich denke eine vernünftige Erklärung von Seiten des Threaderstellers wäre sinnvoller als das rumgerate hier. :roll:

Also wenn sich jemand "Player" nennt soll sich keiner "pLayer", "plAyer" usw. nennen dürfen? Dann kannst du deine "Blacklist" mit "player" füllen und alle anderen Nicks in Kleinbuchstaben umwandeln und dann prüfen. ;)

MfG
fR34k

[DeddyH]

Genau das hab ich ja gesagt.

[freak4fun]

Kein roter Kasten! :p