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

Joined
May 23, 2019
Credits
97
Rating - 0%
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
 

Users who are viewing this thread

Top