Ich hab hier mal ein Programm (nicht schön, aber funktionell) geschrieben, dass es ermöglicht .txt Datein zu Ver- bzw. Entschlüsseln.
Man wählt einfach eine Txt, wählt ein Passwort und eine Sicherheitsstufe. Es wird dann eine Txt mit dem ver- oder entschlüsselten Inhalt erstellt.
Zum Entschlüsseln eines Textes muss man das bei der Verschlüsslung gewählte Passwort, sowie die Sicherheitsstufe kennen.
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Frithjof
Script Function:
Text Verschlüssler
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#include <String.au3>
;Allgemeiner Prozess für Ver- und Entschlüsseln
[/autoit] [autoit][/autoit] [autoit]$art = InputBox("Methode", "1 für Verschlüsseln, 2 für Entschlüsseln.") ;Auswahl
[/autoit] [autoit][/autoit] [autoit]$auswahl_datei = FileOpenDialog("Textdatei auswählen" , "C:", "Text (*.txt)" )
[/autoit] [autoit][/autoit] [autoit]$stufe = InputBox("Sicherheitsstufe", "Zwischen 1 und 10")
[/autoit] [autoit][/autoit] [autoit]If $stufe > 10 Then
MsgBox(0,"Fehler", "Sie haben eine ungültige Sicherheitsstufe gewählt.") ;Fehleranweisung
EndIf
If $stufe < 1 Then
MsgBox(0,"Fehler", "Sie haben eine ungültige Sicherheitsstufe gewählt.")
EndIf
$passwort = InputBox("Passwort", "Geben sie ihr Passwort ein.")
[/autoit] [autoit][/autoit] [autoit];Verschlüsseln
[/autoit] [autoit][/autoit] [autoit]If $art = 1 Then
$zu_schreiben = FileOpen("Verschlüsselt.txt",1)
If $zu_schreiben= -1 Then
MsgBox(0, "Fehler", "Datei konnte nicht geöffnet werden")
Exit
EndIf
$methode = 1
$zu_bearbeiten = FileRead($auswahl_datei)
$verschlsselt = _StringEncrypt($methode, $zu_bearbeiten, $passwort, $stufe)
[/autoit] [autoit][/autoit] [autoit]FileWrite($zu_schreiben, $verschlsselt)
[/autoit] [autoit][/autoit] [autoit]MsgBox(0,"Erfolg", "Ihr Dokument wurde erfolgreich mit Sicherheitsstufe___" & $stufe & "___verschlüsselt.")
EndIf
;Entschlüsseln
[/autoit] [autoit][/autoit] [autoit]If $art = 2 Then
[/autoit] [autoit][/autoit] [autoit]$methode1 = 0
$gelesen = FileRead($auswahl_datei)
$entschlsselt = _StringEncrypt($methode1, $gelesen, $passwort, $stufe)
[/autoit] [autoit][/autoit] [autoit]$zu_schreiben1 = FileOpen("Entschlüsselt.txt",1)
If $zu_schreiben1 = -1 Then
MsgBox(0, "Fehler", "Datei konnte nicht geöffnet werden")
Exit
EndIf
FileWrite($zu_schreiben1, $entschlsselt)
MsgBox(0,"Erfolg", "Ihr Dokument wurde erfolgreich mit Sicherheitsstufe___" & $stufe & "___entschlüsselt.")
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Exit
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
