Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Sezar Şifresi
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Veri Sifreleme Algoritma kurarak {XOR islemi ayrica}

Yazar: Yas-iN
Bu makalemde veri sifrelemeyi anlatacagim.Calistigim sirket oldukca buyuk bir bilgisayar magazasi fakat veriler rastgele SQL servera kaydediliyor.Herhangi bir saldiri oldugunda veriler calinsa neler olabilir düsünmek bile istemiyorum.Ve bu yuzden bir şifreleme yontemi geliştirdim.Siz kendinize göre uyarlayabilirsiniz.Bu makale öğretme amacli oldugu için ben .dat dosyasına yazdırıyorum.Siz database kullanabilirsiniz.

Öncelikle yeni bir proje aciyoruz.Form1 üzerine multiline özellikleri True ScrollBars Özellikleri 2-Vertical olan 3 adet textbox yerleştirelim.1.textboxın üstüne 1 adet label yerleştirelim ve caption özelliğine "Şifrenizi Girin" yazalim.
2. textboxın üstünede 1 label koyalim caption özelliğine "Olusturulan Sifre"yazalim.
3.textboxın üstünede yine aynı sekilde 1 label yerleştirelim ve caption özelliğine "Açılan Şifre" yazalim.
3 adet command buton kontrolu yerleştirelim ve sırasıyla caption özelliklerine "Şifrele" , "Aç" , "Önceki girilen sifreyi aç" yapalim.Şimdi kodlarimiza geçiyoruz.Kolay gelsin arkadaşlar.




Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9393
Yayın Tar:03.10.2007
Yazar : aslim.ykm
Hit :1978

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et


" clairvoyant adlı arkadaşımın kriptografi hakkında yazdığı yazıdan yola çıkarak hazırladım. ancak orada gördüğüm küçük bir hatayı düzelttim. Faydalı olacağına inanıyorum "

aşağıdaki kodları general declarations kısmına yapıştıralım...

´ Sezar Şifresi
´ sezar şifresi bildiğimiz method aslında bir alfanumerik şifreleme
´ yöntemidir. Ancak kırılması daha zordur...
´ önce kendinize bir anahtar kelime seçersiniz.
´ diyelim ki "togius" anahtar kelime
´ seçilirken içerisinde harflerin bir kere geçmesine
´ dikkat etmelisiniz.
´ Sifrelemek istediğiniz kelime Armut olsun anahtar kelimemizde
´ elma yani elma ile armudu toplayacağız.
´ Armut
´ ElmaE
´ +-------
´ A+E=şifrelenmişharf
´ r+l=şifrelenmişharf vb...

´ işte şifrelemeyi yaptığımız fonksiyon
Function Sifrele(ByVal X As String, ByVal Anahtar As String) As String
Dim i, A, B
Dim uz
uz = Len(Anahtar)
j = 1
´ for i=1 to len(x) döngüsü ile
´ şifrelenen metindeki her harfi tek tek
´ karakter bilgilerini değiştiriyoruz..
For i = 1 To Len(Text1)
A = Asc(Mid(X, i, 1)) ´ A sayısına şifrelenen harfin sayısay kodu
B = Asc(Mid(Anahtar, j, 1)) ´ B sayısına şifrelenen Anahtar kelime harfinin sayısal kodu
´ asc(a) gibi düşünün bunun sayısal karşılığını veriyor
´ Chr verilen sayıyı metne çevirir
´ 0-255 karaketerimiz olduğundan
´ 256 ya göre mod aldım
Mid(X, i, 1) = Chr((A + B) Mod 256) ´ A+E harfileriniden yeni değeri burada elde ediyoruz.
´ anahtar kelimeyide yine
´ kendi uzunluğu ile modluyoruz
´ armut için ElmaE yapıyoduk ya tekrar başlatıyoduk elmayı
´ işte o hesap
´ 1 ile topladım çünkü j 0 değirini hiç görmesin
j = j Mod Len(uz) + 1
Next
Sifrele = X
End Function

Private Sub Command1_Click()
Text1 = Sifrele(Text1, "togius")
End Sub
Function Desifrele(ByVal X As String, ByVal Anahtar As String) As String
Dim i, A, B
Dim uz
uz = Len(Anahtar)
j = 1
For i = 1 To Len(Text1)
A = Asc(Mid(X, i, 1))
B = Asc(Mid(Anahtar, j, 1))
´ burada eğer a<b den küçüse derkenki amacım
´ türkçe karakterler şifrelendiğinde
´ de şifre ederken a sayısı
´ b den küçük oluyor ve
´ bu programın hata vermesini sağlıyo
´ nasılsa a nın asıl değeri anın mod alınmamış hali olduğundan
´ a ile 256 yı topladım...
If A < B Then A = A + 256
´ tek fark busefer a dan b yi çıkarmamız
Mid(X, i, 1) = Chr(((A - B)) Mod 256)
j = (j Mod Len(uz)) + 1
Next
Desifrele = X
End Function

Private Sub Command2_Click()
Text1 = Desifrele(Text1, "togius")
End Sub





Yorumlar, eklemeler ve düşünceler
        emeğine saglık kardes

devamı dileğiyle basarılar

   barzenon, 03.10.2007 21:21
   togius'un makalesinin aynısını kopyala yapıştır yapmışsınız,
hatalı kodunu düzeltmemiş ve hatta anahtar kelimeyi bile değiştirmemişiniz...

http://www.vbasicmaster.com/vbbilgisi.asp?id=7286&type=mak

Emeğe Saygı Lütfen...

   iboo48, 21.11.2010 20:10
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin