Başlangıç > Kodlar > Visual Basic 6 ile Şifreli not defteri

Visual Basic 6 ile Şifreli not defteri

Not defteri gibi bir text editörü.metninizi şifreli kaydedip güvenli hale getirin..Ömer ACAR

Private Sub mnuItemDate_Click()
Wrap$ = Chr$(13) & Chr$(10) 'dizeye tarih ekle
txtNote.Text = Date$ & Wrap$ & txtNote.Text
End Sub

Private Sub mnuItemExit_Click()
End                         'programdan çık
End Sub

Private Sub mnuItemSave_Click()
CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"
CommonDialog1.ShowSave      'Kaydet iltişim kutusunu görüntüle
If CommonDialog1.FileName <> "" Then
'şifreyi al ve dosyayı şifrelemek için kullan
code = InputBox("Şifreyi girin", , 1)
If code = "" Then Exit Sub  'Cancel seçilirse, yordamdan çık
Form1.MousePointer = 11     'kum saatini görüntüle
charsInFile% = Len(txtNote.Text) 'dize uzunluğunu bul
Open CommonDialog1.FileName For Output As #1 'dosyayı aç
For i% = 1 To charsInFile%  'dosyadaki her karakter için
letter$ = Mid(txtNote.Text, i%, 1) 'sonraki karakteri oku
'w/ Asc sayısına dönüştür, sonra şifrelemek için Xor'u kullan
Print #1, Asc(letter$) Xor code; 've dosyayı kaydet
Next i%
Close #1                'bittiğinde dosyayı kapat
CommonDialog1.FileName = ""  'dosya adını temizle
Form1.MousePointer = 0  'fareyi ayarla
End If
End Sub

Private Sub mnuOpenItem_Click()
Wrap$ = Chr$(13) + Chr$(10) 'kayan karakter yarat
CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"
CommonDialog1.ShowOpen      'Aç iletişim kutusunu görüntüle
If CommonDialog1.FileName <> "" Then
'şifreyi alip şifreli metni dönüştür
code = InputBox("Enter encryption code", , 1)
If code = "" Then Exit Sub 'Cancel seçilirse, yordamdan çık
Form1.MousePointer = 11 'kum saatini görüntüle
Open CommonDialog1.FileName For Input As #1 'dosyayı aç
On Error GoTo Problem:  'hata işleyici ayarla
decrypt$ = ""   'dizeyi deşifre için sıfırla
Do Until EOF(1)         'dosyanın sonuna kadar
Input #1, Number&   'şifreli sayıları oku
e$ = Chr$(Number& Xor code) 'Xor ile dönüştür
decrypt$ = decrypt$ & e$    've dize oluştur
Loop
lblFile.Caption = CommonDialog1.FileName 'başlık koy
txtNote.Text = decrypt$ 'dönüştürülen dizeyi görüntüle
txtNote.Enabled = True  'kaydırma çubuklarını etkinleştir
CleanUp:                        'bittiğinde...
Form1.MousePointer = 0  'fareyi ayarla
Close #1                'dosyayı kapat
CommonDialog1.FileName = ""  'dosya adını temizle
End If
Exit Sub
Problem:  'sorun olduğunda, uygun iletiyi görüntüle
If Err.Number = 5 Then  'Chr$ sorunu yanlış tuştur
MsgBox ("Incorrect Encryption Key")
Else  'diğer sorunlar için (büyük dosya gibi) şu hatayı ver
MsgBox "Dosya Açılamıyor", , Err.Description
End If
Resume CleanUp:   'CleanUp ile bitir
End Sub


TD Software


Reklamlar
  1. 22/02/2012, 01:01

    Dostum ben daha yeniyim Visual Basic ‘ de , biraz daha açıklayıcı yaparmısın ? Kaç tane label vs. ekleyeceğimizi belirtsen yada bir ekran görüntüsü koysan daha faydalı olacağını düşünüyorum 🙂
    teşekkürler emek için.

    Beğen

  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: