Turkhackteam.net/org - Turkish Hacking & Security Platform  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform >
Turkhackteam Under Ground
> Kriptografi - Şifreleme

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




Visual Basic Studio İle Caesar Cipher

Kriptografi - Şifreleme

Yeni Konu aç Cevapla
 
Seçenekler
Alt 24-02-2019 00:26   #1
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
02/2019
Mesajlar
8
Konular
5

Teşekkür (Etti): 1
Teşekkür (Aldı): 2


Visual Basic Studio İle Caesar Cipher



Ö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.
 Offline  
 
Alıntı ile Cevapla
Alt 24-02-2019 00:27   #2
  • Binbaşı
  • Üye Bilgileri
Üyelik tarihi
01/2019
Nereden
#Space#
Mesajlar
Konular

Teşekkür (Etti): 68
Teşekkür (Aldı): 272




Faydalı bir kod. Txt diye kaydediyoruz sanırsam?



___________________________________________

Aşk güzeldir karşılığı varsa ama karşılıksız da sevilir karşımdaki vatansa...

#Ghost Killer#
 Offline  
 
Alıntı ile Cevapla
Alt 24-02-2019 00:33   #3
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
02/2019
Mesajlar
8
Konular
5

Teşekkür (Etti): 1
Teşekkür (Aldı): 2




Alıntı:
Ghost Killer´isimli üyeden Alıntı Mesajı göster
Faydalı bir kod. Txt diy...
Teşekkür ederim dostum .vbs olarak kaydediyoruz
 Offline  
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından paylaşılmaktadır.
Bu konular yasalara uygunluk ve telif hakkı konusunda yönetimimiz tarafından kontrol edilse de, gözden kaçabilen içerikler yer alabilmektedir.
Bu tür konuları turkhackteamiletisim [at] gmail.com mail adresimize bildirebilirsiniz, konular hakkında en kısa sürede gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com

Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz.
Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2019

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı

Google+
Pomeranian Boo
instagram takipci hilesi

wau