Ş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