DGL • Thema anzeigen - Entschlüsselung

Entschlüsselung

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

LukasV

Betreff des Beitrags: Entschlüsselung

Verfasst: Fr Dez 05, 2003 13:42

DGL Member

Registriert: Di Okt 07, 2003 12:26
Beiträge: 23

Diese Frage hat zwar überhaupt nichts mit OpenGL zu tun, aber vieleicht weiß ja einer trotzdem was ich falsch mache.
Also ich versuche ein Programm zu schreiben, das einen
Text entschlüsselt, der mit dem Vigenereverfahren verschlüsselt wurde.
Dazu muss ich ja die Entfernung von gleichen Buchstabenfolgen ermitteln.
Dazu verwende ich folgenen Code: (tempstr enthält den verschlüsselten Text)

Code:

 
repeat
  abs := 32000;
  for i := 3 to 80 do
  begin
    tempi := 0;
    str3  := copy(tempstr, aktpos, i);
    tempi := pos(str3, copy(tempstr, aktpos+i+1, length(tempstr)));
    if (tempi < abs) then if (tempi > 0) then
    begin
      abs := tempi;
      ii := i;
    end;
  end;
  if abs < 32000 then
  begin
    showmessage(IntToStr(abs));
    aktPos := aktPos + ii - 1;
  end;
  aktpos := aktpos + 1;
until aktpos >= length(tempstr);

Das funktioniert eigentlich auch ganz gut, nur wenn mehrere Paare, ineinander verschachtelt oder kreuzweise vorkommen, kommen zu viele und falsch Zahlen heraus. weiß jemand, was ich falsch mache?
Ich vermute das es irgend ein dummer Fehler ist, aber ich finde ihn einfach nicht.

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.