şıfrelı not defterı

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

ŞİFRELİ NOT DEFTERİ

ŞİFRELİ NOT DEFTERİ
Not defteri gibi bir text editörü.metninizi şifreli kaydedip güvenli hale getirin

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

Hosting Sponsorumuz - Noktahost internet hizmetleri