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
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