Verschlüsselung mit Monoalphabetischer Substitution

[engel90]

Hallo,
ich habe mir eine Funktion geschrieben, um einen String mit Hilfe der Monoalphabetisches Substitution zu verschlüsseln. (Das Verfahren wird auch Caesar genannt glaub ich)

Das ist meine Funktion zum verschlüsseln:

Delphi-Quellcode:

function encode(text: AnsiString;const UnformatCharKey: Char):AnsiString;
{text = zu codierender Text; key = Schlüssel zur Alphabetsverschiebung[A..Z]}
{Groß-/Kleinschreibung ist beim Schlüssel egal}
{Ergebnis der Funktion ist der verschlüsselte Text}
{Zeichencode: Ansi}
var
  i:                  Integer;          {Laufindex für die Position des aktuell bearbeiteten Chars in "text"}
  DecodedChar:        Integer;          {Nicht-Codiertes Zeichen aus "text" in ANSI-Ordinalzahlen}
  EncodedChar:        Integer;          {Codiertes Zeichen aus "text" in ANSI-Ordinalzahlen}
  UnformatetOrdKey:   Integer;          {Ordinalwert des nicht umgerechneten Keys in ANSI-Codierung}
  SpecialCharacters1: set of 1..64;     {Menge der Sonderzeichen aus der ANSI-Tabelle in Ordinalzahlen}
  SpecialCharacters2: set of 91..96;    {-''-}
  SpecialCharacters3: set of 123..255;  {-''-}
  SmallLetters:       set of 97..122;   {Menge der Kleinbuchstaben aus der ANSI-Tabelle in Ordinalzahlen}
  CapitalLetters:     set of 65..90;    {Menge der Großbuchstaben aus der ANSI-Tabelle in Ordinalzahlen}
  OrdinalKey:         Integer;          {Ordinalwert des Keys (a=0, b=1, usw.)}
  TemporaryNumber:    Integer;          {Temporär benutzte Zahl}
begin
  {Denn Key in einen Großbuchstaben umrechnen, wenn er ein Kleinbuchstabe ist und dann als Ordinalwert ausgeben}
  if ord(UnformatCharKey) in SmallLetters then UnformatetOrdKey := ord(upcase(UnformatCharKey))
                                          else UnformatetOrdKey := ord(UnformatCharKey);

  {Umlaute ersetzen}
  StringReplace(text,'ä','ae',[rfReplaceAll]);
  StringReplace(text,'ö','oe',[rfReplaceAll]);
  StringReplace(text,'ü','ue',[rfReplaceAll]);
  StringReplace(text,'Ä','Ae',[rfReplaceAll]);
  StringReplace(text,'Ö','Oe',[rfReplaceAll]);
  StringReplace(text,'Ü','Ue',[rfReplaceAll]);
  StringReplace(text,'ß','s',[rfReplaceAll]);

  EncodedChar := 0;
  i := 1;
  repeat
    DecodedChar := ord(text[i]);
    if DecodedChar in SpecialCharacters1 then EncodedChar := DecodedChar;
    if DecodedChar in SpecialCharacters2 then EncodedChar := DecodedChar;
    if DecodedChar in SpecialCharacters3 then EncodedChar := DecodedChar;
    if DecodedChar in SmallLetters then
      begin
        OrdinalKey := UnformatetOrdKey-65;
        EncodedChar := DecodedChar+OrdinalKey;
        if EncodedChar>122 then
          begin
            TemporaryNumber := EncodedChar-122;
            EncodedChar := 96+TemporaryNumber;
          end;
      end;
    if DecodedChar in CapitalLetters then
      begin
        OrdinalKey := UnformatetOrdKey-65;
        EncodedChar := DecodedChar+OrdinalKey;
        if EncodedChar>90 then
          begin
            TemporaryNumber := EncodedChar-90;
            EncodedChar := 64+TemporaryNumber;
          end;
      end;

    result[i] := chr(EncodedChar);
    i := i+1;
  until i=(length(text))+1;

end;

Wenn ich diese jedoch in ein einfaches Programm integriere gibt sie kein Ergebnis aus.
Ich kann mir nicht erklären wieso :?: :gruebel: , vielleicht weiß es ja einer von euch :roll:

Gruß
engel90

[r2c2]

Hallo :hi:

Delphi-Quellcode:

result[i] := chr(EncodedChar);

Sollte IMHO heißen:

Delphi-Quellcode:

result := result + chr(EncodedChar);

Schreiben über das Ende heines Strings hinaus, ist nicht ganz so toll...

mfg

Christian

[engel90]

danke

natürlich logisch das man das dazuaddieren muss :wall:

die Funktion gibt aber leider immer noch kein Wert aus :gruebel:
Ich glaub ich werd die Funktion nochmal komplett neuschreiben, aber danke für deine Hilfe :thumb:

Gruß
engel90

[r2c2]

Was sagt denn der Debugger?

mfg

Christian

[marabu]

Hallo Engel90,

StringReplace() ist eine Funktion!

Delphi-Quellcode:

// ...
text := StringReplace(text, 'ß', 's', [rfReplaceAll]);

SetLength(Result, Length(text));

for i := 1 to Length(text) do
begin
  { ... }
  Result[i] := ...
end;

Grüße vom marabu

[engel90]

Zitat:

Zitat von r2c2

Was sagt denn der Debugger?

mfg

Christian

Es kommt keine Fehlermeldung.

[r2c2]

Zitat:

Zitat von engel90

Zitat:

Zitat von r2c2

Was sagt denn der Debugger?
[...]

Es kommt keine Fehlermeldung.

Mein ich nicht. Ich meine, du solltest den Debugger benutzen, um zu gucken, wo der Fehler liegt: Breakpoint setzen und durchsteppen... siehe auch: http://www.delphipraxis.net/internal...ct.php?t=47972

mfg

Christian

[OG Karotte]

Hallo Engel90,

schau Dir doch nochmal diesen Bereich an:

Delphi-Quellcode:

  SpecialCharacters1: set of 1..64;     {Menge der Sonderzeichen aus der ANSI-Tabelle in Ordinalzahlen}
  SpecialCharacters2: set of 91..96;    {-''-}
  SpecialCharacters3: set of 123..255;  {-''-}
  SmallLetters:       set of 97..122;   {Menge der Kleinbuchstaben aus der ANSI-Tabelle in Ordinalzahlen}
  CapitalLetters:     set of 65..90;    {Menge der Großbuchstaben aus der ANSI-Tabelle in Ordinalzahlen}

und vergleiche das mal mit dem tatsächlichen Inhalt der Mengen-Variablen während das Prog läuft (Debugger).

[Klaus01]

Guten Morgen,

habe mal dieses geändert:

Delphi-Quellcode:

  if (DecodedChar >= 97) and (DecodedChar <= 122)then
      begin
        OrdinalKey := UnformatetOrdKey-65;
        EncodedChar := DecodedChar+OrdinalKey;
        if EncodedChar>122 then
          begin
            TemporaryNumber := EncodedChar-122;
            EncodedChar := 96+TemporaryNumber;
          end;
      end;
    if (DecodedChar >= 65) and (DecodedChar <=90) then
      begin
        OrdinalKey := UnformatetOrdKey-65;
        EncodedChar := DecodedChar+OrdinalKey;
        if EncodedChar>90 then
          begin
            TemporaryNumber := EncodedChar-90;
            EncodedChar := 64+TemporaryNumber;
          end;
      end;

Warum es mit den sets nicht läuft keine Ahnung.

Grüße
Klaus

[r2c2]

Zitat:

Zitat von Klaus01

Warum es mit den sets nicht läuft keine Ahnung.

*sich mal den code anguckt*
Ähm... vielleicht, weil die sets leer sind? set <> Unterbereichstyp...

Wie wärs mit sowas:

Delphi-Quellcode:

// unterbereichstyp:
TLowerCaseChar = 'a'..'z'; // nicht nötig. Nur zur Verdeutlichung, was vielelicht verwirrend war...
// set:
LowerCaseChars: set of TLowerChar = ['a'..'z'];

BTW:
- Statt mit den Integer-Repräsentationen kann man auch direkt mit Chars rechnen:

Delphi-Quellcode:

'a' +3

- Das Partizip Perfekt(Partizip II) bzw. past participle hat im Englischen die Endung -ed, nicht -et
- Kleinbuchstabe heißt nicht Small Letter/Char, sondern Lower Case Letter/Char...
- Es gibt die Funktionen (Ansi)Upper/LowerCase...
- ...

mfg

Christian