2 Dünya savaşında kullanılan şifreleme algoritması (sezar)

Discussion in 'Cryptology / Kriptografi / Kriptoloji' started by axroix, May 31, 2019.

  1. axroix

    axroix

    Mesajlar:
    14
    Likes Received:
    31
    merhaba dostlar
    belki çoğunuz biliyordur ama forumda yok bu konu
    araştırmalarım sonucu buldum :)

    Anlatım :

    bu şifrelemenin adı sezar algoritması
    2 dünya savaşında bir ülke müttefik ülkeye veya herhangi bir ülkeye mesaj yollar
    bu mesajıda sadece gönderen kişi görmesi için şifrelenmiş bir yazı yollar
    yani baya bir eski algoritma o yüzden forumda bu konunun yer etmesini istedim

    Yapım :

    arkadaşlar bu algoritmayı yapmak için bir sürü yol vara birini size aktarıyorum

    masaüstüne gelin
    yeni metin belgesi.txt açın
    sonra bu kodları yapıştırın
    ---------------------------------------------------------------------------------------------------
    set x = WScript.CreateObject("WScript.Shell")
    mySecret = inputbox("Şifrelenecek Yazıyı Girin")
    mySecret = StrReverse(mySecret)
    x.Run "%windir%\notepad"
    wscript.sleep 1000
    x.sendkeys encode(mySecret)
    function encode(s)
    For i = 1 To Len(s)
    newtxt = Mid(s, i, 1)
    newtxt = Chr(Asc(newtxt)+5) <----- şu +5 i -5 yaparsanız şifreyi çözer o yüzden 2 tane metin defterine birisine +5 birisine -5 yani bunu +5 olarak kaydederseniz şifre oluşturur -5 yaparsanız şifreyi çözer ama bu sadece sezar algoritması için çalışır :)
    coded = coded & newtxt
    Next
    encode = coded
    End Function
    ---------------------------------------------------------------------------------------------------
    sonra dosyayı .vbs olarak kaydedin
    son :)

    not :
    normalde resimle anlatıcaktım konuda göstermiyo nedense neyse iyi forumlar :) <3
     
    Magic Hacker and Mectruy like this.
  2. Mectruy

    Mectruy Yaşlı Kurt

    Mesajlar:
    3,533
    Likes Received:
    7,559
    okuyacam bunu vakit bulunca. eline sağlık
     
Loading...