AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Problem bei Vigenere-Verschlüsselung

Ein Thema von Matrix275 · begonnen am 13. Feb 2012 · letzter Beitrag vom 27. Mär 2013
Antwort Antwort
Seite 1 von 2  1 2   
Matrix275

Registriert seit: 13. Feb 2012
1 Beiträge
 
#1

Problem bei Vigenere-Verschlüsselung

  Alt 13. Feb 2012, 20:35
Hallo,

Wir sollten in der Schule ein Programm mit Delphi zur Caesar- und Vigenere-Verschlüsselung schreiben. Meine Caesar-Verschlüsselung funktioniert einwandfrei, aber bei Vigenere kann ich meinen Fehler nicht finden. Ich habe mindestens 30 Minuten versucht in den Programmzeilen irgendwo den Fehler zu finden, habe den Code schon mehrfach umgeändert, jedoch ohne Erfolg. Ich vermute mal es liegt an den strings oder arrays, die ich benutzt habe.

Hier ist der Code von der fehlerhaften Prozedur:

Delphi-Quellcode:
procedure TForm1.Klartextverschlsseln1Click(Sender: TObject);
var a,b,key,keyadd: String;
     i,j,l,m,id1,id2,k,h:Integer;
     codeid:array of Integer;
begin
b:='';
m:=0;
key:='COOL';
keyadd:=key;
Memo1.Lines.Clear;
  for i := 0 to Memo2.Lines.Count do
    begin
      b:='';
      a := Memo2.Lines[i];
      for j := 1 to length(a) do
        begin
          key:=key+keyadd;
          m:=m+1;
        end;
    end;
l:=i*59+j;
key:= Copy(key, 1, l);
for k := 0 to (length(key)-1) do
  begin
    codeid[k]:=ord(key[k])-65;
  end;
for h:=0 to length(a)-1 do
  begin
    b:=b+chr((ord(codeid[h]))+(ord(a[h])));
  end;
end;
Ich würde mich sehr freuen, wenn mir jemand den Fehler und die dazugehörige Korrektur zeigen könnte.

MfG Matrix275
  Mit Zitat antworten Zitat
Benutzerbild von Coffeecoder
Coffeecoder

Registriert seit: 27. Apr 2011
242 Beiträge
 
Delphi 6 Enterprise
 
#2

AW: Problem bei Vigenere-Verschlüsselung

  Alt 13. Feb 2012, 20:42
Hi, erstmal Willkommen in der
Ich kann mich jetzt täuschen, aber Vigenère sollte nur mit Buchstaben funktionnieren.
Bitte besuche auch mal die beiden Links: Delphi-Treff und diesen hier.
Beide Links haben einige Erläuterungen zu diesem recht einfachen und in zwischen unsicheren Verschlüsselungsverfahren.
Mfg,
Coffeecoder
  Mit Zitat antworten Zitat
Alt 26. Mär 2013, 19:49     Erstellt von Lolf10
Dieser Beitrag wurde von Phoenix gelöscht. - Grund: Rumnölen und Spammen gibts bei uns nicht.
Mathematiker
(Gast)

n/a Beiträge
 
#3

AW: Problem bei Vigenere-Verschlüsselung

  Alt 26. Mär 2013, 19:55
Hallo,
SCHICKT MIR DEN QUELLCODE PER E-MAIL BITTE!!
Vergiss es!
Setze Dich gefälligst hin und programmiere erst einmal selbst etwas.
Wenn Fehler auftreten, kannst Du ja gezielt fragen.

Die DP ist kein Selbstbedienungsladen!

Beste Grüße
Mathematiker
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Problem bei Vigenere-Verschlüsselung

  Alt 26. Mär 2013, 20:48
Die DP ist kein Selbstbedienungsladen!
Oder besser gesagt: Die DP ist ein Selbstbedienungsladen, kein Bedienungsladen
  Mit Zitat antworten Zitat
QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.605 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Problem bei Vigenere-Verschlüsselung

  Alt 26. Mär 2013, 20:48
hey matrix275!

Ich muss auch in der schule ein programm mit lazarus zur cesar verschlüsselung programmieren.
Ich habe überhaupt keinen plan wie die einzelnen buchstaben erkannt werden sollen.


Bitte helft mir!

Schickt mir den quellcode per e-mail bitte!!

Danke
9/10
Andreas
#PerfMatters
  Mit Zitat antworten Zitat
QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.605 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: Problem bei Vigenere-Verschlüsselung

  Alt 26. Mär 2013, 20:50
Die DP ist kein Selbstbedienungsladen!
Oder besser gesagt: Die DP ist ein Selbstbedienungsladen, kein Bedienungsladen
wtf
stolz auf den miesen Service ???

*trollface.jpg*
Andreas
#PerfMatters
  Mit Zitat antworten Zitat
Mathematiker
(Gast)

n/a Beiträge
 
#7

AW: Problem bei Vigenere-Verschlüsselung

  Alt 26. Mär 2013, 21:52
Hallo,
bevor mir mieser Service vorgeworfen wird, gibt's eine von mir im Netz gefundene Lösung. Nach Lazarus muss es einfach noch übertragen werden :
Code:
main(int n,char**a){for(n=0;putchar(a[2][n]?(a[2][n]%32+(**a%2*2-1)*
      (a[1][n++%(a[2] -a[1] -1)]%32-1)+25)%26+97:10)-10;);}
Beste Grüße
Mathematiker

Quelle: http://www.iwriteiam.nl/SigProgC.html

Geändert von Mathematiker (26. Mär 2013 um 22:01 Uhr)
  Mit Zitat antworten Zitat
Alt 27. Mär 2013, 07:40     Erstellt von Lolf10
Dieser Beitrag wurde von Phoenix gelöscht. - Grund: Rumnölen und Spammen gibts bei uns nicht.
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.564 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Problem bei Vigenere-Verschlüsselung

  Alt 27. Mär 2013, 07:51
.. setze Dich an Deinen Schreibtisch, nimm Dir einen Stift und Papier.
Schreibe auf was für die Vignere Verschlüsselung benötigt wird.
Schreibe die Schritte auf wie Klartext in Cyphertext gewandelt wird.

Transferiere die Schritte und Voraussetzungen in einen Source-Code Deiner Wahl.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Mathematiker
(Gast)

n/a Beiträge
 
#9

AW: Problem bei Vigenere-Verschlüsselung

  Alt 27. Mär 2013, 07:56
.. setze Dich an Deinen Schreibtisch, nimm Dir einen Stift und Papier.


Beste Grüße
Mathematiker
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.516 Beiträge
 
#10

AW: Problem bei Vigenere-Verschlüsselung

  Alt 27. Mär 2013, 08:04
BITTE SCHICKT MIR JEMAND...
Ein ganz klares: NEIN

Wir sind kein Hausaufgabenforum. Wenn Du hier nochmal so ne abstruse Forderung postest machen wir den Thread einfach kommentarlos dicht / löschen ihn und lassen Dich komplett ohne Hilfe hier sitzen.

Stand jetzt hast Du noch eine Klitzekleine Chance, Hilfe zur Selbsthilfe bei Deinem eigentlichen Problem zu bekommen.

Was anderes wirst Du hier in der Delphi-PRAXiS aber nicht bekommen (ausser eine Menge Ärger), also such Dir entweder in einem anderen Forum irgendwelche Idioten die Deine Probleme für Dich lösen, oder zeig Eigeninitiative, versuche Dein Problem selber zu lösen und dafür wirst Du hier alle Unterstützung bekommen die nötig ist.
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.

Geändert von Phoenix (27. Mär 2013 um 08:06 Uhr)
  Mit Zitat antworten Zitat
Alt 27. Mär 2013, 11:27     Erstellt von Lolf10
Dieser Beitrag wurde von Phoenix gelöscht. - Grund: Rumnölen und Spammen gibts bei uns nicht.
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf