Basit Kriptoloji - 02

[cinarbil]

şifre çözme algoritmasi aşağıda

çıktı resmi ekte daha detaylandırılabilir ama molada anca bu kadar yapabildim.
 

unit sezar;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
 TForm2 = class(TForm)
   Memo1: TMemo;
   Memo2: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public

   { Public declarations }
 end;

var
 Form2: TForm2;
 procedure sifre_coz(sifreli: string; key: integer);
implementation

{$R *.dfm}



procedure sifre_coz(sifreli: string; key: integer);
 var
   i: integer;
 begin
   for i := 1 to length(sifreli) do
     case sifreli[i] of
      'A'..'Z': sifreli[i] := chr(ord('A') + (ord(sifreli[i]) - ord('A') - key + 26) mod 26);
      'a'..'z': sifreli[i] := chr(ord('a') + (ord(sifreli[i]) - ord('a') - key + 26) mod 26);
     end;
 showmessage(sifreli);
 end;


procedure TForm2.Button1Click(Sender: TObject);

begin
sifre_coz('Yberz Vcfhz, znfnüfgü lnlıapıyıx ir onfıa lnlıa frxgöeüaqr xhyynaıyna gnxyvg lnmı oybğh bynenx'+
'gnaızynaıe. Yvcfhz, byhşghehynpnx şnoyba ir gnfynxyneqn vçrevx lrevar trçrerx lnmı oybğhah'+
'qbyqheznx vçva xhyynaıyıe.',13);
end;
end.

1 satırın çözülmüş hali : Lorem Ipsum, masaüstü yayıncılık ve basın yayın sektöründe kullanılan taklit yazı bloğu olarak tanımlanır. 
Lipsum, oluşturulacak şablon ve taslaklarda içerik yerine geçerek yazı bloğunu doldurmak için kullanılır.