txtDatei verschlüsseln

[TheLuCKer]

Hallo Leute,

kann mir jemand sagen, wie ich eine Textdatei als verschlüsselt speichere und wieder beim laden entschlüssle und wieder meinen normalen text hab. es soll nur wenn man die txtdatei so aufmacht, darf man den text nicht lesen können. danke im vorraus.

MFG

LUCKER

 

[MatMagic]

keine ahnung...aber

nenne deine text datei doch einfach "beispiel.huk" statt "beispiel.txt"
und lade sie auch mit diesem namen ein....

ist natürlich kein schutz den du suchst aber falls keiner eine Idee hat wenigstens ein schutz gegen vollhirnis

 

[PPepper]

Wenn es nur eine einfach Verschlüsselung sein soll

Schau hier : http://home.t-online.de/home/Holger.Heinemann/homepage.htm?vb.htm

verschlüsselt TEXTE mit einem PW und umgekehrt
also TXT vorm Speichern Crypten und nach dem Laden das selbe nochmal

 

[Julian Maicher]

Wenn du kein Ultra-Security Crypt Modell haben willst/musst, dann reich auch eine ganz simple Methode: Buchstabe + 1.

Mal ein Beispiel:

Verschlüsselt wird: Hallo du
Ergebnis: Ibmmp!ev

Sub main()
Dim text$
    text = "Hallo du"
    
    MsgBox encode(text)
    MsgBox decode(encode(text))

End Sub

Function encode(str As String)
Dim str_crypt$
Dim i%
    
    For i = 1 To Len(str)
        str_crypt = str_crypt & Chr(Asc(Mid(str, i, 1)) + 1)
    Next i
    
    encode = str_crypt
End Function

Function decode(str_crypt As String)
Dim str$
Dim i%
    
    For i = 1 To Len(str_crypt)
        str = str & Chr(Asc(Mid(str_crypt, i, 1)) - 1)
    Next i
    
    decode = str

End Function