vb de yazı şifreleme

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

VB de Yazı şifreleme

’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

Hosting Sponsorumuz - Noktahost internet hizmetleri