Files |  Tutorials |  Articles |  Links |  Home |  Team |  Forum |  Wiki |  Impressum

Aktuelle Zeit: Do Jul 17, 2025 14:14

Foren-Übersicht » Programmierung » Allgemein
Unbeantwortete Themen | Aktive Themen



Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Autor Nachricht
 Betreff des Beitrags: Entschlüsselung
BeitragVerfasst: Fr Dez 05, 2003 13:42 
Offline
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:
  1.  
  2. repeat
  3.   abs := 32000;
  4.   for i := 3 to 80 do
  5.   begin
  6.     tempi := 0;
  7.     str3  := copy(tempstr, aktpos, i);
  8.     tempi := pos(str3, copy(tempstr, aktpos+i+1, length(tempstr)));
  9.     if (tempi < abs) then if (tempi > 0) then
  10.     begin
  11.       abs := tempi;
  12.       ii := i;
  13.     end;
  14.   end;
  15.   if abs < 32000 then
  16.   begin
  17.     showmessage(IntToStr(abs));
  18.     aktPos := aktPos + ii - 1;
  19.   end;
  20.   aktpos := aktpos + 1;
  21. 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
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Foren-Übersicht » Programmierung » Allgemein


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 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.

Suche nach:
Gehe zu:  
  Powered by phpBB® Forum Software © phpBB Group
Deutsche Übersetzung durch phpBB.de
[ Time : 0.016s | 15 Queries | GZIP : On ]