Verschlüsseln - Entschlüsseln von Text

SchrotterCh

Hallo @ all
Ich möchte einen bestimmten text verschlüsseln und danach wieder entschlüsseln aber irgendwie funktioniert das nicht so ganz (script dabei) wann ich verschlüssel ok kommt zeichen k.a. ob diese stimmen aber beim entschlüsseln kommt statt TEST (wie eingegeben) Z heraus
weiß jemand woran bzw was der fehler ist oder wie ich es abändern muss?
lg Christian

Spoiler anzeigen

[autoit]

#Include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$inputbox = InputBox ("Verschlüsselter Text", " ", "TEST", "", 250, 115)
MsgBox (0, "Eingegebener Text", $inputbox)
$verschluesselt = _StringEncrypt (1, $inputbox, "hallo", 4)
MsgBox (0, "Verschlüsselter Text", $verschluesselt)
$entschluesselt = _StringEncrypt (0, $inputbox, "hallo", 4)
MsgBox (0, "Entschlüsselter Text (Sollte = Eingebe sein)", $entschluesselt)

[/autoit]

Ahnungslos

Du willst doch den verschlüsselten String entschlüsseln und nicht den Ausgangsstring.

So sollte es gehen:

[autoit]

#Include <String.au3>

[/autoit][autoit][/autoit][autoit]

$inputbox = InputBox ("Verschlüsselter Text", " ", "TEST", "", 250, 115)
MsgBox (0, "Eingegebener Text", $inputbox)
$verschluesselt = _StringEncrypt (1, $inputbox, "hallo", 4)
MsgBox (0, "Verschlüsselter Text", $verschluesselt)
$entschluesselt = _StringEncrypt (0,$verschluesselt, "hallo", 4) ; <-- Änderung
MsgBox (0, "Entschlüsselter Text (Sollte = Eingebe sein)", $entschluesselt)

[/autoit]

SchrotterCh

ohmann *peinlich

so kleine sachen -.-

danke für deine hilfe jetzt klappts

SchrotterCh

hy

hier noch das bearbeitete beispiel mit GUI falls es jemand braucht
(bin noch so anfänger aber kenn mich jetzt biz aus (gibt ganz sicher eine kürzere form xD)

ich werds nochmals überarbeiten das passwort und so auch im gui sind
update nur auf anfrage (PN)

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#Include <File.au3>
#include <GUIConstantsEx.au3>
#include <String.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt ("TrayIconDebug", 1)

[/autoit] [autoit][/autoit] [autoit]

;----------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

HotKeySet ("{ESC}", "_exit")

[/autoit] [autoit][/autoit] [autoit]

;----------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

$l01 = @DesktopWidth
$l02 = @DesktopWidth - 10
$l03 = @DesktopWidth - 15
$l04 = $l03 / 2
$l05 = $l04 * 2
$l06 = $l04 + 10
$h01 = @DesktopHeight
$h02 = @DesktopHeight - 10
$h03 = @DesktopHeight - 25
$h04 = @DesktopHeight - 85
$h05 = @DesktopHeight - 50
$h06 = @DesktopHeight - 75
$h07 = @DesktopHeight - 190
$h08 = @DesktopHeight - 110

[/autoit] [autoit][/autoit] [autoit]

;----------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

$gui0101 = GUICreate ("Verschlüsseln - Entschlüsseln", $l01 , $h01 , 0, 0, 0x80000000)
GUISetBkColor (0x000000)
$guicreateinput01 = GUICtrlCreateInput ("", 5, 30, $l02, $h08, 0x0005)
$guicreatebutton01 = GUICtrlCreateButton ("In ''Notepad'' kopieren", 5, 5, $l02, 20)
$guicreatebutton02 = GUICtrlCreateButton ("Verschlüsseln", 5, $h05, $l04, 20)
$guicreatebutton03 = GUICtrlCreateButton ("Entschlüsseln", $l06, $h05, $l04, 20)
$guicreatebutton04 = GUICtrlCreateButton ("Beenden", 5, $h03, $l02, 20)
$guicreatealbel01 = GUICtrlCreateLabel ("Level:", 5, $h06 + 3, 50, 15)
GUICtrlSetBkColor ($guicreatealbel01, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor ($guicreatealbel01, 0xFFFFFF)
$guicreateinput02 = GUICtrlCreateInput (1, 80, $h06, 50, 20, 0x2001)
$guisetlimit01 = GUICtrlSetLimit (GUICtrlCreateUpdown ($guicreateinput02), 10, 1)
$guicreatealbel02 = GUICtrlCreateLabel ("Passwort:", $l04, $h06 + 3, 50, 15)
GUICtrlSetBkColor ($guicreatealbel02, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor ($guicreatealbel02, 0xFFFFFF)
$guicreateinput03 = GUICtrlCreateInput ("Passwort", $l04 + 60, $h06, 200, 20)
GUISetState (@SW_SHOW, $gui0101)

[/autoit] [autoit][/autoit] [autoit]

;----------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

_button ()

[/autoit] [autoit][/autoit] [autoit]

Func _button ()
While True
$pruefen1 = GUICtrlRead ($guicreateinput02)
If $pruefen1 > 10 Then
MsgBox (262144+0, "FEHLER", "Auswahl kann nicht größer als 10 sein!")
GUICtrlSetData ($guicreateinput02, 10)
EndIf

If $pruefen1 < 1 Then
MsgBox (262144+0, "FEHLER", "Auswahl kann nicht kleiner als 1 sein!")
GUICtrlSetData ($guicreateinput02, 1)
EndIf

$msg01 = GUIGetMsg ()
Switch $msg01
Case $guicreatebutton01
$speichern11 = GUICtrlRead ($guicreateinput01)
$speichern12 = FileSaveDialog ("Speicherort auswählen", "", "Text (*.txt)", 2, "*.txt")
_FileCreate ($speichern12)
FileOpen ($speichern12, 2)
FileWrite ($speichern12, $speichern11)

[/autoit] [autoit][/autoit] [autoit]

Case $guicreatebutton02
$verschluesseln11 = GUICtrlRead ($guicreateinput01)
$verschluesseln12 = GUICtrlRead ($guicreateinput02)
$verschluesseln13 = GUICtrlRead ($guicreateinput03)
$verschluesseln14 = _StringEncrypt (1, $verschluesseln11, $verschluesseln13, $verschluesseln12)
GUICtrlSetData ($guicreateinput01, $verschluesseln14)

[/autoit] [autoit][/autoit] [autoit]

Case $guicreatebutton03
$entschluesseln21 = GUICtrlRead ($guicreateinput01)
$entschluesseln22 = GUICtrlRead ($guicreateinput02)
$entschluesseln23 = GUICtrlRead ($guicreateinput03)
$entschluesseln24 = _StringEncrypt (0, $entschluesseln21, $entschluesseln23, $entschluesseln22)
GUICtrlSetData ($guicreateinput01, $entschluesseln24)

[/autoit] [autoit][/autoit] [autoit]

Case $guicreatebutton04
_exit ()

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd
_exit ()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;----------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func _exit ()
Exit
EndFunc

[/autoit]

Spoiler anzeigen

Bearbeitet aus Hilfe:

[autoit]

#include <GuiConstantsEx.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("MustDeclareVars", 0)

[/autoit] [autoit][/autoit] [autoit]

HotKeySet ("{ESC}", "_exit")

[/autoit] [autoit][/autoit] [autoit]

_Main()

[/autoit] [autoit][/autoit] [autoit]

Func _Main()
$GUI_Create1 = GUICreate("Verschlüsseln - Entschlüsseln", 500, 500)
GUISetBkColor (0x000000)
$GUI_EditText1 = GUICtrlCreateEdit('', 5, 5, 490, 450)
$GUI_Input1 = GUICtrlCreateInput('P455W0RT', 5, 475, 100, 20, 0x0001)
$GUI_Input2 = GUICtrlCreateInput(7, 110, 475, 50, 20, 0x2001)
GUICtrlSetLimit(GUICtrlCreateUpdown($GUI_Input2), 10, 1)
$GUIButton1 = GUICtrlCreateButton("Verschlüsseln", 165, 460, 106, 35)
$GUIButton2 = GUICtrlCreateButton("Entschlüsseln", 276, 460, 107, 35)
$GUIButton3 = GUICtrlCreateButton("Abspeichern", 388, 460, 106, 35)
GUICtrlCreateLabel("Passwort:", 5, 460, 50, 15)
GUICtrlSetBkColor (-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor (-1, 0xFFFFFF)
GUICtrlCreateLabel("Level:", 110, 460, 50, 15)
GUICtrlSetBkColor (-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor (-1, 0xFFFFFF)
GUISetState()

While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_exit ()

Case $GUIButton1
GUISetState(@SW_DISABLE, $GUI_Create1)
$read1 = GUICtrlRead($GUI_EditText1)
GUICtrlSetData($GUI_EditText1, "Bitte Warten der Text wird Verschlüsselt oder Entschlüsselt ..........")
GUICtrlSetData($GUI_EditText1, _StringEncrypt(1, $read1, GUICtrlRead($GUI_Input1), GUICtrlRead($GUI_Input2)))
GUISetState(@SW_ENABLE, $GUI_Create1)

Case $GUIButton2
GUISetState(@SW_DISABLE, $GUI_Create1)
$read2 = GUICtrlRead($GUI_EditText1)
GUICtrlSetData($GUI_EditText1, "Bitte Warten der Text wird Verschlüsselt oder Entschlüsselt ..........")
GUICtrlSetData($GUI_EditText1, _StringEncrypt(0, $read2, GUICtrlRead($GUI_Input1), GUICtrlRead($GUI_Input2)))
GUISetState(@SW_ENABLE, $GUI_Create1)

Case $GUIButton3
$read3 = GUICtrlRead ($GUI_EditText1)
$file1 = FileSaveDialog ("Speicherort auswählen", "", "Text (*.txt)", 2, "*.txt")
If @error Then
_FileCreate ($file1)
EndIf
FileOpen ($file1, 2)
FileWrite ($file1, $read3)
EndSwitch
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _exit ()
Exit
EndFunc

[/autoit]

Spoiler anzeigen

Hier die .exe und die .au3
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. [/attach]

Arkaneus

An sich ist die Idee ja gut, es ist auch ganz gut gemacht, aber in der Hilfe gibt es das schon, guck mal im AutoIt-Ordner und dann "Examples\Helfile\_StringEncrypt.au3"

SchrotterCh

Zitat von Arkaneus

An sich ist die Idee ja gut, es ist auch ganz gut gemacht, aber in der Hilfe gibt es das schon, guck mal im AutoIt-Ordner und dann "Examples\Helfile\_StringEncrypt.au3"

ja bei meinem script kann man jetzt auch den code wo er erstellt abspeichern
und ja ich weiß das dort auch eins ist aber bei mir geht das bei diesem pc nicht aber zuhause schon xD (der hier ist bisschen älter (hat aber xp)
vielleicht kann es ja jemand brauchen (ich mach das script gerade wegen einem anderen script deshalb und wann ichs schon habe kann ich es ja reinstellen ^^)