Hi ,
ich suche ein Kryptosystem am besten Hybridverschlüsselung und diese werde ich dann nochmal doppelt verschlüsseln.
Es geht nämlich darum ,dass ich etwas Wichtiges verschlüsseln muss ... dieses darf kein anderer mitbekommen ,außerdem habe ich im Moment Probleme das selber zumachen weil er mir immer viele Fehler vorsetzt ein Freund von mir nutzt C++ und dort kann man nur ein Kryptosystem nutzen aber bei AutoIT sollte mehrere Möglich sein ...
MFG Blacki
P.S.:Hoffentlich könnt ihr mir helfen
Ich kenne nur _StringEncrypt()
Da kannst du zwischen 10 Sicherheitsstufen wählen (Die höchste ist echt derbe) und ein Passwort mit verschlüsseln lassen.
Ich hab dazu auch ein kleines Programm geschrieben...Schaus dir mal an:
#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
;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
$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]so hab das mal überarbeitet da es ein paar fehler gab
übrigens danke werde das ma testen 
#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.0.0
Author: Frithjof
Fixed by: blackjack4494
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
$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]hmmm das funzt aber nicht mal XD
_stringEncrypt ist doch meines wissens nach rc4 ... ist das nicht schon gebrochen, sprich unsicher?
Ja, die autoit eigene De-/Entcrypt funktion ist erstaunlich leicht zu knacken. (18 Zeichen PW und Stufe 4 in wenigen Minuten)
Habe eine Seite gefunden, auf der ein 17-Jähriger eine "unbreakable" Verschlüsslung geschrieben hat: Link
Vielleicht ist es ja möglich, etwas ähnliches auch zu schreiben. Weiß jemand wie das geht?^^
ich kenne jemanden der eine starke verschlüsselung machen kann die auch unknackbar ist
unteranderem ist sowas auch was ähnliches
http://de.wikipedia.org/wiki/Asymmetrisches_Kryptosystem
Wir hatten mal ein ähnliches Thema vielleicht hilft es euch weiter:
Kryptographie: "Vigenère-Quadrat"
