Cum sa securizezi un document WORD


Recent a trebuit sa gasesc o solutie sa securizez un document. Sincer pana acum nu a fost nici un document care sa nu reusesc sa il deschid decat daca era stricat sau avea cheie de criptare realizata de proprietar, asa ca daca eu puteam sa deschid orice document, ma gandesc ca sunt persoane mai destepte ca mine, asa ca trebuia sa ma gandesc la ceva bun.

Sunt mai multe etape pentru o etansare completa a unui document.

1. Parolezi documentul Word. Asta impiedica sa mai aduci modificari documentului.

2. Atasezi un watermark, asta daca nu e un document oficial sau daca se poate (imbunatateste siguranta)

3. Salvezi documentul in PDF.

4. Criptezi PDF-ul cu o parola de 13 caractere si cu setarile maxime de siguranta (fara print, fara copy).

Sa nu credeti ca daca a-ti facut pasii acestia sunteti sigur 100% pe document. Parola de la criptarea PDF se poate sparge cu usurinta, dar daca aveti 13 caractere o sa dureze cel putin cateva luni pe un calculator cu 1 procesor, poate mai putin pe un calculator mai performant dar tot dureaza, si chiar daca il deschide ramane watermark-ul si PDF-ul, nu il poate converti foarte usor in word sa arate la fel dar il poate lista sau poate lua fragmente cu copy paste.

Mai exista  OCR, dar nu stiu cum rezolva problema watermark-ului, si parola trebuie sa o stie.

Acum sa explic pas cu pas cum trebuie facut.

1. Parolare document WORD

 

2. Atasare Watermark, doar daca nu deranjeaza

 

 

3. Salvare documentul in PDF.

 

Pentru cei care nu au instalat Add-in pentru salvare in format PDF il pot descarca de aici

4. Criptare PDF. Eu folosesc PDF Encrypt, dar probabil sunt si altele. Programul se gaseste pe net.

 

PS: Pentru cine plateste bine fac si decrypt PDF

Anunțuri

Aplicatie cautare documente cu Visual Studio 2008


Cum să faci o aplicaţie care să caute documente în calculator şi să le şi deschidă când dai enter sau „cauta”. În filmuletele ce vor urma, voi arata cum functionează şi cum se face. 

1. Cum functionează (http://www.youtube.com/watch?v=ldu5y4Vp4lc

2. Cum se face (proiect nou)

Partea 1 : http://www.youtube.com/watch?v=5G0nZ68QjNs

Partea 2: http://www.youtube.com/watch?v=Ext3HIC6nGw

Update: Mda, tocmai am vazut ca nu se vede prea stralucit pe youtube, degeaba le-am incarcat. Daca e cineva interesat si nu se descurca doar cu codul si ce se intelege in filmulete, un mesaj si trimit filmuletele originale

Poate fi util la o aplicatie mai mare, care realizeaza salvari, log-uri, etc.

3. Codul, pentru cei fideli copy paste (sa nu se chinuie sa copie codul din filmulet)

 –––––––––––––––––––––––––––––-   

Public Class Form1   

    Dim numefisier As String
    ‘sub de cautare
    Private Sub cautadocument()
   

        Dim found As Integer = 0
        ‘introducem try catch pentru eventualele erori care pot aparea, nu exista document, etc
   

        Try
            If Not txtcauta.Text = Nothing Then
                ‘se curata lista
                Lwcauta.Items.Clear()
                ‘din start nu gaseste nici un document
                found = 0
                ‘pentru fiecare fisier din folderul dorit este gasit un document se afiseaza in
                ‘lista si sea aduna in found
                For Each file In My.Computer.FileSystem.GetFiles(„D:\certificate distrugere\certificate distrugere\”, FileIO.SearchOption.SearchTopLevelOnly, Nothing)
                    numefisier = My.Computer.FileSystem.GetFileInfo(file).Name
                    ‘daca titlul in search box contine ceva atunci se adauga in lista
                    If numefisier.Contains(txtcauta.Text) Then
                        Lwcauta.Items.Add(numefisier)
                        ‘se adauga la cele gasite cate 1
                        found = found + 1
   

                    End If
                Next
                ‘se notifica cate certificate au fost gasite in lblcegasesc
                Lblcegasesc.Text = found.ToString + „documente gasite”
            End If
        Catch ex As Exception
            MessageBox.Show(„nu exista calea…….”, „contactati administratorul”, MessageBoxButtons.OK, MessageBoxIcon.Error)
   

        End Try
    End Sub
   

    Private Sub btncauta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncauta.Click
        cautadocument()
   

    End Sub
    ‘se porneste documentul selectat (sa vad daca mai tin minte)
   
    Private Sub Lwcauta_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lwcauta.DoubleClick
        Process.Start(„D:\certificate distrugere\certificate distrugere\” & numefisier.ToString)
   

    End Sub
    ‘se identifica documentul
   

    Private Sub Lwcauta_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles Lwcauta.ItemSelectionChanged
        numefisier = e.Item.Text
   

    End Sub
    ‘daca vrem dupa ce scriem textul in textbox sa dam enter fara a mai apasa butonul cauta
   

    Private Sub txtcauta_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtcauta.KeyUp
        If e.KeyCode = Keys.Enter Then
            cautadocument()
   

        End If
    End Sub
    ‘sa vedem daca merge
End Class