Dieser Crypt Script Mag den Buchstaben Z zu sehr

Eistee

Spoiler anzeigen

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

; Brauch ich für das einlesen der Datei und das schreiben
#include <File.au3>
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 208, 33, 193, 125)
FileInstall("C:\Users\WoW-Unit\Desktop\G.txt", "C:\G.txt")
$Input2 = GUICtrlCreateInput(Fileread('C:\G.txt'), 8, 0, 193, 21)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

;_________GroßBuchstaben____________________________________________________________________________________________________________________________________________

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'A','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "á"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'C','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "‹"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'E','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = GUICtrlRead($Input2); Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'G','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "Ö"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'H','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "†"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'I','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "*"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'J','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = ""; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable um zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'Z','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "'"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'L','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "<"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'M','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "—"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'N','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "ª"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'Q','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "Ñ"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'R','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "›"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'S','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "|"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'U','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "à"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'V','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = ""; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'W','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "§"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'Y','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "2"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'B','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "e"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'O','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "z"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'D','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "U"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'F','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "I"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'T','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "T"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'K','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "A"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'P','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "l"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'X','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

[/autoit]

Dieser scrippt Funktioniert 99%ig nur leider Hängt er ein z Mitten Hinen
Woran Liegt das ?

Zur Hilfe was gemeint ist Der anhang

testdatei - Copy.TXT ist der original text

Testdatei.TXT ist gecrypted

2.TXT ist encrypted auch richtig nur ist ein z mittem im text was mache ich hier falsch ?

**eukalyptus**

dein script etwas übersichtlicher:

[autoit]

Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll

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

#include <File.au3>
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 208, 33, 193, 125)
FileInstall("C:\Users\WoW-Unit\Desktop\G.txt", "C:\G.txt")
$Input2 = GUICtrlCreateInput(Fileread('C:\G.txt'), 8, 0, 193, 21)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

_FileReadToArray($filename,$meinarray)

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

_Replace("·",'A')
_Replace("á",'C')
_Replace("‹",'E')
_Replace(GUICtrlRead($Input2),'G')
_Replace("Ö",'H')
_Replace("†",'I')
_Replace("*",'J')
_Replace("",'Z')
_Replace("'",'L')
_Replace("<",'M')
_Replace("—",'N')
_Replace("ª",'Q')
_Replace("Ñ",'R')
_Replace("›",'S')
_Replace("|",'U')
_Replace("à",'V')
_Replace("",'W')
_Replace("§",'Y')
_Replace("2",'B')
_Replace("e",'O')
_Replace("z",'D')
_Replace("U",'F')
_Replace("I",'T')
_Replace("T",'K')
_Replace("A",'P')
_Replace("l",'X')

_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Func _Replace($newEXP,$oldEXP)
Local $nLfd

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

For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],$oldEXP,'' & $newEXP & '')
Next
EndFunc

[/autoit]

tausch mal "Z" & "R" aus - wennst dann ein R zuviel hast, dann liegt das problem am neuen char - dann mußt du halt einen anderen nehmen!

btw.: hast du dir schonmal die _StringEncrypt-function angesehen?!?

**Xenobiologist**

Man man man, guck dir mal Funktionen an. Dein gesamtes Skript kann man in 10 Zeilen schreiben.

Eistee

Funktioniert string encrypt hier muss ja speciel verschlüsselt werden

**Xenobiologist**

Hi,

schau mal ob dies hilft:

Spoiler anzeigen

[autoit]

Global $text = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
Global $org_A = StringSplit('ABCDEFGHIJKLMNOPQRSTUVWXYZ', '')
Global $map_A = StringSplit('qaswedfrtghzujkiolöpüä#+?[', '')

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

Global $text_Encrypted = _mapping($text, $org_A, $map_A)
Global $text_Decrypted = _mapping($text_Encrypted,$map_A, $org_A)

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

ConsoleWrite('!--- Original --- ' & @CRLF)
ConsoleWrite($text & @CRLF)
ConsoleWrite('!--- Verschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Encrypted & @CRLF)
ConsoleWrite('!--- Entschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Decrypted & @CRLF)

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

Func _mapping($txt, $org_A, $map_A)
;~ ConsoleWrite(UBound($org_A) & " " & UBound($map_A) & @CRLF)
If UBound($org_A) <> UBound($map_A) Then Return -1
For $i = 1 To UBound($org_A) -1
$txt = StringReplace($txt, $org_A[$i], $map_A[$i], 0, 1)
Next
Return $txt
EndFunc ;==>_mapping

[/autoit]

Mega

Eistee

Xenobiologist
Danke für das Beispiel das sollte auch funzen das problem ist
das jeder buchstabe in ein spezielles zeichen umgewandelt werden also bringt mir dieses beispiel für meine momentanen Zwecke leider nichts

leviathan

a das macht doch pees Script du musst nur die Strings oben nach deinen Wünschen eingeben? o.O?
das spart nur Platz und Code einfach beide Ketten oben eingeben o.O????
oder du speicherst das in einem Array in ASCII und wandelst es später mit Chr um - ist doch nicht so schwer

**Xenobiologist**

Zitat von leviathan

a das macht doch pees Script du musst nur die Strings oben nach deinen Wünschen eingeben? o.O?
das spart nur Platz und Code einfach beide Ketten oben eingeben o.O????

Pee ??? Naja, aber ansonsten alles richtig

[autoit]

Global $org_A = StringSplit('ABCDEFGHIJKLMNOPQRSTUVWXYZ', '')
Global $map_A = StringSplit('qaswedfrtghzujkiolöpüä#+?[', '')

[/autoit]

Die Zeilen anpassen. Oben dre Ausgangswert unten die Ersetzung. A wird durch q ersetzt B durch a usw.

Mega

Eistee

Ich Glaube ich steig noch nicht so ganz durch
Warum sagt der Script er hatt einen fehler in zeile 133
mit dem befehl _Replace ?

Spoiler anzeigen

[autoit]

Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll

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

#include <File.au3>
#include <GUIConstants.au3>

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\A.txt", 'C:\A.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\B.txt", 'C:\B.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\C.txt", 'C:\C.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\D.txt", 'C:\D.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\E.txt", 'C:\E.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\F.txt", 'C:\F.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\G.txt", 'C:\G.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\H.txt", 'C:\H.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\I.txt", 'C:\I.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\J.txt", 'C:\J.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\K.txt", 'C:\K.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\L.txt", 'C:\L.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\M.txt", 'C:\M.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\N.txt", 'C:\N.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\O.txt", 'C:\O.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\P.txt", 'C:\P.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Q.txt", 'C:\Q.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\R.txt", 'C:\R.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\S.txt", 'C:\S.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\T.txt", 'C:\T.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\U.txt", 'C:\U.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\V.txt", 'C:\V.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\W.txt", 'C:\W.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\X.txt", 'C:\X.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Y.txt", 'C:\Y.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Z.txt", 'C:\Z.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Enter.txt", 'C:\Enter.txt')

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\AU.txt", 'C:\AU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\BU.txt", 'C:\BU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\CU.txt", 'C:\CU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\DU.txt", 'C:\DU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EU.txt", 'C:\EU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\FU.txt", 'C:\FU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\GU.txt", 'C:\GU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\HU.txt", 'C:\HU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\IU.txt", 'C:\IU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\JU.txt", 'C:\JU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\KU.txt", 'C:\KU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\LU.txt", 'C:\LU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\MU.txt", 'C:\MU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\NU.txt", 'C:\NU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\OU.txt", 'C:\OU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\PU.txt", 'C:\PU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\QU.txt", 'C:\QU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\RU.txt", 'C:\RU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\SU.txt", 'C:\SU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\TU.txt", 'C:\TU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\UU.txt", 'C:\UU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\VU.txt", 'C:\VU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\WU.txt", 'C:\WU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\XU.txt", 'C:\XU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\YU.txt", 'C:\YU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\ZU.txt", 'C:\ZU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EnterU.txt", 'C:\EnterU.txt')

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Hide1", 122, 623, 463, 125)
GUISetBkColor(0x000000)
$Input28 = GUICtrlCreateInput(Fileread('C:\AU.txt'), 0, 0, 121, 21)
$Input29 = GUICtrlCreateInput(Fileread('C:\BU.txt'), 0, 24, 121, 21)
$Input30 = GUICtrlCreateInput(Fileread('C:\CU.txt'), 0, 48, 121, 21)
$Input31 = GUICtrlCreateInput(Fileread('C:\DU.txt'), 0, 72, 121, 21)
$Input32 = GUICtrlCreateInput(Fileread('C:\EU.txt'), 0, 96, 121, 21)
$Input33 = GUICtrlCreateInput(Fileread('C:\FU.txt'), 0, 120, 121, 21)
$Input34 = GUICtrlCreateInput(Fileread('C:\GU.txt'), 0, 144, 121, 21)
$Input35 = GUICtrlCreateInput(Fileread('C:\HU.txt'), 0, 168, 121, 21)
$Input36 = GUICtrlCreateInput(Fileread('C:\IU.txt'), 0, 192, 121, 21)
$Input37 = GUICtrlCreateInput(Fileread('C:\JU.txt'), 0, 216, 121, 21)
$Input38 = GUICtrlCreateInput(Fileread('C:\KU.txt'), 0, 240, 121, 21)
$Input39 = GUICtrlCreateInput(Fileread('C:\LU.txt'), 0, 264, 121, 21)
$Input40 = GUICtrlCreateInput(Fileread('C:\MU.txt'), 0, 288, 121, 21)
$Input41 = GUICtrlCreateInput(Fileread('C:\NU.txt'), 0, 312, 121, 21)
$Input42 = GUICtrlCreateInput(Fileread('C:\OU.txt'), 0, 336, 121, 21)
$Input43 = GUICtrlCreateInput(Fileread('C:\PU.txt'), 0, 360, 121, 21)
$Input44 = GUICtrlCreateInput(Fileread('C:\QU.txt'), 0, 384, 121, 21)
$Input45 = GUICtrlCreateInput(Fileread('C:\RU.txt'), 0, 408, 121, 21)
$Input46 = GUICtrlCreateInput(Fileread('C:\SU.txt'), 0, 432, 121, 21)
$Input47 = GUICtrlCreateInput(Fileread('C:\TU.txt'), 0, 456, 121, 21)
$Input48 = GUICtrlCreateInput(Fileread('C:\UU.txt'), 0, 480, 121, 21)
$Input49 = GUICtrlCreateInput(Fileread('C:\VU.txt'), 0, 504, 121, 21)
$Input50 = GUICtrlCreateInput(Fileread('C:\WU.txt'), 0, 528, 121, 21)
$Input51 = GUICtrlCreateInput(Fileread('C:\XU.txt'), 0, 552, 121, 21)
$Input52 = GUICtrlCreateInput(Fileread('C:\YU.txt'), 0, 576, 121, 21)
$Input53 = GUICtrlCreateInput(Fileread('C:\ZU.txt'), 0, 600, 121, 21)
$Input54 = GUICtrlCreateInput(Fileread('C:\EnterU.txt'), 0, 600, 121, 21)
GUISetState(@SW_HIDE)

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

$Form1 = GUICreate("Hide1", 122, 623, 193, 125)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput(Fileread('C:\A.txt'), 0, 0, 121, 21)
$Input2 = GUICtrlCreateInput(Fileread('C:\B.txt'), 0, 24, 121, 21)
$Input3 = GUICtrlCreateInput(Fileread('C:\C.txt'), 0, 48, 121, 21)
$Input4 = GUICtrlCreateInput(Fileread('C:\D.txt'), 0, 72, 121, 21)
$Input5 = GUICtrlCreateInput(Fileread('C:\E.txt'), 0, 96, 121, 21)
$Input6 = GUICtrlCreateInput(Fileread('C:\F.txt'), 0, 120, 121, 21)
$Input7 = GUICtrlCreateInput(Fileread('C:\H.txt'), 0, 144, 121, 21)
$Input8 = GUICtrlCreateInput(Fileread('C:\I.txt'), 0, 168, 121, 21)
$Input9 = GUICtrlCreateInput(Fileread('C:\J.txt'), 0, 192, 121, 21)
$Input10 = GUICtrlCreateInput(Fileread('C:\K.txt'), 0, 216, 121, 21)
$Input11 = GUICtrlCreateInput(Fileread('C:\L.txt'), 0, 240, 121, 21)
$Input12 = GUICtrlCreateInput(Fileread('C:\M.txt'), 0, 264, 121, 21)
$Input13 = GUICtrlCreateInput(Fileread('C:\N.txt'), 0, 288, 121, 21)
$Input14 = GUICtrlCreateInput(Fileread('C:\O.txt'), 0, 312, 121, 21)
$Input15 = GUICtrlCreateInput(Fileread('C:\P.txt'), 0, 336, 121, 21)
$Input16 = GUICtrlCreateInput(Fileread('C:\Q.txt'), 0, 360, 121, 21)
$Input17 = GUICtrlCreateInput(Fileread('C:\R.txt'), 0, 384, 121, 21)
$Input18 = GUICtrlCreateInput(Fileread('C:\S.txt'), 0, 408, 121, 21)
$Input19 = GUICtrlCreateInput(Fileread('C:\T.txt'), 0, 432, 121, 21)
$Input20 = GUICtrlCreateInput(Fileread('C:\U.txt'), 0, 456, 121, 21)
$Input21 = GUICtrlCreateInput(Fileread('C:\V.txt'), 0, 480, 121, 21)
$Input22 = GUICtrlCreateInput(Fileread('C:\W.txt'), 0, 504, 121, 21)
$Input23 = GUICtrlCreateInput(Fileread('C:\X.txt'), 0, 528, 121, 21)
$Input24 = GUICtrlCreateInput(Fileread('C:\Y.txt'), 0, 552, 121, 21)
$Input25 = GUICtrlCreateInput(Fileread('C:\Z.txt'), 0, 576, 121, 21)
$Input27 = GUICtrlCreateInput(Fileread('C:\G.txt'), 0, 576, 121, 21)
$Input26 = GUICtrlCreateInput(Fileread('C:\Enter.txt'), 0, 600, 121, 21)
GUISetState(@SW_Hide)

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

;Func

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

_FileReadToArray($filename,$meinarray)

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

_Replace("·",(GUICtrlRead($Input1);A
_Replace("á",(GUICtrlRead($Input2);B
_Replace("‹",(GUICtrlRead($Input3);C
_Replace("der",(GUICtrlRead($Input27);G
_Replace("Ö",(GUICtrlRead($Input4);D
_Replace("†",(GUICtrlRead($Input5);E
_Replace("*",(GUICtrlRead($Input6);F
_Replace("",(GUICtrlRead($Input7);H
_Replace("'",(GUICtrlRead($Input8);I
_Replace("<",(GUICtrlRead($Input9);J
_Replace("—",(GUICtrlRead($Input10);K
_Replace("ª",(GUICtrlRead($Input11);L
_Replace("Ñ",(GUICtrlRead($Input12);M
_Replace("›",(GUICtrlRead($Input13);N
_Replace("|",(GUICtrlRead($Input14);O
_Replace("à",(GUICtrlRead($Input15);P
_Replace("",(GUICtrlRead($Input16);Q
_Replace("§",(GUICtrlRead($Input17);R
_Replace("2",(GUICtrlRead($Input18);S
_Replace("e",(GUICtrlRead($Input19);T
_Replace("z",(GUICtrlRead($Input20);U
_Replace("U",(GUICtrlRead($Input21);V
_Replace("I",(GUICtrlRead($Input22);W
_Replace("T",(GUICtrlRead($Input23);X
_Replace("A",(GUICtrlRead($Input24);Y
_Replace("l",(GUICtrlRead($Input25);Z
_Replace("l",(GUICtrlRead($Input26);Enter

_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Func _Replace($newEXP,$oldEXP)
Local $nLfd

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

For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],$oldEXP,'' & $newEXP & '')
Next
EndFunc

[/autoit]

McPoldy

Hi WoW,

Du hast da z. B. _Replace("·",(GUICtrlRead($Input1);A stehen, da fehlen noch zwei )) also es müsste so aussehen: _Replace("·",(GUICtrlRead($Input1)));A

leviathan

ach man warum sag ich immer pee statt thmeger, das mit xeno hab ich noch nich so ganz überwunden

wow-unit warum willst du das denn nicht verstehen - willst du dir nicht die Arbeit ersparen und das effizienter gestalten?
da reicht eine Datei mit 2 Zeilen
wie wärs wenn du mal eine Liste erstellst mit welche Buchstabe was ist, dann kann dir das mal jemand zeigen, aber eigentlich ist das doch so einfach und XENO hat dir doch praktisch den ganzen Code schon geliefert, du musst doch nur die 2 Zeilen ändern, und die Sachen kannste auch aus einer .txt auslesen, aber doch net so umständlich - probiers doch wenigstens zu verstehen und zu benutzen und nicht immer alles zu ignorieren, was dir andere raten

**Xenobiologist**

Zitat von leviathan

ach man warum sag ich immer pee statt thmeger, das mit xeno hab ich noch nich so ganz überwunden

Kein Problem. Bei manchen steht im Taskmanager halt Lernprozess(keine Rückmeldung)

@TO: Warum hilft dir mein Skript nicht? Warum willst du nicht endlich anfangen Funktionen und Arrays zu nutzen?

Mega

Eistee

McPoldy Danke So geht es Aber es ist zum aus der Hut fahren er macht es nicht richtig

Ich verschlüselle ABCDEFGHIJKLMNOPQRSTUVWXYZ MIT DIESEM SCRIPT

Spoiler anzeigen

[autoit]

Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll

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

#include <File.au3>
#include <GUIConstants.au3>

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\A.txt", 'C:\A.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\B.txt", 'C:\B.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\C.txt", 'C:\C.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\D.txt", 'C:\D.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\E.txt", 'C:\E.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\F.txt", 'C:\F.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\G.txt", 'C:\G.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\H.txt", 'C:\H.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\I.txt", 'C:\I.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\J.txt", 'C:\J.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\K.txt", 'C:\K.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\L.txt", 'C:\L.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\M.txt", 'C:\M.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\N.txt", 'C:\N.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\O.txt", 'C:\O.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\P.txt", 'C:\P.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Q.txt", 'C:\Q.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\R.txt", 'C:\R.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\S.txt", 'C:\S.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\T.txt", 'C:\T.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\U.txt", 'C:\U.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\V.txt", 'C:\V.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\W.txt", 'C:\W.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\X.txt", 'C:\X.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Y.txt", 'C:\Y.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Z.txt", 'C:\Z.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Enter.txt", 'C:\Enter.txt')

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\AU.txt", 'C:\AU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\BU.txt", 'C:\BU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\CU.txt", 'C:\CU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\DU.txt", 'C:\DU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EU.txt", 'C:\EU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\FU.txt", 'C:\FU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\GU.txt", 'C:\GU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\HU.txt", 'C:\HU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\IU.txt", 'C:\IU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\JU.txt", 'C:\JU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\KU.txt", 'C:\KU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\LU.txt", 'C:\LU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\MU.txt", 'C:\MU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\NU.txt", 'C:\NU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\OU.txt", 'C:\OU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\PU.txt", 'C:\PU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\QU.txt", 'C:\QU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\RU.txt", 'C:\RU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\SU.txt", 'C:\SU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\TU.txt", 'C:\TU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\UU.txt", 'C:\UU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\VU.txt", 'C:\VU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\WU.txt", 'C:\WU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\XU.txt", 'C:\XU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\YU.txt", 'C:\YU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\ZU.txt", 'C:\ZU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EnterU.txt", 'C:\EnterU.txt')

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

$Form1 = GUICreate("Hide1", 122, 623, 193, 125)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput(Fileread('C:\A.txt'), 0, 0, 121, 21)
$Input2 = GUICtrlCreateInput(Fileread('C:\B.txt'), 0, 24, 121, 21)
$Input3 = GUICtrlCreateInput(Fileread('C:\C.txt'), 0, 48, 121, 21)
$Input4 = GUICtrlCreateInput(Fileread('C:\D.txt'), 0, 72, 121, 21)
$Input5 = GUICtrlCreateInput(Fileread('C:\E.txt'), 0, 96, 121, 21)
$Input6 = GUICtrlCreateInput(Fileread('C:\F.txt'), 0, 120, 121, 21)
$Input7 = GUICtrlCreateInput(Fileread('C:\H.txt'), 0, 144, 121, 21)
$Input8 = GUICtrlCreateInput(Fileread('C:\I.txt'), 0, 168, 121, 21)
$Input9 = GUICtrlCreateInput(Fileread('C:\J.txt'), 0, 192, 121, 21)
$Input10 = GUICtrlCreateInput(Fileread('C:\K.txt'), 0, 216, 121, 21)
$Input11 = GUICtrlCreateInput(Fileread('C:\L.txt'), 0, 240, 121, 21)
$Input12 = GUICtrlCreateInput(Fileread('C:\M.txt'), 0, 264, 121, 21)
$Input13 = GUICtrlCreateInput(Fileread('C:\N.txt'), 0, 288, 121, 21)
$Input14 = GUICtrlCreateInput(Fileread('C:\O.txt'), 0, 312, 121, 21)
$Input15 = GUICtrlCreateInput(Fileread('C:\P.txt'), 0, 336, 121, 21)
$Input16 = GUICtrlCreateInput(Fileread('C:\Q.txt'), 0, 360, 121, 21)
$Input17 = GUICtrlCreateInput(Fileread('C:\R.txt'), 0, 384, 121, 21)
$Input18 = GUICtrlCreateInput(Fileread('C:\S.txt'), 0, 408, 121, 21)
$Input19 = GUICtrlCreateInput(Fileread('C:\T.txt'), 0, 432, 121, 21)
$Input20 = GUICtrlCreateInput(Fileread('C:\U.txt'), 0, 456, 121, 21)
$Input21 = GUICtrlCreateInput(Fileread('C:\V.txt'), 0, 480, 121, 21)
$Input22 = GUICtrlCreateInput(Fileread('C:\W.txt'), 0, 504, 121, 21)
$Input23 = GUICtrlCreateInput(Fileread('C:\X.txt'), 0, 528, 121, 21)
$Input24 = GUICtrlCreateInput(Fileread('C:\Y.txt'), 0, 552, 121, 21)
$Input25 = GUICtrlCreateInput(Fileread('C:\Z.txt'), 0, 576, 121, 21)
$Input27 = GUICtrlCreateInput(Fileread('C:\G.txt'), 0, 576, 121, 21)
$Input26 = GUICtrlCreateInput(Fileread('C:\Enter.txt'), 0, 600, 121, 21)
GUISetState(@SW_Hide)

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

$Form2 = GUICreate("Hide1", 122, 623, 463, 125)
GUISetBkColor(0x000000)
$Input28 = GUICtrlCreateInput(Fileread('C:\AU.txt'), 0, 0, 121, 21)
$Input29 = GUICtrlCreateInput(Fileread('C:\BU.txt'), 0, 24, 121, 21)
$Input30 = GUICtrlCreateInput(Fileread('C:\CU.txt'), 0, 48, 121, 21)
$Input31 = GUICtrlCreateInput(Fileread('C:\DU.txt'), 0, 72, 121, 21)
$Input32 = GUICtrlCreateInput(Fileread('C:\EU.txt'), 0, 96, 121, 21)
$Input33 = GUICtrlCreateInput(Fileread('C:\FU.txt'), 0, 120, 121, 21)
$Input34 = GUICtrlCreateInput(Fileread('C:\GU.txt'), 0, 144, 121, 21)
$Input35 = GUICtrlCreateInput(Fileread('C:\HU.txt'), 0, 168, 121, 21)
$Input36 = GUICtrlCreateInput(Fileread('C:\IU.txt'), 0, 192, 121, 21)
$Input37 = GUICtrlCreateInput(Fileread('C:\JU.txt'), 0, 216, 121, 21)
$Input38 = GUICtrlCreateInput(Fileread('C:\KU.txt'), 0, 240, 121, 21)
$Input39 = GUICtrlCreateInput(Fileread('C:\LU.txt'), 0, 264, 121, 21)
$Input40 = GUICtrlCreateInput(Fileread('C:\MU.txt'), 0, 288, 121, 21)
$Input41 = GUICtrlCreateInput(Fileread('C:\NU.txt'), 0, 312, 121, 21)
$Input42 = GUICtrlCreateInput(Fileread('C:\OU.txt'), 0, 336, 121, 21)
$Input43 = GUICtrlCreateInput(Fileread('C:\PU.txt'), 0, 360, 121, 21)
$Input44 = GUICtrlCreateInput(Fileread('C:\QU.txt'), 0, 384, 121, 21)
$Input45 = GUICtrlCreateInput(Fileread('C:\RU.txt'), 0, 408, 121, 21)
$Input46 = GUICtrlCreateInput(Fileread('C:\SU.txt'), 0, 432, 121, 21)
$Input47 = GUICtrlCreateInput(Fileread('C:\TU.txt'), 0, 456, 121, 21)
$Input48 = GUICtrlCreateInput(Fileread('C:\UU.txt'), 0, 480, 121, 21)
$Input49 = GUICtrlCreateInput(Fileread('C:\VU.txt'), 0, 504, 121, 21)
$Input50 = GUICtrlCreateInput(Fileread('C:\WU.txt'), 0, 528, 121, 21)
$Input51 = GUICtrlCreateInput(Fileread('C:\XU.txt'), 0, 552, 121, 21)
$Input52 = GUICtrlCreateInput(Fileread('C:\YU.txt'), 0, 576, 121, 21)
$Input53 = GUICtrlCreateInput(Fileread('C:\ZU.txt'), 0, 600, 121, 21)
$Input54 = GUICtrlCreateInput(Fileread('C:\EnterU.txt'), 0, 600, 121, 21)
GUISetState(@SW_HIDE)
;Func

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

_FileReadToArray($filename,$meinarray)

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

_Replace(GUICtrlRead($Input28),(GUICtrlRead($Input1)));AU_____A
_Replace(GUICtrlRead($Input29),(GUICtrlRead($Input2)));BU_____B
_Replace(GUICtrlRead($Input30),(GUICtrlRead($Input3)));CU_____C
_Replace(GUICtrlRead($Input34),(GUICtrlRead($Input27)));GU_____G
_Replace(GUICtrlRead($Input31),(GUICtrlRead($Input4)));DU_____D
_Replace(GUICtrlRead($Input32),(GUICtrlRead($Input5)));EU_____E
_Replace(GUICtrlRead($Input35),(GUICtrlRead($Input7)));HU_____H
_Replace(GUICtrlRead($Input36),(GUICtrlRead($Input8)));IU_____I
_Replace(GUICtrlRead($Input37),(GUICtrlRead($Input9)));JU_____J
_Replace(GUICtrlRead($Input39),(GUICtrlRead($Input11)));LU_____L
_Replace(GUICtrlRead($Input40),(GUICtrlRead($Input12)));MU_____M
_Replace(GUICtrlRead($Input41),(GUICtrlRead($Input13)));NU_____N
_Replace(GUICtrlRead($Input42),(GUICtrlRead($Input14)));OU_____O
_Replace(GUICtrlRead($Input43),(GUICtrlRead($Input15)));PU_____P
_Replace(GUICtrlRead($Input44),(GUICtrlRead($Input16)));QU_____Q
_Replace(GUICtrlRead($Input45),(GUICtrlRead($Input17)));RU_____R
_Replace(GUICtrlRead($Input46),(GUICtrlRead($Input18)));SU_____S
_Replace(GUICtrlRead($Input47),(GUICtrlRead($Input19)));TU_____T
_Replace(GUICtrlRead($Input48),(GUICtrlRead($Input20)));UU_____U
_Replace(GUICtrlRead($Input49),(GUICtrlRead($Input21)));VU_____V
_Replace(GUICtrlRead($Input50),(GUICtrlRead($Input22)));WU_____W
_Replace(GUICtrlRead($Input51),(GUICtrlRead($Input23)));XU_____X
_Replace(GUICtrlRead($Input52),(GUICtrlRead($Input24)));YU_____Y
_Replace(GUICtrlRead($Input53),(GUICtrlRead($Input25)));ZU_____Z
_Replace(GUICtrlRead($Input54),(GUICtrlRead($Input26)));EnterU_____Enter
_Replace(GUICtrlRead($Input33),(GUICtrlRead($Input6)));FU_____F
_Replace(GUICtrlRead($Input38),(GUICtrlRead($Input10)));KU_____K
_Replace(GUICtrlRead($Input43),(GUICtrlRead($Input15)));PU_____P
_Replace(GUICtrlRead($Input47),(GUICtrlRead($Input19)));TU_____T
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Func _Replace($newEXP,$oldEXP)
Local $nLfd

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

For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],$oldEXP,'' & $newEXP & '')
Next
EndFunc

[/autoit]

Und das Kommt leider raus ABCDEFHIJTLMNOPQRSTUVWXYZ (nach dem entschlüsseln mit nem tool das geht)

Die txt´s sind im anhang

Xenobiologist weil ich das prinzip noch nicht verstehe ich habe keine beispiele die mir genau erklären was man mit arrays kann die hilfe ist für mich zu kompliziert daher benötige ich eben beispiele ich würde es ja mit deinem beispiel versuchen jedoch weis ich nicht ob er funktioniert schliesslich macht er seinen job nicht in einer txt datei und ich wüsste jetzt nicht wie ich das einfügen könnte

P.s. habe es vorhin so versucht ging aber nicht

Spoiler anzeigen

[autoit]

#include <File.au3>

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

Global $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Global $meinarray
_FileReadToArray($filename,$meinarray)
Global $text = $meinarray
Global $org_A = StringSplit('ABCDEFGHIJKLMNOPQRSTUVWXYZ', '')
Global $map_A = StringSplit('qaswedfrtghzujkiolöpüä#+?[', '')

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

Global $text_Encrypted = _mapping($text, $org_A, $map_A)
Global $text_Decrypted = _mapping($text_Encrypted,$map_A, $org_A)

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

ConsoleWrite('!--- Original --- ' & @CRLF)
ConsoleWrite($text & @CRLF)
ConsoleWrite('!--- Verschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Encrypted & @CRLF)
ConsoleWrite('!--- Entschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Decrypted & @CRLF)

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

Func _mapping($txt, $org_A, $map_A)
;~ ConsoleWrite(UBound($org_A) & " " & UBound($map_A) & @CRLF)
If UBound($org_A) <> UBound($map_A) Then Return -1
For $i = 1 To UBound($org_A) -1
$txt = StringReplace($txt, $org_A[$i], $map_A[$i], 0, 1)
Next
Return $txt
EndFunc ;==>_mapping

[/autoit]

**Xenobiologist**

Das arbeiten in einer Datei ist das geringste Problem. Du musst doch erstmal testen, ob das Mapping mit deinen Sonderzeichen funktioniert.

Eistee

jo aber wie teste ich das ?
der macht ja nix...

leviathan

so hab mal deine Dinger hier eingefasst, damit man das verwenden kann

Spoiler anzeigen

[autoit]

Global $text = 'ABCDEFGHIJKLMAAAANOPQRSTUVWXYZ'
Global $org_A = StringSplit('A,AU,B,BU,C,CU,D,DU,E,Enter,EnterU,EU,F,FU,G,GU,H,HU,I,IU,J,JU,K,KU,L,LU,M,MU,N,NU,O,OU,P,PU,Q,QU,R,RU,S,SU,T,TU,U,UU,V,VU,W,WU,X,XU,Y,YU,Z,ZU', ',')
Global $map_A = StringSplit('65,183,66,50,67,225,68,122,69,13,228,139,70,85,71,26,72,214,73,134,74,42,75,84,76,39,77,60,78,151,79,101,80,65,81,170,82,209,83,155,84,73,85,124,86,224,87,17,88,108,89,167,90,129', ',')

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

Global $text_Encrypted = _mapping($text, $org_A, $map_A)
Global $text_Decrypted = _mapping($text_Encrypted,$map_A, $org_A)

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

Clipput('!--- Original --- ' & @CRLF&$text & @CRLF&'!--- Verschlüsselt --- ' & @CRLF&$text_Encrypted & @CRLF&'!--- Entschlüsselt --- ' & @CRLF&$text_Decrypted & @CRLF)

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

Func _mapping($txt, $org_A, $map_A)
If UBound($org_A) <> UBound($map_A) Then MsgBox(0,"", "blubb")
For $i = 1 To UBound($org_A) -1
$txt = StringReplace($txt, $org_A[$i], Chr(Number($map_A[$i])), 0, 1)
Next
Return $txt
EndFunc ;==>_mapping

[/autoit]

das Problem ist nur, dass

Zitat

!--- Original ---
ABCDEFGHIJKLMAAAANOPQRSTUVWXYZ
!--- Verschlüsselt ---
ABCDEFGHIJKLMAAAANOPQRSIVWXYZ
!--- Entschlüsselt ---
ABCDEFGHIJKLMAAAANOPQRSIVWXYZ

rauskommt,

Eistee

@leviathan
woher weist du das

!--- Original ---
ABCDEFGHIJKLMAAAANOPQRSTUVWXYZ
!--- Verschlüsselt ---
ABCDEFGHIJKLMAAAANOPQRSIVWXYZ
!--- Entschlüsselt ---
ABCDEFGHIJKLMAAAANOPQRSIVWXYZ

Rauskommt
bzw. wo kann ich das nachlesen ?

und wieso stehen da lauter zahlen

('65,183,66,50,67,225,68,122,69,13,228,139,70,85,71,26,72,214,73,134,74,42,75,84,76,39,77,60,78,151,79,101,80,65,81,170,82,209,83,155,84,73,85,124,86,224,87,17,88,108,89,167,90,129', ',')

**Xenobiologist**

Hi,

das kann auch nicht funktionieren. Wenn U ersetzt wird, dann sind danach keine UU oder VU usw. da!

Mega

leviathan

ja das hab ich mir auch schon gedacht, also sollte man die Reihenfolge doch ändern oder nicht?
die Zahlen repräsentieren den ASCII-Code von deinen 'speziellen Zeichen', also erst nach den Doppelbuchstaben schauen und dann die einzel Chr
naja ich hab die Liste auch mit nem Script(FileListtoarray) erstellt, deswegen hab ich da nicht draufgeachtet
und WoW-Unit schau dir doch mal die Befehle in der Hilfe an, da steht doch alles
also einfach nur die beiden Strings anpassen und Fertsch

Eistee

Ok aber bei mir macht das tool nichts (liegt das daran das ich Vista habe) oder muss ich irgendwas machen um zu sehen ob es Funzt ?

Und noch was es ging nur darum das ABCDEFGHIJKLMNOPQRSTUVWXYZ
Zu den zeichen gemacht werden nicht andersrum oder so (mit den ganzen zahlen komme ich durcheinander)
kann man das so ändern das einfach nur alle Grossbuchstaben in das Zeichen umgewandelt werden ?

Also

ABCDEFGHIJKLMNOPQRSTUVWXYZ soll dann so aussehen (da sind auch unsichtbare zeichen...)

·2áz‹UÖ†*T'<—eAªÑ›I|àl§