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.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
procedure TForm1.Button6Click(Sender: TObject);
var
AText,
ACode : String;
pFirst,
pLast,
pCurr,
pFirstCode,
pLastCode,
pCurrCode : PChar;
AStream : TStringStream;
AReader : TStreamReader;
begin
AStream := TStringStream.Create();
AReader := TStreamReader.Create('c:\temp\plain.txt');
try
AText := AReader.ReadToEnd;
ACode := 'DELPHICAN';
pFirst := @AText[1];
pLast := @AText[AText.Length];
pCurr := pFirst;
pFirstCode:= @ACode[1];
pLastCode := @ACode[ACode.Length];
pCurrCode := pFirstCode;
while pCurr <= pLast do
begin
pCurr^ := Char( Ord(pCurr^) xor Ord(pCurrCode^) );
Inc(pCurr);
Inc(pCurrCode);
if pCurrCode > pLastCode then
pCurrCode := pFirstCode;
end; // while pCurr <= pLast do
finally
if Assigned(AReader) then
FreeAndNil(AReader);
if Assigned(AStream) then
begin
AStream.WriteString(AText);
AStream.SaveToFile('c:\temp\plain.txt');
FreeAndNil(AStream);
end;
end;
end;
(06-11-2019, Saat: 16:27)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Puan olarak zam mı yapsam acaba
Cevabı erkenmi paylaştım @Tuğrul HELVACI hocam. Ama yaparsanızda hayır demem
Uğraşan arkadaşlar olabilir belki diye onun için çözüm kodlarını mesajla birlikte paylaşmadım. İş çıkışı beyin jimnastiği oldu. Eve geçince çözüm yönteminide paylaşırım.
Yazdıktan sonra fark ettim aslında dolaylı yoldan çözüm yolunuda paylaşmış oldum. Çözüm yöntemi bulmacanın cevabının içinde
(06-11-2019, Saat: 17:05)frmman Adlı Kullanıcıdan Alıntı: Bakalım 50 puan gelecekmi
procedure TForm1.Button6Click(Sender: TObject);
var
AText,
ACode : String;
pFirst,
pLast,
pCurr,
pFirstCode,
pLastCode,
pCurrCode : PChar;
AStream : TStringStream;
AReader : TStreamReader;
begin
AStream := TStringStream.Create();
AReader := TStreamReader.Create('c:\temp\plain.txt');
try
AText := AReader.ReadToEnd;
ACode := 'DELPHICAN';
pFirst := @AText[1];
pLast := @AText[AText.Length];
pCurr := pFirst;
pFirstCode:= @ACode[1];
pLastCode := @ACode[ACode.Length];
pCurrCode := pFirstCode;
while pCurr <= pLast do
begin
pCurr^ := Char( Ord(pCurr^) xor Ord(pCurrCode^) );
Inc(pCurr);
Inc(pCurrCode);
if pCurrCode > pLastCode then
pCurrCode := pFirstCode;
end; // while pCurr <= pLast do
finally
if Assigned(AReader) then
FreeAndNil(AReader);
if Assigned(AStream) then
begin
AStream.WriteString(AText);
AStream.SaveToFile('c:\temp\plain.txt');
FreeAndNil(AStream);
end;
end;
end;
(06-11-2019, Saat: 16:27)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Puan olarak zam mı yapsam acaba
Cevabı erkenmi paylaştım @Tuğrul HELVACI hocam. Ama yaparsanızda hayır demem
Uğraşan arkadaşlar olabilir belki diye onun için çözüm kodlarını mesajla birlikte paylaşmadım. İş çıkışı beyin jimnastiği oldu. Eve geçince çözüm yönteminide paylaşırım.
Yazdıktan sonra fark ettim aslında dolaylı yoldan çözüm yolunuda paylaşmış oldum. Çözüm yöntemi bulmacanın cevabının içinde
100 puan verdim
Evet, cevabı görünce çözen arkadaş gülümsesin diye bu şekilde yaptım
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
@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.
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.
(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;
(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;
Tebrik ederim güzel kardeşim. Ellerine aklına sağlık.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...