Variable als INI behandeln?

Lottich

Ich hab eine, per Crypt.au3 verschlüsselte, INI Datei per FileRead eingelesen und entschlüsselt. Als ich den Inhalt in einer MsgBox aufrief, sah es wie eine richtige INI aus.
Aktuell erstelle ich zur Programmlaufzeit daraus eine temporäre Datei, die ich bei Programmbeendigung automatisch löschen lasse.

Gibt es eine Möglichkeit, dies zu umgehen, indem ich die FileRead-Variable als INI behandeln und daraus Daten abfragen kann?
Mit den herkömmlichen INI Befehlen klappt das natürlich nicht, weil die Datei nicht gefunden werden kann.

MfG Lo..

4ern

wenn du mit den herkömmlichen INI Befehlen arbeiten möchtest Nein. Ansonsten kannst du das in ein 3D aufteilen und mit dem Array weiterarbeiten.
Verstehe aber nicht wirklich, warum du die Datei nicht Temporär erstellen möchtest?

**Kanashius**

Hab mal ne kleine Funktionssammlung mit Beispiel geschrieben. Die kannst du benutzen.
Es darf nur kein = vorkommen (außer bei der key->schlüssel zuweisung) und es darf kein schlüssel mit "[" beginnen und dessen value auf "]" enden.
(Könnte man aber bestimmt auch noch ausbügeln ;))

AutoIt

#include <String.au3>
#include <array.au3>


$IniArray=_MemIni_readIni("[General]"&@crlf&"MainGui_X=-1"&@crlf&"MainGui_Y=0"&@crlf&"MainGui_Width=1920"&@crlf&"MainGui_Height=1090")
_ArrayDisplay(_MemIni_getAllChilds($IniArray,"General"))
msgbox(48,"",_MemIni_getKey($IniArray,"General","MainGui_Y"))
_MemIni_iniWrite($IniArray,"General","MainGui_X","1920")
_ArrayDisplay(_MemIni_getAllChilds($IniArray,"General"))
msgbox(48,"",_MemIni_getKey($IniArray,"General","MainGui_X"))
msgbox(48,"",_MemIni_getStringData($IniArray))


Func _MemIni_readIni($data)
	local $ar,$IniArray[0][2],$ar2
	$ar=StringSplit($data,@crlf,1+2)
	for $i=0 to UBound($ar)-1 step 1
		if $ar[$i]<>"" then
			if StringInStr($ar[$i],"[")=1 and StringInStr($ar[$i],"]",0,-1)=StringLen($ar[$i]) then
				ReDim $IniArray[UBound($IniArray)+1][2]
				$IniArray[UBound($IniArray)-1][0]=_StringBetween($ar[$i],"[","]")[0]
			else
				if $IniArray[UBound($IniArray)-1][1]<>"" then
					$IniArray[UBound($IniArray)-1][1]&="|#-#|"
				EndIf
				$IniArray[UBound($IniArray)-1][1]&=$ar[$i]
			endif
		endif
	next
	for $i=0 to UBound($IniArray)-1 step 1
		$IniArray[$i][1]=StringSplit($IniArray[$i][1],"|#-#|",1+2)
		$ar=$IniArray[$i][1]
		local $ar3[UBound($ar)][2]
		for $l=0 to UBound($ar)-1 step 1
			$ar2=StringSplit($ar[$l],"=",1+2)
			$ar3[$l][0]=$ar2[0]
			$ar3[$l][1]=$ar2[1]
		Next
		$IniArray[$i][1]=$ar3
	Next
	return $IniArray
EndFunc


Func _MemIni_getAllChilds($array,$cat)
	$index=_ArraySearch($array,$cat)
	if $index<>-1 then
		return $array[$index][1]
	endif
	SetError(-1,0,-1)
EndFunc


Func _MemIni_getKey($array,$cat,$key)
	$index=_ArraySearch($array,$cat)
	if $index<>-1 then
		$array=$array[$index][1]
		$index=_ArraySearch($array,$key)
		if $index<>-1 then
			return $array[$index][1]
		endif
	endif
	SetError(-1,0,-1)
EndFunc


Func _MemIni_iniWrite(ByRef $array,$cat,$key,$value)
	$index=_ArraySearch($array,$cat)
	if $index<>-1 then
		$array2=$array[$index][1]
		$index=_ArraySearch($array2,$key)
		if $index<>-1 then
			$array2[$index][1]=$value
		else
			ReDim $array2[UBound($array2)+1][2]
			$array2[UBound($array2)-1][0]=$key
			$array2[UBound($array2)-1][1]=$value
		endif
		$array[$index][1]=$array2
	else
		ReDim $array[UBound($array)+1][2]
		$array[UBound($array)-1][0]=$cat
		local $array2[1][2]
		$array2[UBound($array2)-1][0]=$key
		$array2[UBound($array2)-1][1]=$value
		$array[UBound($array)-1][1]=$array2
	endif
EndFunc


Func _MemIni_getStringData($array)
	$string=""
	for $i=0 to UBound($array)-1 step 1
		$string&="["&$array[$i][0]&"]"&@crlf
		$ar=$array[$i][1]
		for $l=0 to UBound($ar)-1 step 1
			$string&=$ar[$l][0]&"="
			$string&=$ar[$l][1]&@crlf
		next
	next
	return $string
EndFunc

Alles anzeigen

**Xorianator**

@Kanashius drücke mal "STRG+T" in SciTE, dann wird dein Code auch ordentlich formatiert

**chesstiger**

Das wäre sicherlich auch sehr komfortabel mit regulären Ausdrücken zu lösen. Ich meine auch, mich an eine INI-UDF hier im Forum erinnern zu können... Ich bin mir aber nicht sicher, einen Link habe ich leider auch nicht zur Hand.

**Kanashius**

@Xorinator: Das mit den Tabs wird von der Seite hier leider zerstört... Was die Leerzeichen zwischen zahlen, etc. angeht: Ich mag die nicht. Ist nicht mein Style. Kannst ja bei dir Tidy nutzen, ich vermeide es leiber

Friesel

Moin!

Wie chesstiger schon sagte, ist RegEx der "Schlüssel"
Kann man sehr kompakt mit nem Ein-Zeiler lösen.
Gibt bestimmt schönere Pattern, aber meiner funktioniert soweit gut:

[autoit]

;~ $sIni = FileRead("C:\beliebigeDatei.beliebigerSuffix");solange die Datei Text nach "Ini-Standard" enthält funktionierts

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

;nur eine Demo-INI ==> kann weg
$sIni = "[Sektion1]" & @CRLF & _
"Key1=1234" & @CRLF & _
"Schlüssel1=Hallo, ich bin ein Schlüssel aus Sektion 1!" & @CRLF & _
"CaseSense=Gross-/Kleinschreibung ist nicht relevant" & @CRLF & _
"[Sektion2]" & @CRLF & _
"Schlüssel1=Hallo, ich bin ein Schlüssel aus Sektion 2!" & @CRLF & _
"Schluessel2=Ich auch!"
;nur eine Demo-INI ==> kann weg

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

$sIni &= @CRLF ;ohne abschliessenden Zeilenumbruch wird die letzte Zeile nicht gefunden

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

$sIniRead = _IniRead($sIni, "Sektion1", "Schlüssel1", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "Sektion2", "Schlüssel1", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "Sektion2", "Schluessel2", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "seKtion1", "cASEsENSE", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "Sektion2", "Streuselkuchen", "kuchen")
MsgBox(0, "", "Streusel" & $sIniRead)

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

Func _IniRead($sText, $sSection, $sKey, $sDefault)
$aHits = StringRegExp($sText, "(?i)(?s)\[" & $sSection & "\].+?" & $sKey & "=(.+?)\r\n", 3)
If IsArray($aHits) Then Return $aHits[0]
Return $sDefault
EndFunc

[/autoit]

Xorianator: Weder "STRG-T" noch sonstiges Hexenwerk helfen bei der neuen Boardsoftware. Sämtliche Formatierung wird gnadenlos zerschossen...

**Kanashius**

[General]
key1=value1
[other]
key2=value2

-> bei dir ergibt _IniRead("s.o.","General", "key2",-1)
ergibt bei dir, wenn ich mich nicht irre value2, obwohl er nicht in der Kategorie vorhanden ist

Friesel

Jo, stimmt, den Fall hatte ich übersehn. Hab jetzt aber keine Zeit das umzuschreiben. Mache ich heute nachmittag...

**Andy**

Hi zusammen,

bei dieser Art Fragestellung wird mir immer übel, bei den Antworten auch.
Eine INI-Datei zu verschlüsseln und per AutoIt einzulesen macht genau in EINER Konfiguration Sinn, und zwar dann, wenn die INI-Datei selbst erstellt und somit auch verschlüsselt wird.

Die Frage stellt sich, wieso überhaupt eine INI (steht übrigens für Initialisierung, da steht grundsätzlich NICHTS drin, was verschlüsselt werden muss! ) verwendet wird, und nicht einfach eine "normale" Textdatei. Wobei eine INI-Datei natürlich auch nichts weiter wie eine stinknormale Textdatei ist...

Diese Textdatei kann man (genau wie die INI übrigens) einfach bereits verschlüsselt auf den Datenträger schreiben und beim Einlesen in den SPEICHER entschlüsseln.
Die Schattenkopie einer auf den Datenträger entschlüsselten und nachher gelöschten Textdatei ist mit Windows Bordmitteln übrigens simpelst auszulesen!

Und wer jetzt argumentieren sollte, dass
- INI-Dateigedöns mit den entsprechenden AutoIt-Befehlen einfach abzuwickeln ist,
- INI-Dateien einfach zu verschlüsseln sind,
- INI-Dateien soooo wichtige Daten eigentlich garnicht enthalten, dass man gelöschte Dateien nicht explizit erasen muss,
dem entgegne ich:
Lernt "richtig" programmieren, damit diese pseudo-einfachen Krücken wie INI genau da bleiben wo sie hingehören, nämlich um beim Programmstart bestimmte und ggf. per jedem Texteditor bearbeitbare Parameter bereitzustellen.

Wer "Verschlüsselung" und *.INI in einem Zusammenhang verwendet, sollte sich fragen, ob es nicht besser ist, die Einträge in der INI-Datei zu verschlüsseln (Base64 bspw.) statt die komplette Datei!

Lottich

Andy:
Ob dir beim Lesen meiner Frage schlecht wird oder nicht, ist mir ziemlich egal. Ich nutze für mich die INI Funktionen tatsächlich, weil sich mein Tool damit am einfachsten umsetzen lässt! Es ist ein eigener, nur für mich zugänglicher Passwortspeicher. Die Ini hab ich umbenannt in eine DLL. Hab hier mal irgendwo gelesen, dass ein User das auch so macht, damit unbefugte nicht so einfach an die Daten kommen. Leider kann man eine so erstellte Pseudo-DLL trotzdem einfach mit einem herkömmlichen Texteditor öffnen und die Daten sehen, weshalb ich das Ganze noch verschlüsselt hab. Es gibt GARANTIERT bessere Möglichkeiten um dieses Passworttool umzusetzen damit auch ein Profi wie du nichts daran auszusetzen hat. Aber warum sollte ich das tun? Es ist nur für mich. Und ich "baue" für mich so, dass mein Zweck erfüllt wird. Mir ist es egal, ob sich andere darüber aufregen ( ha, scheinbar doch nicht, sonst würde ich mich nicht rechtfertigen ^^).
Und ganz davon abgesehen: vielleicht bin ich ja nicht der einzige, dem sowas wie _MEM_IniReadSectionNames() als nützlich erscheint?!

Aber nun zurück zum Thema.

Hallo, danke für eure Hilfe. Nach mehrfachen rumprobieren stellt sich heraus, dass die von Kanashius geschriebenen Funktionen am effektivsten sind.
Leider funktionieren einige Funktionen noch nicht ( _MemIni_getKey(), _MemIni_iniWrite() und _MemIni_getStringData() ).

Warum Friesels Beispiel nicht funktioniert ist mir noch unklar, denn sein Inibeispiel wird (natürlich) fehlerfrei abgewickelt.
Ich hab in meinem Script beide Varianten durchprobiert. Mit den jeweiligen Beispielen und mit meiner eingelesenen Datei.

[autoit]

Global $sIni = BinaryToString(_Crypt_DecryptData(FileRead("als DLL getarnte INI"), "irgendeinText", $CALG_AES_256))

[/autoit]

Das gibt mir, zumindest rein optisch, den INI Inhalt wieder und ist auch so aufgebaut wie das IniBeispiel von Friesel.

Kanashius: Ich hab deine Funktionen, bei denen ich die Sektionsnamen sowie die den Sektionsinhalt zurück bekomme so abgeändert, dass ich in $array[0] den Index stehen habe. Schade, dass die bereits oben erwähnten Funktionen nicht klappen, wäre schön, wenn wir das gemeinsam noch zurechtbiegen könnten.

**autoiter**

Friede Lottich,
der Andy ist in seiner Art einfach sehr ruppig, wenn ihm etwas nicht passt. Ich habe da auch schon mehrfach zu Antworten angesetzt (auch wenn ich nicht direkt betroffen war), aber am Ende doch nichts geschrieben. Denn auch wenn er nicht immer nett ist, pöbelt er auch nicht. Selbst aus den Kommentaren, die man ärgerlich findet, kann man sich nützliche Informationen ziehen.
Bleib ruhig bei deinem Weg, der für deine Situation passt. Im Kopf hast du jetzt einfach auch Schwachstellen der Vorgehensweise an sich und weitere Optionen. Das ist eigentlich gut

**Andy**

Zitat von autoiter

Selbst aus den Kommentaren, die man ärgerlich findet, kann man sich nützliche Informationen ziehen.

Bleib ruhig bei deinem Weg, der für deine Situation passt. Im Kopf hast du jetzt einfach auch Schwachstellen der Vorgehensweise an sich und weitere Optionen. Das ist eigentlich gut

...eigentlich gut. Und uneigentlich?

@Lottich
du hast selbst gemerkt, dass dein Ansatz gelinde gesagt problematisch ist und nicht wie gedacht funktioniert. Ansonsten wäre der Startpost überflüssig!
Hier (und mir) geht´s nicht darum, irgendwen runterzumachen und den "Profi" raushängen zu lassen, der ich btw. auch garnicht bin!
Es geht darum, dass offensichtliche Schei*** NIE, und auch wirklich NIE, zu Gold gemacht werden kann.
Du kannst das gerne versuchen, und auch gerne davon überzeugt sein, aber es funktioniert trotzdem nicht.
Jeder von uns "älteren Autodidakten" ist an diesem Punkt irgendwann schon angekommen und glaub mir, wir haben ALLE dabei schon gekotzt.
Die Kunst ist, über seinen eigenen Schatten zu springen und diese Tatsache zu akzeptieren und dann einen anderen Weg zu wählen. Ob diese Alternative nun besser ist oder nicht, ist zunächst völlig zweitrangig. dafür muss man ausprobieren und ggf. wieder auf die Schnauze fallen. Und das so lange, bis man sich selbst auf die Schulter hauen kann, weil man KEINEN MURKS vorliegen hat!
DAS ist die persönliche Entwicklung, die dich vorwärts bringt. Und nicht nur beim Programmieren. Denk mal drüber nach ob du als Firmeninhaber lieber einen klugscheißenden, aber immer wieder an falschen Konzepten hinterherrennenden Mitarbeiter haben willst, oder einen Klugscheißer, der, nachdem er auf das falsche Konzept aufmerksam gemacht wurde, am nächsten Tag eine geänderte Lösung vorlegt....

Autodidakten sind per se ja nichts schlechtes
Man kann auch, was wesentlich einfacher ist, in einem Forum wie diesem sein Vorhaben darstellen und die möglichen Lösungen diskutieren.
Dafür ist imho ein Forum da! Und nicht dafür, einen an die Wand gefahrenen Karren schönzureden und bissl Blech auszubeulen. Der grundlegende Schrott bleibt dabei erhalten und hilft ehrlich gesagt niemandem anderen, der diese Threads später bei einer Suche findet....

Zitat von Lottich

Schade, dass die bereits oben erwähnten Funktionen nicht klappen

Diese Funktionen doktern auch nur an den Symptomen rum. Wieso versuchst du nicht, direkt das Problem zu lösen?

Lottich

Es ist ja eigentlich gar kein Problem. Zumindest sehe ich es nicht als ein solches an. Aktuell funktioniert mein Tool ja reibungslos.
Ich möchte ja nur verhindern, dass andere Nutzer meines PCs nicht an die Daten in der INI kommen. deshalb das (vielleicht überflüssige) umbenennen in eine DLL und das anschliessende verschlüsseln.

Zur Zeit kann man aber immer noch an die Daten gelangen wenn das Programm ausgeführt wird. Denn DANN liegt diese INI lesbar vor.
Gut, sie ist als DLL getarnt, die man mit einfachem Doppelklick nicht öffnen kann, aber sobald sie in einem Texteditor öffnet, kann man alles in Klarsicht lesen.
Das gilt für mich zu verhindern. Darum dachte ich mir, mit der eingelesenen verschlüsselten Datei weiter zu arbeiten.
Für mich scheint es die optimalste Lösung zu sein, wenn man die herkömmlichen INI Funktionen so abändern könnte, dass eben auch solche per FileRead eingelesenen Daten verarbeitet werden können.

BTW: Für mich bist du sehrwohl ein Profi und nein, das ist kein rumgeschleime, nur eine (seit Ewigkeiten bestehende) Feststellung.
Ich hoffe, morgen gehts weiter, muss jetzt zur Nachtschicht. Bis dann.

**Kanashius**

Also bei mir funktionieren die Funktionen alle...
Eventuell stimmt da was nicht, schreib mir doch mal bitte ein beispiel (auch per PN, falls die sachen verschlüsselt sein müssten ;)), wie es bei dir nicht funktioniert.

**autoiter**

Zitat von Andy

...eigentlich gut. Und uneigentlich?

OT: Eigentlich wollte ich Lottich beruhigen. Eigentlich kann man das verstehen, wenn man möchte. Ein uneigentlich muss es dabei nicht geben. Dabei können wir es doch sicher bewenden lassen Andy.

Lottich

autoiter: Danke fürs Schlichten, ist aber nicht nötig. Hab mir schon vor Monaten ein dickes Fell bei eBay ersteigert

also hier das Script. Es enthält eine Beispiel ini, so wie sie bei mir aufgebaut ist. unverschlüsselt, aber als DLL getarnt.
Sie wird bei Scriptausführung im @ScriptDir unter dem Namen test.dll via Base64 erstellt. Wer sich den Code ansieht, wird feststellen, dass KEINE DLL Calls oder ähnliches
durchgeführt werden. Sie enthält definitiv keine Schadfunktionen. Nach durchlauf des Scripts, wird diese wieder gelöscht, damit kein Datenmüll bei euch bleibt, sofern ihr es testen wollt.

Hier also das Script:

AutoIt

#include <Array.au3>
#include <String.au3>


Global $TheFile = @ScriptDir & "\test.dll" ; Beispielinhalt der fertig entschlüsselten Datei
If Not FileExists($TheFile) Then _Base64String($TheFile)
Global $ReadFile = FileRead($TheFile)


MsgBox(0, "", $ReadFile) ; Testdarstellung meines INI Beispiels




; hier die Test INI von Kanashius
$IniArray = _MemIni_readIni("[General]" & @CRLF & "MainGui_X=-1" & @CRLF & "MainGui_Y=0" & @CRLF & "MainGui_Width=1920" & @CRLF & "MainGui_Height=1090")
_ArrayDisplay($IniArray, "Meldung 1 - 1/6")
_ArrayDisplay(_MemIni_getAllChilds($IniArray, "General"), "Meldung 1 - 2/6")
MsgBox(48, "Meldung 1 - 3/6", _MemIni_getKey($IniArray, "General", "MainGui_Y"))
_MemIni_iniWrite($IniArray, "General", "MainGui_X", "1234")
_ArrayDisplay(_MemIni_getAllChilds($IniArray, "General"), "Meldung 1 - 4/6")
MsgBox(48, "Meldung 1 - 5/6", _MemIni_getKey($IniArray, "General", "MainGui_X"))
MsgBox(48, "Meldung 1 - 6/6", _MemIni_getStringData($IniArray))




; hier meine Test INI
$IniArray = _MemIni_readIni($ReadFile)
_ArrayDisplay($IniArray, "Meldung 2 - 1/6")
_ArrayDisplay(_MemIni_getAllChilds($IniArray, "Amazon"), "Meldung 2 - 2/6")
MsgBox(48, "Meldung 2 - 3/6", _MemIni_getKey($IniArray, "Amazon", "Passwort"))
_MemIni_iniWrite($IniArray, "Amazon", "Passwort", "neues Passwort")
_ArrayDisplay(_MemIni_getAllChilds($IniArray, "Amazon"), "Meldung 2 - 4/6")
MsgBox(48, "Meldung 2 - 5/6", _MemIni_getKey($IniArray, "Amazon", "Passwort"))
MsgBox(48, "Meldung 2 - 6/6", _MemIni_getStringData($IniArray))




FileDelete($TheFile)




Func _MemIni_readIni($data)
	Local $ar, $IniArray[0][2], $ar2
	$ar = StringSplit($data, @CRLF, 1 + 2)
	For $i = 0 To UBound($ar) - 1 Step 1
		If $ar[$i] <> "" Then
			If StringInStr($ar[$i], "[") = 1 And StringInStr($ar[$i], "]", 0, -1) = StringLen($ar[$i]) Then
				ReDim $IniArray[UBound($IniArray) + 1][2]
				$IniArray[UBound($IniArray) - 1][0] = _StringBetween($ar[$i], "[", "]")[0]
			Else
				If $IniArray[UBound($IniArray) - 1][1] <> "" Then
					$IniArray[UBound($IniArray) - 1][1] &= "|#-#|"
				EndIf
				$IniArray[UBound($IniArray) - 1][1] &= $ar[$i]
			EndIf
		EndIf
	Next
	For $i = 0 To UBound($IniArray) - 1 Step 1
		$IniArray[$i][1] = StringSplit($IniArray[$i][1], "|#-#|", 1 + 2)
		$ar = $IniArray[$i][1]
		Local $ar3[UBound($ar)][2]
		For $l = 0 To UBound($ar) - 1 Step 1
			$ar2 = StringSplit($ar[$l], "=", 1 + 2)
			$ar3[$l][0] = $ar2[0]
			$ar3[$l][1] = $ar2[1]
		Next
		$IniArray[$i][1] = $ar3
	Next
	Return $IniArray
EndFunc   ;==>_MemIni_readIni




Func _MemIni_getAllChilds($array, $cat)
	$index = _ArraySearch($array, $cat)
	If $index <> -1 Then
		Return $array[$index][1]
	EndIf
	SetError(-1, 0, -1)
EndFunc   ;==>_MemIni_getAllChilds




Func _MemIni_getKey($array, $cat, $key)
	$index = _ArraySearch($array, $cat)
	If $index <> -1 Then
		$array = $array[$index][1]
		$index = _ArraySearch($array, $key)
		If $index <> -1 Then
			Return $array[$index][1]
		EndIf
	EndIf
	SetError(-1, 0, -1)
EndFunc   ;==>_MemIni_getKey




Func _MemIni_iniWrite(ByRef $array, $cat, $key, $value)
	$index = _ArraySearch($array, $cat)
	If $index <> -1 Then
		$array2 = $array[$index][1]
		$index = _ArraySearch($array2, $key)
		If $index <> -1 Then
			$array2[$index][1] = $value
		Else
			ReDim $array2[UBound($array2) + 1][2]
			$array2[UBound($array2) - 1][0] = $key
			$array2[UBound($array2) - 1][1] = $value
		EndIf
		$array[$index][1] = $array2
	Else
		ReDim $array[UBound($array) + 1][3]
		$array[UBound($array) - 1][0] = $cat
		$array2 = $array[UBound($array) - 1][1]
		ReDim $array2[UBound($array2) + 1][2]
		$array2[UBound($array2) - 1][0] = $key
		$array2[UBound($array2) - 1][1] = $value
		$array[$index][1] = $array2
	EndIf
EndFunc   ;==>_MemIni_iniWrite




Func _MemIni_getStringData($array)
	$string = ""
	For $i = 0 To UBound($array) - 1 Step 1
		$string &= "[" & $array[$i][0] & "]" & @CRLF
		$ar = $array[$i][1]
		For $i = 0 To UBound($ar) - 1 Step 1
			$string &= $ar[$i][0] & "="
			$string &= $ar[$i][1] & @CRLF
		Next
	Next
	Return $string
EndFunc   ;==>_MemIni_getStringData


; ================= BASE 64 =================
Func _Base64String($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Base64String
	$Base64String &= 'W0F1ZGlibGVdDQpBZHJlc3NlPWh0dHBzOi8vd3d3LmF1ZGlibGUuZGUvc2lnbi1pbg0KVXNlcm5hbWU9QXVkaWJsZU5pY2tuYW1lDQpQYXNzd29ydD1BdWRpYmxlUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MTMuMDYuMjAxMg0KDQpbQXV0b0l0XQ0KQWRyZXNzZT1odHRwczovL2F1dG9pdC5kZS9pbmRleC5waHAvTG9naW4NClVzZXJuYW1lPUF1dG9JdE5pY2tuYW1lDQpQYXNzd29ydD1BdXRvSXRQYXNzd29ydA0KbGFzdCBtb2RpZmllZD0wNy4wNi4yMDE0DQoNCltnbXguZGVdDQpBZHJlc3NlPWh0dHBzOi8vd3d3LmdteC5kZQ0KVXNlcm5hbWU9R214Tmlja25hbWUNClBhc3N3b3J0PUdteFBhc3N3b3J0DQpsYXN0IG1vZGlmaWVkPTEyLjExLjIwMTQNCg0KW0FtYXpvbl0NCkFkcmVzc2U9aHR0cHM6Ly93d3cuYW1hem9uLmRlL3NpZ24taW4NClVzZXJuYW1lPUFtYXpvbk5pY2tuYW1lDQpQYXNzd29ydD1BbWF6b25QYXNzd29ydA0KbGFzdCBtb2RpZmllZD0yMC4wNi4yMDEyDQoNCltCZWNrZXIgTmF2aWdhdGlvbl0NCkFkcmVzc2U9aHR0cDovL3Nob3AubW9iaWxlbmF2aWdhdGlvbi5teWJlY2tlci5jb20vaW5kZXgucGhwPw0KVXNlcm5hbWU9QmVja2VyTmlja25hbWUNClBhc3N3b3J0PUJlY2tlclBhc3N3b3J0DQpsYXN0IG1vZGlmaWVkPTIyLjA2LjIwMTINCg0KWzEgdW5kIDEgTG9naW5dDQpBZHJlc3NlPWh0dHA6Ly93d3cuMXVuZDEuZGUvbG9naW4NClVzZXJuYW1lPTF1bmQxTmlja25hbWUNClBhc3N3b3J0PTF1bmQxUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MDIuMTAuMjAxMg0KDQpbUGF5UGFsXQ0KQWRyZXNzZT1odHRwczovL3d3dy5wYXlwYWwuY29tL2RlL2NnaS1iaW4vd2Vic2NyP2NtZD1fbG9naW4tcnVuDQpVc2VybmFtZT1QYXlQYWxOaWNrbmFtZQ0KUGFzc3dvcnQ9UGF5UGFsUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MjkuMDQuMjAxNQ0KDQpbT3JpZ2luIChFQSldDQpBZHJlc3NlPWh0dHBzOi8vY29ubmVjdC5vcmlnaW4uY29tL2RlL2xvZ2luDQpVc2VybmFtZT1PcmlnaW5OaWNrbmFtZQ0KUGFzc3dvcnQ9T3JpZ2luUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MDguMDIuMjAxMw0KDQpbR29vZ2xlIHBsYXldDQpBZHJlc3NlPWh0dHBzOi8vYWNjb3VudHMuZ29vZ2xlLmNvbS9TZXJ2aWNlTG9naW4NClVzZXJuYW1lPUdvb2dsZU5pY2tuYW1lDQpQYXNzd29ydD1Hb29nbGVQYXNzd29ydA0KbGFzdCBtb2RpZmllZD0wOC4wMi4yMDEzDQoNCltQbGF5c3RhdGlvbiBOZXR3b3JrXQ0KQWRyZXNzZT1odHRwczovL2FjY291bnQuc29ueWVudGVydGFpbm1lbnRuZXR3b3JrLmNvbS9sb2dpbi5hY3Rpb24NClVzZXJuYW1lPVBTTiBOaWNrbmFtZQ0KUGFzc3dvcnQ9UFNOIFBhc3N3b3J0DQpsYXN0IG1vZGlmaWVkPTA4LjA1LjIwMTMNCg0KW0VtYWlsXQ0KQWRyZXNzZT1odHRwczovL3d3dy53ZWIuZGUvZm0NClVzZXJuYW1lPUVtYWlsIE5pY2sNClBhc3N3b3J0PUVtYWlsIFBhc3MNCmxhc3QgbW9kaWZpZWQ9MDYuMDIuMjAxNA0KDQpbVGVh'
	$Base64String &= 'bXZpZXdlciBLb250b10NCkFkcmVzc2U9aHR0cHM6Ly9sb2dpbi50ZWFtdmlld2VyLmNvbS8NClVzZXJuYW1lPVRlYW12aWV3ZXIgTmljaw0KUGFzc3dvcnQ9VGVhbXZpZXdlciBQYXNzDQpsYXN0IG1vZGlmaWVkPTA0LjA4LjIwMTQNCg0KW2R1bW15IGJlc2NocmVpYnVuZ10NCkFkcmVzc2U9ZHVtbXkgd2Vic2l0ZSDCtQ0KVXNlcm5hbWU9ZHVtbXkgdXNlciDcDQpQYXNzd29ydD1kdW1teSBwYXNzd29yZCDfDQpsYXN0IG1vZGlmaWVkPWR1bW15IGRhdGU='
	Local Const $bString = Binary(_WinAPI_Base64Decode($Base64String))
	If $bSaveBinary Then
		Local Const $hFile = FileOpen($sSavePath & "\test.dll", 18)
		If @error Then Return SetError(1, 0, 0)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Base64String


Func _WinAPI_Base64Decode($sB64String)
	Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
	Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
	$aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Alles anzeigen

Edit 1: Mein Aufbau der INI war fehlerhaft. Deshalb haben einige Funktionen nicht geklappt. Ich hatte, der Optik wegen, die = Zeichen so gesetzt, dass sie eine gerade Linie nach unten bildeten. Deshalb waren offenbar zuviele Leerzeichen oder @TAB zwischen dem Schlüssel und dem = Zeichen. Nachdem ich das geändert hab funktioniert nun fast alles.
Die letzte Funktion _MemIni_getStringData() wird nicht beendet bzw scheint zu hängen und _MemIni_iniWrite() ändert den Wert nicht.

Edit 2: Nach gut 190 Sekunden bricht AutoIt das Script ab mit der Fehlermeldung: "Error allocating memory", da hängt es dann in der Funktion _MemIni_getStringData() fest.

**Kanashius**

Im _MemIni_iniWrite() die for-variable in der zweiten schleife auf $l oder so ändern

Inder _MemIni_write hab ich nur nen fehler gefunden, wenn der Wert neu in die Kategorie muss. Dort könntest du, falls der Fehler mit der Änderung immernoch vorhanden ist mal debuggen
Mit meinem Funktionierts...

Spoiler anzeigen

AutoIt

Func _MemIni_iniWrite(ByRef $array,$cat,$key,$value)
	$index=_ArraySearch($array,$cat)
	if $index<>-1 then
		$array2=$array[$index][1]
		$index=_ArraySearch($array2,$key)
		if $index<>-1 then
			$array2[$index][1]=$value
		else
			ReDim $array2[UBound($array2)+1][2]
			$array2[UBound($array2)-1][0]=$key
			$array2[UBound($array2)-1][1]=$value
		endif
		$array[$index][1]=$array2
	else
		ReDim $array[UBound($array)+1][2]
		$array[UBound($array)-1][0]=$cat
		local $array2[1][2]
		$array2[UBound($array2)-1][0]=$key
		$array2[UBound($array2)-1][1]=$value
		$array[UBound($array)-1][1]=$array2
	endif
EndFunc

Alles anzeigen

Werds auch oben ändern.

Lottich

hi Kanashius

Hab in der letzten Funktion $i zu $k geändert und nun klappts. Da hätt ich aber auch selber drauf kommen können/müssen.
Leider besteht das Problem bei _MemIni_iniWrite noch immer.
Nachdem ich auf Fehlersuche ging, stellte sich heraus, dass es eigentlich funktionieren sollte.
Die Funktion findet die Sektion, den Schlüssel und den Wert. Der Wert wird auch innerhalb der Funktion geändert.
2MsgBoxen und 1 _ArrayDisplay() innerhalb besagter Funktion beweisen das.

Aber im Gegensatz zur von dir im Script erstellten Beispiel INI, wo es natürlich reibungslos klappt, wird es bei mir nicht übernommen,
obwohl ein und die selbe Funktion zum Einsatz kommt

nochmals aktualisierter Code mit echter INI (nicht als DLL)

AutoIt

#include <Array.au3>
#include <String.au3>


Global $TheFile = @ScriptDir & "\test.ini" ; Beispielinhalt der fertig entschlüsselten Datei
If Not FileExists($TheFile) Then _Base64String($TheFile)






;~ Global $IniArray=_MemIni_readIni("[General]"&@crlf&"MainGui_X=-1"&@crlf&"MainGui_Y=0"&@crlf&"MainGui_Width=1920"&@crlf&"MainGui_Height=1090")
;~ _MemIni_iniWrite($IniArray,"General","MainGui_X","1920")
;~ _ArrayDisplay(_MemIni_getAllChilds($IniArray, "General"))


Global $IniArray = _MemIni_readIni(FileRead($TheFile))
_ArrayDisplay(_MemIni_getAllChilds($IniArray, "PayPal"), "VOR _MemIni_iniWrite()")
_MemIni_iniWrite($IniArray, "PayPal", "Passwort", "neues Passwort")
_ArrayDisplay(_MemIni_getAllChilds($IniArray, "PayPal"), "NACH _MemIni_iniWrite()")






Func _MemIni_iniWrite(ByRef $array, $cat, $key, $value)
	$index = _ArraySearch($array, $cat)
	If $index <> -1 Then
		$array2 = $array[$index][1]
		$index = _ArraySearch($array2, $key)
		If $index <> -1 Then
			MsgBox(0, "altes Passwort", $array2[$index][1])
			$array2[$index][1] = $value
			MsgBox(0, "neues Passwort", $array2[$index][1])
		Else
			ReDim $array2[UBound($array2) + 1][2]
			$array2[UBound($array2) - 1][0] = $key
			$array2[UBound($array2) - 1][1] = $value
		EndIf
		$array[$index][1] = $array2
		;bis hier her funktioniert es, wie die beiden MsgBoxen und das nächste _ArrayDisplay beweisen.
		;Aber es wird einfach nicht übernömmen.
		_ArrayDisplay($array[$index][1], "Array aus der Funktion")
	Else
		ReDim $array[UBound($array) + 1][2]
		$array[UBound($array) - 1][0] = $cat
		Local $array2[1][2]
		$array2[UBound($array2) - 1][0] = $key
		$array2[UBound($array2) - 1][1] = $value
		$array[UBound($array) - 1][1] = $array2
	EndIf
EndFunc   ;==>_MemIni_iniWrite


#Region  ;  funktionierende Funktionen
Func _MemIni_readIni($data)
	Local $ar, $IniArray[0][2], $ar2
	$ar = StringSplit($data, @CRLF, 1 + 2)
	For $i = 0 To UBound($ar) - 1 Step 1
		If $ar[$i] <> "" Then
			If StringInStr($ar[$i], "[") = 1 And StringInStr($ar[$i], "]", 0, -1) = StringLen($ar[$i]) Then
				ReDim $IniArray[UBound($IniArray) + 1][2]
				$IniArray[UBound($IniArray) - 1][0] = _StringBetween($ar[$i], "[", "]")[0]
			Else
				If $IniArray[UBound($IniArray) - 1][1] <> "" Then
					$IniArray[UBound($IniArray) - 1][1] &= "|#-#|"
				EndIf
				$IniArray[UBound($IniArray) - 1][1] &= $ar[$i]
			EndIf
		EndIf
	Next
	For $i = 0 To UBound($IniArray) - 1 Step 1
		$IniArray[$i][1] = StringSplit($IniArray[$i][1], "|#-#|", 1 + 2)
		$ar = $IniArray[$i][1]
		Local $ar3[UBound($ar)][2]
		For $l = 0 To UBound($ar) - 1 Step 1
			$ar2 = StringSplit($ar[$l], "=", 1 + 2)
			$ar3[$l][0] = $ar2[0]
			$ar3[$l][1] = $ar2[1]
		Next
		$IniArray[$i][1] = $ar3
	Next
	Return $IniArray
EndFunc   ;==>_MemIni_readIni


Func _MemIni_getAllChilds($array, $cat)
	$index = _ArraySearch($array, $cat)
	If $index <> -1 Then
		Return $array[$index][1]
	EndIf
	SetError(-1, 0, -1)
EndFunc   ;==>_MemIni_getAllChilds


Func _MemIni_getKey($array, $cat, $key)
	$index = _ArraySearch($array, $cat)
	If $index <> -1 Then
		$array = $array[$index][1]
		$index = _ArraySearch($array, $key)
		If $index <> -1 Then
			Return $array[$index][1]
		EndIf
	EndIf
	SetError(-1, 0, -1)
EndFunc   ;==>_MemIni_getKey


Func _MemIni_getStringData($array)
	$string = ""
	For $i = 0 To UBound($array) - 1 Step 1
		$string &= "[" & $array[$i][0] & "]" & @CRLF
		$ar = $array[$i][1]
		For $k = 0 To UBound($ar) - 1 Step 1
			$string &= $ar[$k][0] & "="
			$string &= $ar[$k][1] & @CRLF
		Next
	Next
	Return $string
EndFunc   ;==>_MemIni_getStringData


Func _Base64String($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Base64String
	$Base64String &= 'W0F1ZGlibGVdDQpBZHJlc3NlPWh0dHBzOi8vd3d3LmF1ZGlibGUuZGUvc2lnbi1pbg0KVXNlcm5hbWU9QXVkaWJsZU5pY2tuYW1lDQpQYXNzd29ydD1BdWRpYmxlUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MTMuMDYuMjAxMg0KDQpbQXV0b0l0XQ0KQWRyZXNzZT1odHRwczovL2F1dG9pdC5kZS9pbmRleC5waHAvTG9naW4NClVzZXJuYW1lPUF1dG9JdE5pY2tuYW1lDQpQYXNzd29ydD1BdXRvSXRQYXNzd29ydA0KbGFzdCBtb2RpZmllZD0wNy4wNi4yMDE0DQoNCltnbXguZGVdDQpBZHJlc3NlPWh0dHBzOi8vd3d3LmdteC5kZQ0KVXNlcm5hbWU9R214Tmlja25hbWUNClBhc3N3b3J0PUdteFBhc3N3b3J0DQpsYXN0IG1vZGlmaWVkPTEyLjExLjIwMTQNCg0KW0FtYXpvbl0NCkFkcmVzc2U9aHR0cHM6Ly93d3cuYW1hem9uLmRlL3NpZ24taW4NClVzZXJuYW1lPUFtYXpvbk5pY2tuYW1lDQpQYXNzd29ydD1BbWF6b25QYXNzd29ydA0KbGFzdCBtb2RpZmllZD0yMC4wNi4yMDEyDQoNCltCZWNrZXIgTmF2aWdhdGlvbl0NCkFkcmVzc2U9aHR0cDovL3Nob3AubW9iaWxlbmF2aWdhdGlvbi5teWJlY2tlci5jb20vaW5kZXgucGhwPw0KVXNlcm5hbWU9QmVja2VyTmlja25hbWUNClBhc3N3b3J0PUJlY2tlclBhc3N3b3J0DQpsYXN0IG1vZGlmaWVkPTIyLjA2LjIwMTINCg0KWzEgdW5kIDEgTG9naW5dDQpBZHJlc3NlPWh0dHA6Ly93d3cuMXVuZDEuZGUvbG9naW4NClVzZXJuYW1lPTF1bmQxTmlja25hbWUNClBhc3N3b3J0PTF1bmQxUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MDIuMTAuMjAxMg0KDQpbUGF5UGFsXQ0KQWRyZXNzZT1odHRwczovL3d3dy5wYXlwYWwuY29tL2RlL2NnaS1iaW4vd2Vic2NyP2NtZD1fbG9naW4tcnVuDQpVc2VybmFtZT1QYXlQYWxOaWNrbmFtZQ0KUGFzc3dvcnQ9UGF5UGFsUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MjkuMDQuMjAxNQ0KDQpbT3JpZ2luIChFQSldDQpBZHJlc3NlPWh0dHBzOi8vY29ubmVjdC5vcmlnaW4uY29tL2RlL2xvZ2luDQpVc2VybmFtZT1PcmlnaW5OaWNrbmFtZQ0KUGFzc3dvcnQ9T3JpZ2luUGFzc3dvcnQNCmxhc3QgbW9kaWZpZWQ9MDguMDIuMjAxMw0KDQpbR29vZ2xlIHBsYXldDQpBZHJlc3NlPWh0dHBzOi8vYWNjb3VudHMuZ29vZ2xlLmNvbS9TZXJ2aWNlTG9naW4NClVzZXJuYW1lPUdvb2dsZU5pY2tuYW1lDQpQYXNzd29ydD1Hb29nbGVQYXNzd29ydA0KbGFzdCBtb2RpZmllZD0wOC4wMi4yMDEzDQoNCltQbGF5c3RhdGlvbiBOZXR3b3JrXQ0KQWRyZXNzZT1odHRwczovL2FjY291bnQuc29ueWVudGVydGFpbm1lbnRuZXR3b3JrLmNvbS9sb2dpbi5hY3Rpb24NClVzZXJuYW1lPVBTTiBOaWNrbmFtZQ0KUGFzc3dvcnQ9UFNOIFBhc3N3b3J0DQpsYXN0IG1vZGlmaWVkPTA4LjA1LjIwMTMNCg0KW0VtYWlsXQ0KQWRyZXNzZT1odHRwczovL3d3dy53ZWIuZGUvZm0NClVzZXJuYW1lPUVtYWlsIE5pY2sNClBhc3N3b3J0PUVtYWlsIFBhc3MNCmxhc3QgbW9kaWZpZWQ9MDYuMDIuMjAxNA0KDQpbVGVh'
	$Base64String &= 'bXZpZXdlciBLb250b10NCkFkcmVzc2U9aHR0cHM6Ly9sb2dpbi50ZWFtdmlld2VyLmNvbS8NClVzZXJuYW1lPVRlYW12aWV3ZXIgTmljaw0KUGFzc3dvcnQ9VGVhbXZpZXdlciBQYXNzDQpsYXN0IG1vZGlmaWVkPTA0LjA4LjIwMTQNCg0KW2R1bW15IGJlc2NocmVpYnVuZ10NCkFkcmVzc2U9ZHVtbXkgd2Vic2l0ZSDCtQ0KVXNlcm5hbWU9ZHVtbXkgdXNlciDcDQpQYXNzd29ydD1kdW1teSBwYXNzd29yZCDfDQpsYXN0IG1vZGlmaWVkPWR1bW15IGRhdGU='
	Local Const $bString = Binary(_WinAPI_Base64Decode($Base64String))
	If $bSaveBinary Then
		Local Const $hFile = FileOpen($sSavePath & "\test.ini", 18)
		If @error Then Return SetError(1, 0, 0)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return $bString
EndFunc   ;==>_Base64String


Func _WinAPI_Base64Decode($sB64String)
	Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
	Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
	$aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode
#EndRegion  ;  funktionierende Funktionen

Alles anzeigen

**Kanashius**

Eventuell irgendwelche Whitespaces?