- 7 Eki 2022
- 5
- 2
Merhaba bugün sizlere metin belgesi ile nasıl şifreleme yapabileceğinizi anlatacağım.
Şifreleme neden gerekir ve neden kullanırız? : Şifrelemeyi genellikle özel bilgilerimizin,belgelerimizin vb. doğrudan göstermeyerek sayıları veya harfleri değiştirerek göndermek için kullanırız.
Şimdi nasıl basit bir şekilde şifreleme yapabilirsiniz buna geçelim.
Şifreleme için öncelikle bir şifreleme aracı yapmamız gerekiyor sonrasında ise şifreyi çözen bir araç daha yapmamız gerekiyor.Burdaki mantık şifreleme aracına şifrelenecek yazıyı yazıp şifre çözücü
araçtan ise şifrelenen yazıyı çözmek.Şifreleme aracına şifreyi yazdığımızda bize metin belgesi içerisinde o kelimenin şifreli halini verecek daha sonra Şifreyi Çözme aracına kelimenin şifreli halini yazdığımızda bize kelimeyi verecek.(Karakterlerin Türkçe Olmamasına Dikkat Edin)
Şimdi nasıl Şifreleme Aracını yapacağımıza geçelim:
---------------------------------------------------------------------------
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Çözülecek yazıyı giriniz")
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)-3)
coded = coded & newtxt
Next
encode = coded
End Function
---------------------------------------------------------------------------
Burada (newtxt)-3) kısmındaki -3 ü farklı sayılar da yapabiliriz örneğin -8,-9,-4 gibi fakat burada ne yaparsak çözme kısmında bu değerin tam tersini yapacağız.
sayının kendisi aynı kalacak sadece -3 ün mutlak değeri olan +3 ü kullanacağız bunun nedeni şifreyi tersine çevirmek yani çözmek.
Kodları Yazdıktan sonra "Şifreleme.vbs" olarak kaydedebilirsiniz.
(Bitince .vbs olarak kaydetmeyi unutmayın.)
Şimdi ise Şifre Çözme aracımızın yapımına geçelim:
---------------------------------------------------------------------------
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Şifrelenecek yazıyı giriniz")
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)+3)
coded = coded & newtxt
Next
encode = coded
End Function
-----------------------------------------------------------------
Kodları Yazdıktan sonra "Şifre Çözme.vbs" olarak kaydedebilirsiniz.
(Bitince .vbs olarak kaydetmeyi unutmayın.)
Zaman Ayırdığınız İçin Teşekkür Ederim.
İyi Günler...
Şifreleme neden gerekir ve neden kullanırız? : Şifrelemeyi genellikle özel bilgilerimizin,belgelerimizin vb. doğrudan göstermeyerek sayıları veya harfleri değiştirerek göndermek için kullanırız.
Şimdi nasıl basit bir şekilde şifreleme yapabilirsiniz buna geçelim.
Şifreleme için öncelikle bir şifreleme aracı yapmamız gerekiyor sonrasında ise şifreyi çözen bir araç daha yapmamız gerekiyor.Burdaki mantık şifreleme aracına şifrelenecek yazıyı yazıp şifre çözücü
araçtan ise şifrelenen yazıyı çözmek.Şifreleme aracına şifreyi yazdığımızda bize metin belgesi içerisinde o kelimenin şifreli halini verecek daha sonra Şifreyi Çözme aracına kelimenin şifreli halini yazdığımızda bize kelimeyi verecek.(Karakterlerin Türkçe Olmamasına Dikkat Edin)
Şimdi nasıl Şifreleme Aracını yapacağımıza geçelim:
---------------------------------------------------------------------------
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Çözülecek yazıyı giriniz")
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)-3)
coded = coded & newtxt
Next
encode = coded
End Function
---------------------------------------------------------------------------
Burada (newtxt)-3) kısmındaki -3 ü farklı sayılar da yapabiliriz örneğin -8,-9,-4 gibi fakat burada ne yaparsak çözme kısmında bu değerin tam tersini yapacağız.
sayının kendisi aynı kalacak sadece -3 ün mutlak değeri olan +3 ü kullanacağız bunun nedeni şifreyi tersine çevirmek yani çözmek.
Kodları Yazdıktan sonra "Şifreleme.vbs" olarak kaydedebilirsiniz.
(Bitince .vbs olarak kaydetmeyi unutmayın.)
Şimdi ise Şifre Çözme aracımızın yapımına geçelim:
---------------------------------------------------------------------------
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Şifrelenecek yazıyı giriniz")
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)+3)
coded = coded & newtxt
Next
encode = coded
End Function
-----------------------------------------------------------------
Kodları Yazdıktan sonra "Şifre Çözme.vbs" olarak kaydedebilirsiniz.
Anlamadığınız Herhangi bir şey olursa yazabilirsiniz.
(Bitince .vbs olarak kaydetmeyi unutmayın.)
Zaman Ayırdığınız İçin Teşekkür Ederim.
İyi Günler...
