Delphi Can

(06-11-2019, Saat: 19:32)frmman Adlı Kullanıcıdan Alıntı: [ -> ]

(06-11-2019, Saat: 19:03)adelphiforumz Adlı Kullanıcıdan Alıntı: [ -> ]@frmman hocam @Tuğrul HELVACI  hocamın yazısından nasıl böyle bir yol izlediğini anladınız da bu yapıyı çözdünüz.
içerideki veri birçok yolla şifrelenmiş olabilir benim kaçırdığım kilit bir cümle yada kelimemi oldu acaba yazının içinde.

@adelphiforumz  şifre çözme biraz sezgisel birazda şans işi.

Alıntı:Not: Dosya'yı diskinize kayıt edip; denemeleri o şekilde yapmanızı öneririm. Dosyayı tarayıcıların editöründe açıp, açılan içeriği kopyalayarak çalışmayın. Çeşitli unicode sorunları ile boğuşabilirsiniz.

Uyarısı dosyayı hex editör ile açıp inceleme yapma konusunda bir fikir verdi. Hex editörde çeşitli paternler, bunların dağılımına göz gezdirdim. İpucu olarak metin verildiği söylendiği için harflerin dağılım oranlarına göre sesli ve sessiz harfleri kestirmeye yönelik tahminlerde bulundum.
Hex editördeki ilk 3 byte de  (0x34 0x37 0x23) ve DELPHICAN anahtarının hex karşılıkları (0x44 0x45 0x4c 0x50 0x48 0x49 0x43 0x41 0x4e) ile klasik lojik ve matematik işlemlerini kağıt üzerinde denedim.
Xor işlemine sıra gelince  sonucu çözülmüş metin "pro" olarak çıkınca bunu otomatiğe bağlayıp sonucu görmek istedim, ve sonuç başarılı çıktı.


Çözüm için aşağıdaki kod yapısını kullandım.

uses ioutils;
.....
.....
var
 Form1: TForm1;
 dosya:Tbytes;
 const key:array[1..9] of byte =($44, $45, $4c, $50, $48, $49, $43, $41, $4e);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
 s:string;
 a:byte;

begin
   s:='';
   memo1.Clear;

   for i := 0 to Length(dosya)-1 do
   begin
        a := (i mod 9) + 1;
        s:= s + char(dosya[i] xor key[a]);
   end;

   memo1.Lines.Add(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 dosya:= Tfile.readAllbytes(ExtractFilePath(Application.ExeName)+'plain.txt');
end;

Bende tebrik ediyorum Emeğinize sağlık.

(07-11-2019, Saat: 08:44)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: [ -> ]Bu konu bir seri olabilir mi acaba, ne dersiniz arkadaşlar ;-) Kripto 2,3,4...de sizlerden gelir mi ?

Aslında güzel ve eğlenceli bir seri olabilir. Tabi "enigma" benzeri bir şifreleme yapsısı kullanılmazsa
Verilen ipuçları ile çözülebilecek veya çözmeye yetecek şekilde ipucu barındıran sorularla uğraşmak keyifli olur düşüncesindeyim.
Problem çözülemediği durumlarda ilave ipuçlarıda verilebilir.

(07-11-2019, Saat: 09:41)frmman Adlı Kullanıcıdan Alıntı: [ -> ]

(07-11-2019, Saat: 08:44)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: [ -> ]Bu konu bir seri olabilir mi acaba, ne dersiniz arkadaşlar ;-) Kripto 2,3,4...de sizlerden gelir mi ?

Aslında güzel ve eğlenceli bir seri olabilir. Tabi "enigma" benzeri bir şifreleme yapsısı kullanılmazsa
Verilen ipuçları ile çözülebilecek veya çözmeye yetecek şekilde ipucu barındıran sorularla uğraşmak keyifli olur düşüncesindeyim.
Problem çözülemediği durumlarda ilave ipuçlarıda verilebilir.

Akıllıca şifreleme yöntemleri de ortaya çıkabilir. Birilerinin keşfetmediği birşeyleri keşfederiz demiyorum ama eğlenerek öğrenmeye vesile olacağını umuyorum.