İPUCU

Kriptografi - Şifreleme Şifreleme Ve Şifreleme Sistemleri Hakkında Her şey.

Seçenekler

Visual Basic Studio İle Caesar Cipher

24-02-2019 00:26
#1
BlvckGh0st - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2019
Mesajlar:
8
Teşekkür (Etti):
1
Teşekkür (Aldı):
2
Konular:
5
Ticaret:
(0) %
Öncelikle sifrelenenyazı.txt adında bir text dosyası oluşturuyoruz ve
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Şifrelenen Yazı")
mySecret = StrReverse(mySecret)
yazıyoruz ve .vbs olarak kaydediyoruz.
Ardından cozulenyazı.txt adında bir text dosyası oluşturuyoruz ve
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Çözülen Yazı")
mySecret = StrReverse(mySecret)
yazıyoruz ve .vbs olarak kaydediyoruz.

Encrypt için kod :
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Şifrelenecek Yazıyı Girin" )
mySecret = StrReverse(mySecret)
x.Run "sifrelenenyazı.vbs'nin kaydedildiği konum."
wscript.sleep 100
x.sendkeys encode(mySecret)
function encode(s) => encode fonksiyonu
For i = 1 To Len(s) => Len: Stringteki karakter sayısını döndürdüğü için For i = 1 To Len(s) kodunu kullanıyoruz.
newtxt = Mid(s,i,1) => Mid : Stringten belirtili karakter sayısını döndürür. syntax'ı Mid(string,başlangıç,uzunluk) şeklindedir.
newtxt = Chr(Asc(newtxt)+3)
coded = coded & newtxt
Next
encode = coded
End Function
Decrypt için kod:
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Çözülecek Yazıyı Girin.")
mySecret = StrReverse(mySecret)
x.Run "cozulenyazı.vbs'nin kaydedildiği konum."
wscript.sleep 100
x.sendkeys encode(mySecret)
function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s,i,1)
newtxt = Chr(Asc(newtxt)-3) => Encrypt için yazdığınız sayıyı buraya yazın tek fark orada +(sayı) iken burada -(sayı)
coded = coded & newtxt
Next
encode = coded
End Function
Encrypt ve Decrypt'i not defterine yazın ve farklı kaydetten .vbs olarak kaydedin.
--------------------------------
Nasıl çalışır ?
Siz encrypt'e yazınızı girersiniz. ardından yeni bir not defteri açılır ve şifrelenmiş hali açılan not defterinde yazılır.
Decrypt yaparken de tam tersi olur.

24-02-2019 00:27
#2
Üyelik tarihi:
01/2019
Nereden:
#Space#
Mesajlar:
1.386
Teşekkür (Etti):
73
Teşekkür (Aldı):
330
Konular:
80
Ticaret:
(0) %
Faydalı bir kod. Txt diye kaydediyoruz sanırsam?
Kullanıcı İmzası
Aşk güzeldir karşılığı varsa ama karşılıksız da sevilir karşımdaki vatansa...

#Ghost Killer#
24-02-2019 00:33
#3
BlvckGh0st - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2019
Mesajlar:
8
Teşekkür (Etti):
1
Teşekkür (Aldı):
2
Konular:
5
Ticaret:
(0) %
Alıntı:
Ghost Killer´isimli üyeden Alıntı Mesajı göster
Faydalı bir kod. Txt diy...
Teşekkür ederim dostum .vbs olarak kaydediyoruz

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı