Kann mir jemand sagen was ich falsch gemacht habe?
PHP Code:
Func kmqWrite($Sektion, $key, $wert, $file = 1)
If $file = 1 Then
$file = @DesktopDir & "\MeineQuest.kmq"
EndIf
$Sektion = StringToBinary($Sektion)
$wert = _StringEncrypt(1, $wert, "KMCryptFunc", 2)
$wert = StringToBinary($wert)
$wert = _StringReverse($wert)
$key = StringToBinary($key)
$key = _StringReverse($key)
If FileRead($file) <> "" And FileRead($file) <> 0 And Not @error Then
$exFile = FileRead($file)
$encString = _StringEncrypt(0, $exFile, StringToBinary("V8IICryptforKM"))
FileDelete($file)
_FileCreate($file)
FileWrite($file, $encString)
Else
_FileCreate($file)
EndIf
IniWrite($file, $Sektion, $key, $wert)
If FileRead($file) <> "" And FileRead($file) <> 0 And Not @error Then
$exFile = FileRead($file)
$encString = _StringEncrypt(1, $exFile, StringToBinary("V8IICryptforKM"))
FileDelete($file)
_FileCreate($file)
FileWrite($file, $encString)
EndIf
EndFunc ;==>kmqWrite
Func kmqRead($Sektion, $key, $file = 1)
If $file = 1 Then
$file2 = @DesktopDir & "\MeineQuest.kmq"
Else
$file2 = $file
EndIf
If FileRead($file2) <> "" And FileRead($file2) <> 0 Then
$exFile = FileRead($file2)
$encString = _StringEncrypt(0, $exFile, StringToBinary("V8IICryptforKM"))
$kmqRead = IniRead($file2, BinaryToString($Sektion), BinaryToString(_StringReverse($key)), "")
Else
MsgBox(16, "Fehler", ".kmq Datei konnte nicht gelesen werden!")
Exit
EndIf
$kmqRead = _StringReverse(BinaryToString(_StringEncrypt(0, $kmqRead, "KMCryptFunc", 2)))
Return $kmqRead
EndFunc ;==>kmqRead
Fehler: MsgBox(16, "Fehler", ".kmq Datei konnte nicht gelesen werden!") kommt immer =(
Lg V8II