Ich habe mir aus lerngründen ein Script erstellt welches den _StringEncrypt Befehl nutzt um:
1.Einen benutzerdefinierten Text zu verschlüsseln
2.Ein vorher gewähltes Passwort mit hilfe eines in der data.ini definierten Benutzernamens zu verschlüsseln
Das Script ist ziemlich dämlich aufgebaut :D. Ich wollte zuerst testen ob es funktioniert und dann Ordnung hineinnbringen.
Leider bekomme ich immer wieder den Error das die $inputpw2 Variable bei Linie 40 nicht definiert ist, obwohl dies eigentlich der Fall sein sollte.
Ich bin mittlerweile so durcheinander, dass ich diesen vermutlich banalen Fehler in meinem Script nicht zu finden vermag.
Wie gesagt das Script habe ich nur geschrieben um zu verstehen wie man den _StringEncrypt Befehl benutzt.
Das Script:
Spoiler anzeigen
#include <String.au3>
[/autoit] [autoit][/autoit] [autoit]$inicheck = IniRead ("data.ini","Check","Check","Error")
[/autoit] [autoit][/autoit] [autoit]If $inicheck = "False" Then
$i_Encript = 1
$i_EncriptPw = 1
$inputtext = InputBox ("Text", "Zu verschlüsselnden Text bitte hier eingeben:")
Passwort()
Sleep (1000)
VerschluesselungPw()
Sleep (1000)
IniWriteFunc()
ElseIf $inicheck = "True" Then
$i_Encript = 0
$i_EncriptPw = 0
IniReadFunc()
Sleep (1000)
Abfrage()
Sleep (1000)
Anzeige()
Else
MsgBox (0,"Error","Bitte nicht an der data.ini herumspielen. (Oder sie sogar löschen)")
Exit
EndIf
Func IniWriteFunc()
IniWrite ("data.ini","Check","Check","True")
IniWrite ("data.ini","Input","Text",$inputtext)
IniWrite ("data.ini","Input","Passwort",$inputpw2)
EndFunc
Func IniReadFunc()
$inputtext = IniRead ("data.ini","Input","Text","Error")
$inputpw2 = IniRead ("data.ini","Input","Passwort","Error")
$username = IniRead ("data.ini","Input","Username","Error")
EndFunc
Func Verschluesselung()
_StringEncrypt ($i_Encript,$inputtext,$inputpw)
EndFunc
Func VerschluesselungPw()
_StringEncrypt ($i_EncriptPw,$inputpw2,$username)
EndFunc
Func Passwort()
$inputpw1 = InputBox ("Passwort", "Gewünschtes Passwort bitte hier eingeben:")
$inputpw2 = InputBox ("Passwort", "Gewünschtes Passwort bitte hier nochmal eingeben:")
If $inputpw1 = $inputpw2 Then
Else
MsgBox (0,"Fehler", "Die beiden Passwörter stimmen nicht überein!")
Passwort()
EndIf
EndFunc
Func Abfrage()
$inputusername = InputBox ("Abfrage", "Bitte ihren Benutzernamen eingeben:")
If $username = $inputusername Then
Else
MsgBox (0,"Zugriff verweigert", "Ihr Benutzername stimmt nicht")
Abfrage()
VerschluesselungPw()
EndIf
$inputpwcheck = InputBox ("Abfrage", "Bitte das Passwort eingeben:")
If $inputpwcheck = $inputpw2 Then
Verschluesselung()
Else
MsgBox (0,"Zugriff verweigert", "Ihr Passwort stimmt nicht mit dem ursprünglich gesetzten überein"
Abfrage()
EndIf
EndFunc
Func Anzeige()
MsgBox (0,"Erfolgreich entschlüsselt","Das ist ihr entschlüsselter Text:"&$inputtext)
Exit
EndFunc
data.ini ist natürlich mit dem nötigen Inhalt vorhanden.