Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <INet.au3>
#include <ComboConstants.au3>
$mail = "fantar1@web.de"
$title = "Cryptos"
$font = "Comic Sans MS"
$txt_translate = "Übersetzen"
$password = "*zensiert*"
$text1 = "Normaler Text"
$text2 = "Verschlüsselter Text"
$save = "Speichern"
$file_typ = "Textdateien (*.txt)"
$file_typ_default = ".txt"
$txt_error = "Kein Text vorhanden"
$crypt_level_label = "Verschlüsselungs-Level:"
$ininame = "settings_cryptos.ini"
$section = "settings"
$key_level = "crypt_level"
$txt_error_ininame = "Kein Verschlüsselungs-Level festgelegt" & @CRLF & "Stellen sie den Verschlüsselungs-Level unter" & @CRLF & "Einstellungen -> Level" & @CRLF & "fest"
$crypt_level = IniRead ( $ininame, $section, $key_level, "" )
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ###
$Form1 = GUICreate( $title, 518, 295, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$MenuItem3 = GUICtrlCreateMenu("Öffnen...", $MenuItem1)
$MenuItem8 = GUICtrlCreateMenuItem("Verschlüsselte Datei", $MenuItem3)
$MenuItem9 = GUICtrlCreateMenuItem("Textdatei", $MenuItem3)
$MenuItem4 = GUICtrlCreateMenu( $save, $MenuItem1)
$MenuItem13 = GUICtrlCreateMenuItem( $text2, $MenuItem4)
$MenuItem14 = GUICtrlCreateMenuItem( $text1, $MenuItem4)
$MenuItem5 = GUICtrlCreateMenu( $txt_translate, $MenuItem1)
$MenuItem11 = GUICtrlCreateMenuItem( $text2, $MenuItem5)
$MenuItem12 = GUICtrlCreateMenuItem( $text1, $MenuItem5)
$MenuItem2 = GUICtrlCreateMenu("&Hilfe")
$MenuItem10 = GUICtrlCreateMenu("Einstellungen")
$MenuItem15 = GUICtrlCreateMenuItem("Level", $MenuItem10)
$MenuItem6 = GUICtrlCreateMenuItem("About", $MenuItem2)
$Edit1 = GUICtrlCreateEdit("", 24, 64, 233, 153)
$Label1 = GUICtrlCreateLabel( $text1, 24, 40, 107, 24)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Label2 = GUICtrlCreateLabel( $text2 ,280, 40, 150, 24)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Button1 = GUICtrlCreateButton( $txt_translate, 88, 224, 107, 33)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Button2 = GUICtrlCreateButton( $txt_translate, 344, 224, 107, 33)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Edit2 = GUICtrlCreateEdit("", 280, 64, 233, 153)
$Label3 = GUICtrlCreateLabel( $crypt_level_label & $crypt_level, 16, 8, 186, 24)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$question_exit = MsgBox ( 4, $title, "Wirklich beenden?" )
If $question_exit = 6 Then
Exit
EndIf
Case $MenuItem15
#Region ### START Koda GUI section ###
$Form3 = GUICreate( $title, 253, 130, 359, 230)
$Label9 = GUICtrlCreateLabel("Verschlüsselungs-Level festlegen", 16, 16, 232, 24)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Combo1 = GUICtrlCreateCombo("1", 16, 48, 233, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "2|3|4|5")
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Button3 = GUICtrlCreateButton("Weiter", 80, 88, 83, 33)
GUICtrlSetFont(-1, 11, 400, 0, $font )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete ( $Form3 )
Case $Button3
$crypt_level = GUICtrlRead ( $Combo1 )
GUICtrlSetData ( $Label3, $crypt_level_label & $crypt_level )
IniWrite ( $ininame, $section, $key_level, $crypt_level )
GUIDelete ( $Form3 )
EndSwitch
WEnd
Case $Button1
_translate1 ()
Case $MenuItem12
_translate1 ()
Case $Button2
_translate2 ()
Case $MenuItem11
_translate2 ()
Case $MenuItem14 ;normaler text speichern
$txt_normal = GUICtrlRead ( $Edit1 )
$save_path = FileSaveDialog ( $title, "", $file_typ, $file_typ_default )
FileWrite ( $save_path, $txt_normal )
Case $MenuItem13 ;verschlüsselter text speichern
$txt_crypted = GUICtrlRead ( $Edit2 )
$save_path = FileSaveDialog ( $title, "", $file_typ, "", $file_typ_default )
FileWrite ( $save_path, $txt_crypted )
Case $MenuItem8 ;verschlüsselte datei öffnen
$open_path = FileOpenDialog ( $title, "", $file_typ, $file_typ_default )
$txt_crypted = FileRead ( $open_path )
GUICtrlSetData ( $Edit2, $txt_crypted )
Case $MenuItem9 ;normale datei öffnen
$open_path = FileOpenDialog ( $title, "", $file_typ, $file_typ_default )
$txt_normal = FileRead ( $open_path )
GUICtrlSetData ( $Edit1, $txt_normal )
Case $MenuItem6 ;about
#Region ### START Koda GUI section ###
$Form2 = GUICreate( $title, 408, 113, 314, 201)
$Label5 = GUICtrlCreateLabel("Bei Fragen/Verbesserungsvorschlägen/Bugs melden bei", 16, 16, 385, 24)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Label6 = GUICtrlCreateLabel( $mail, 144, 48, 147, 30)
GUICtrlSetFont(-1, 14, 400, 0, $font )
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
$Label7 = GUICtrlCreateLabel("29.1.2011", 328, 80, 67, 24)
GUICtrlSetFont(-1, 11, 400, 0, $font )
$Label8 = GUICtrlCreateLabel("Version 1.0", 16, 80, 79, 24)
GUICtrlSetFont(-1, 11, 400, 0, $font )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete ( $Form2 )
Case $Label6
_INetMail ( $mail, "", "" )
EndSwitch
WEnd
EndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _translate1 () ;normaler text zu verschlüsselt
[/autoit] [autoit][/autoit] [autoit]$crypt_level = IniRead ( $ininame, $section, $key_level, "" )
If $crypt_level = "" Then
MsgBox ( 16, $title, $txt_error_ininame )
Else
$txt_normal = GUICtrlRead ( $Edit1 )
If $txt_normal = "" Then
MsgBox ( 16, $title, $txt_error )
Else
$txt_crypted = _StringEncrypt ( 1, $txt_normal, $password, $crypt_level )
GUICtrlSetData ( $Edit2, $txt_crypted )
EndIf
EndIf
EndFunc
Func _translate2 () ;verschlüsselter text zu normaler
$crypt_level = IniRead ( $ininame, $section, $key_level, "" )
If $crypt_level = "" Then
MsgBox ( 16, $title, $txt_error_ininame )
Else
$txt_crypted = GUICtrlRead ( $Edit2 )
If $txt_crypted = "" Then
MsgBox ( 16, $title, $txt_error )
Else
$txt_normal = _StringEncrypt ( 0, $txt_crypted, $password, $crypt_level )
GUICtrlSetData ( $Edit1, $txt_normal )
EndIf
EndIf
EndFunc
Ein Text-Verschlüssler von mir
Falls es jemandem nützt
Ich denke, dass gibt es schon, trodzdem hab ich das mal gepostet.