Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Basit Kriptoloji - 02
#1
Ekte bulunan veri.txt içinde şifreli bir metin bulunuyor. 

Amacınız (bu kriptoloji serisinde olduğu gibi) şifreli metni deşifre etmek. 

Cevap 10 puan değerinde (Bu en azından benim verebileceğim kısmı, ama çabanızı takdir eden diğer forum katılımcıları da size puan verecektir Wink )

İpucu
DELPHİCAN = QRYCUİPNA
Lorem = Yberz

İpucu 2 
XOR işinize yaramaz.


Ek Dosyalar
.txt   veri.txt (Dosya Boyutu: 2,89 KB / İndirme Sayısı: 26)
YouTube Delphi Tips
"Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır" Peyami Safa
WWW
Cevapla
#2
sezar sifreleme teknigi kullanilmis ve her karakter kendinden sonraki 13. karaktere isaret ediyor
Cevapla
#3
Çok güzel, iyi bir başlangıç @Super Tombala

Bu sezar şifresinin özel bir alt türü, bu tekniğin ismi farklı.

Programlama topluluğunda olduğumuz için kod örneği paylaşmanızı da ayrıca bekliyoruz.
YouTube Delphi Tips
"Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır" Peyami Safa
WWW
Cevapla
#4
Metni çözen uygulamayı paylaşan ilk kişiye de benden 50 puan.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#5
(07-11-2019, Saat: 13:10)Super Tombala Adlı Kullanıcıdan Alıntı: sezar sifreleme teknigi kullanilmis ve her karakter kendinden sonraki  13. karaktere isaret ediyor

Çok güzel, ellerinize sağlık. Benden de size 10 puan.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#6
13 rakamını buldum ama araya iş girdi, deneme yapamadan çözülmüş. 

cozum.jpg
Cevapla
#7
Ellerinize sağlık, her bir uğraşı kıymetlidir. Size de 5 puan verdim.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#8
ş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.
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#9
Tebrikler, @cinarbil 

Ben de kendi çözümümü paylaşayım;

function ROT13(const s: string): string; // Kriptolama ve Çözme...
var i: integer;
begin
  result := s;
  for i := 1 to length(s) do
    case ord(s[i]) of
      ord('A')..ord('M'),ord('a')..ord('m'): result[i] := chr(ord(s[i])+13);
      ord('N')..ord('Z'),ord('n')..ord('z'): result[i] := chr(ord(s[i])-13);
      ord('0')..ord('4'): result[i] := chr(ord(s[i])+5);
      ord('5')..ord('9'): result[i] := chr(ord(s[i])-5);
    end;
end;
YouTube Delphi Tips
"Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır" Peyami Safa
WWW
Cevapla
#10
50 puanınız verildi. Shy
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Basit Kriptoloji - 03 Tuğrul HELVACI 20 14.094 11-11-2019, Saat: 14:50
Son Yorum: TescilsizUzman
  Basit Kriptoloji - 01 Tuğrul HELVACI 12 8.552 07-11-2019, Saat: 15:19
Son Yorum: Tuğrul HELVACI



Konuyu Okuyanlar: 1 Ziyaretçi