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
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
#include <File.au3>
#include <GUIConstants.au3>
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')
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')
$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)
$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
_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])
Func _Replace($newEXP,$oldEXP)
Local $nLfd
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],$oldEXP,'' & $newEXP & '')
Next
EndFunc
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
#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üä#+?[', '')
Global $text_Encrypted = _mapping($text, $org_A, $map_A)
Global $text_Decrypted = _mapping($text_Encrypted,$map_A, $org_A)
ConsoleWrite('!--- Original --- ' & @CRLF)
ConsoleWrite($text & @CRLF)
ConsoleWrite('!--- Verschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Encrypted & @CRLF)
ConsoleWrite('!--- Entschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Decrypted & @CRLF)
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