AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

(Delphi) Polybios-Chiffre entschlüsseln

Offene Frage von "Klaus01"
Ein Thema von Hajaku · begonnen am 4. Mär 2012 · letzter Beitrag vom 6. Mär 2012
 
Hajaku

Registriert seit: 4. Mär 2012
2 Beiträge
 
#1

(Delphi) Polybios-Chiffre entschlüsseln

  Alt 4. Mär 2012, 17:39
Hallo

Ich habe es geschafft einen Text mit der Polybios-Chiffre zu chiffrieren, aber ich weiß nicht wie man es dechiffriert.

HALLO --> 23 11 32 32 35
Nun benötige ich eure Hilfe, wie mache ich es nun?
Ich habe mir dabei gedacht, dass z.B. bei der 23 (H), die 2 zu einer 5 wird und mit der 3 addiert wird.
Dadurch etsteht die 8 und H ist ja der 8. Buchstabe im Alphabet.
Aber wie mache ich dass und wie soll es im Text gehen '23 11 32 32 35'
Achja ich muss noch dazu sagen ich bin kein Delphi Ass also erklärt es mir so, dass ich es noch halbwegs verstehen kann^^

Hier der Delphi-Quelltext
Code:
procedure Thoi.verschluesseln (klartext: TStrings; Geheimtext: TStrings);
var
  i: integer;
  txt, sch: string;
begin

  sch:=gibschluessel;
  Geheimtext.text:='';

    geheimtext.text:=geheimtext.text + Zahlenumwandler(klartext.text);
  end;

  function Thoi.Zahlenumwandler(klartext: String):string;
  var
    a, b, i:integer;
  begin
    for i:=1 to length(klartext) do begin
      a:=(((ord(klartext[i]) - 64) div 5)) + 1;
      b:=(((ord(klartext[i]) - 64) mod 5));
        if b = 0 then begin
          a:= a - 1;
          b:= b + 5;
        end;
      result:=result + inttostr(a) + inttostr(b);
    end;
  end;

 
end.
  Mit Zitat antworten Zitat
 


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 14:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz