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 hazır kodlar » Yazı şifreleme
Ü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

ASP.NET'TE GÜVENLİK

Yazar: bayx93
Bu makalede ASP.Net′te güvenlik işlemlerinden bahsedeceğiz.ASP.Net′te güvenlik için biraz web.config′den bahsedelim.Projemizle ilgili ayarların bulunduğu bir XML dosyasıdır.Biz bu dosyada
<authentication mode="Windows" />
bölümü ile ilgileneceğiz.


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 № : 3737
Yayın Tar:19.07.2005
Yazar : spider58
Hit :3323

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

**** Başka bir siteden, paylaşım amaçlı alınmıştır

'Programa 2 tane textbox koyun biri ustte diğeri altta.
'Textbox ların MultiLine özelliğini True yapın ve scrollbar özelliğinden Vertical olanı seçIn.
'2 Text box arasına 3 tane yan yana olacak şekilde CommandButton koyun.
'Sırası ile CommandButtonların Name kısmını şöyle adlandırın.
'1.CommandButton içIn cmdSifrele
'2.CommandButton içIn cmdDesifrele
'3.CommandButton içIn cmdKaydet

'Alttaki textbox ın altına bir tane CheckBox koyun.
'CheckBox ın Name kısmını chk1 olarak değştirin.

'Program kullanımı ise;
'Ustteki kısma bir metin yazın ve bunu şifreleye bastığınızda alt metin penceresine şifreli olarak geçtiğini göreceksiniz,
'sonra Deşifreleye basınca yine ust pencereye şifresi çözülmüş olrak geçecektir.

'Kaydet butonu ise bir metin yazıp onu şifreledikten sonra *.doc yada *.txt oarak bu şifreli yazıyı kaydetmenizi sağlayacaktır.

'Eğer bu program ile şifrelenmiş bir *.txt yada *.doc uzantılı bir metnin şifresini çözmek isterseniz;
'*.doc veya *.txt dosyasının içeriğini alttaki metin penceresine kopyalayın ve Dosyadan Deşifre Et! yazan checkBox a işaret koyun. Program metni düzeltcektir.

'Programa yazılan kodu incelerseniz her şifrele ye basınca belli bir sayıda farklı şifreleme yaptığını göreceksiniz..
'dosyadan(bu program ile şifrelenmiş bir *.txt yada *.doc belgesinden) şifreleme yada deşifreleme yapmadığınız zaman alttaki metin penceresinin altındaki CheckBox a işaret koymayınız..




Dim Y As Byte


Private Sub chk1_Click()
If chk1.Value = 1 Then
cmdSifrele.Enabled = False
Else
cmdSifrele.Enabled = True
End If
End Sub


Private Sub cmdDesifrele_Click()
Dim i, X As Integer

If chk1.Value = 1 Then
Y = Chr(Asc(txt2.Text))
i = 2
Else
i = 1
End If

For i = i To Len(txt2.Text)
X = Asc(Mid(txt2.Text, i, 1))

If X < 199 Then
X = X - Y
Else
X = X - 1
End If

txt1.Text = txt1.Text & Chr(X)
Next i

txt2.Text = ""
txt2.Enabled = False
txt1.Enabled = True
cmdSifrele.Enabled = True
cmdDesifrele.Enabled = False
cmdKaydet.Enabled = False
End Sub


Private Sub cmdKaydet_Click()
CD1.CancelError = False
CD1.DialogTitle = "Kaydet"
CD1.Filter = "Metin Belgesi(*.txt)|*.txt|WORD Belgesi(*.doc)|*.doc"
CD1.FilterIndex = 2
CD1.ShowSave

Open CD1.FileName For Output As #1
Print #1, Y & txt2.Text
Close #1
End Sub


Private Sub cmdSifrele_Click()
Dim i, X As Integer

If chk1.Value = 1 Then chk1.Value = 0

Do
Y = 9 * Rnd
Y = Int(Y)
Loop Until Y <> 0

For i = 1 To Len(txt1.Text)
X = Asc(Mid(txt1.Text, i, 1))

If X < 199 Then
X = X + Y
Else
X = X + 1
End If

txt2.Text = txt2.Text & Chr(X)
Next i

txt1.Text = ""
txt1.Enabled = False
txt2.Enabled = True
cmdSifrele.Enabled = False
cmdDesifrele.Enabled = True
cmdKaydet.Enabled = True
End Sub


Private Sub Form_Load()
txt1.Text = ""
txt2.Text = ""
cmdSifrele.Caption = "Şifrele"
cmdDesifrele.Caption = "Deşifrele"
cmdKaydet.Caption = "Kaydet"
cmdKaydet.Enabled = False
cmdSifrele.Default = True

chk1.Caption = "Dosyadan Deşifre Et!"
End Sub




Yorumlar, eklemeler ve düşünceler
        Bu tür alıntı yazılara izin çıkması hoş birşey

   Taner3000 , 21.07.2005 13:39
   hoş derken harbi hoş mu demek istiyorsun yoksa dalga mı geçiyorsun?

   spider58, 21.07.2005 23:40
   hiç bir zaman dalga geçmeyi düşünmedim harbi harbi hoş...

   Taner3000 , 22.07.2005 13:22
   Y değeri varken deşifre edebiliyo da y değeri yoksa yani başka bir zamanda deşifre istendiğinde ne olacak
;o)

   mahoni06, 27.07.2005 12:49
© 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