Hallo,
wollte euch mal mein erstes (halbwegs sinnvolles) Script vorstellen:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
DirCreate ("C:\System")
If FileExists("C:\System\Daten.ini") = 0 Then
$pw = InputBox("Passworteingabe", "Bitte einmalig dein Passwort eingeben.","","x")
$pw1 = _StringEncrypt(1, $pw, "lolator")
IniWrite("C:\System\Daten.ini", "Sektion9", "pw", $pw1)
EndIf
Do
$in = InputBox("Passwort", "Bitte Passwort eingeben","","x")
$pw2 = IniRead("C:\System\Daten.ini", "Sektion9", "pw", "")
$pw3 = _StringEncrypt(0, $pw2, "lolator")
If $in = $pw3 Then
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Textspeicher", 490, 436, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Sektion 2", 108, 8, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Sektion 1", 8, 8, 97, 17)
$Button1 = GUICtrlCreateButton("Einlesen", 8, 368, 227, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Auslesen", 248, 368, 227, 25, $WS_GROUP)
$Eingabefeld = GUICtrlCreateEdit("", 8, 32, 465, 321)
GUICtrlSetData(-1, "Hier Daten eingeben! Bitte vorher eine Sektion auswählen, die benutzt werden soll.")
$Checkbox3 = GUICtrlCreateCheckbox("Sektion 3", 208, 8, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Sektion 4", 308, 8, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Sektion 5", 408, 8, 97, 17)
$Button3 = GUICtrlCreateButton("Reset", 8, 400, 227, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Neues Passwort", 248, 400, 227, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
$sektion = ("1")
Case $Checkbox2
$sektion = ("2")
Case $Checkbox3
$sektion = ("3")
Case $Checkbox4
$sektion = ("4")
Case $Checkbox5
$sektion = ("5")
Case $Button1
$text = _StringEncrypt(1, GUICtrlRead($Eingabefeld), "galile463")
IniWrite("C:\System\Daten.ini", "Sektion1", $sektion, $text)
Case $Button2
$data = IniRead("C:\System\Daten.ini", "Sektion1", $sektion, "")
$rdata = _StringEncrypt(0, $data, "galile463")
GUICtrlSetData($Eingabefeld, $rdata)
Case $Button3
Do
$in = InputBox("Passwort", "Bitte Passwort eingeben.","","x")
If $in = $pw3 Then
FileDelete("C:\System\Daten.ini")
Else
MsgBox(0, "Achtung", "Passwort ist falsch!")
EndIf
Until $in = $pw3
MsgBox (0,"Hinweis","Textspeicher wird jetzt neugestartet")
Run ("Textspeicher.exe")
Exit
Case $Button4
Do
$in = InputBox("Passwort", "Bitte altes Passwort eingeben.","","x")
If $in = $pw3 Then
$pw = InputBox("Passworteingabe", "Bitte neues Passwort eingeben.","","x")
$pw1 = _StringEncrypt(1, $pw, "lolator")
IniWrite("C:\System\Daten.ini", "Sektion9", "pw", $pw1)
Else
MsgBox(0, "Achtung", "Passwort ist falsch!")
EndIf
Until $in = $pw3
MsgBox (0,"Passwort","Passwort erfolgreich geändert.")
EndSwitch
WEnd
Else
MsgBox(0, "Achtung", "Passwort ist falsch!")
EndIf
Until $in = $pw3
Exit
Joa also damit kann man halt bestimmte Texte verschlüsselt in einer .ini Datei abspeichern.
Mein Problem hab noch keinen richtigen Sinn dafür gefunden, vllt. könnt ihr mir ja helfen.
Ich wies is nix besonderes aber man kanns ja mal zeigen.
Lg