Başlangıç > Kodlar > Visual Basic 6 ile Yazı şifrelemek

Visual Basic 6 ile Yazı şifrelemek


Yazılan bir yazıyı her defa da farklı olarak şifreleyen(okunmaz hale getiren) bir uygulama..

YAZI ŞİFRELEME PROGRAMI

'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

Murat Yok(Van_Helsing)

Programın exe ve diğer dosyalarını www.mdreams.cjb.net adlı adreste bulup indirebilirsiniz..


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: