StringMid return Binär? o_O

Heute ist ein schöner tag zum programmieren
& da ich euch nur zugerne erneut heute begehre komme ich schnell mal zur Sache.
Ich habe mitbekommen das diese RC4 Func von heute früh etwas langsam arbeitet wenn die datei 1mb< ist, also arbeite ich jetzt mit Autoits <Crypt.au3>.
Ich kam auf die idee dateien zu binden, das fand ich ist eine fazinierende Übung. Also saß ich einige Zeit daran verschiedene Dinge zu binden & somit auch 2 Text dateien. Eine Hauptdatei(FILE1.txt) unverschlüsselt mit einer (FILE2.txt->Base64->RC4) verschlüsselten datei. Damit ein Trenner die beiden dateien erkennt habe ich eine art Trennwand erstellt die im script so aussieht: "-=TESTME=-"
getrennt habe ich das ganze mit 'StringMid($DS, StringInStr($DS, "-=TESTME=-") + StringLen("-=TESTME=-"),-1)' allerdings schmeißt mir StringMid irgend ein ramsch raus der laut IsBinar nicht binär ist. Ich habe eine menge herumexprimentiert komme aber nicht dahinter. Schlussendlich versuche ich die Dateien wieder zu trennen.

Das script sieht sicher genauso Ramsch aus wie der Output von StringMid, aber ehrlich gesagt habe ich es soweit ich konnte separiert um fehler zu entschlüsseln. Ich komme da aber nicht weiter.

#include <Crypt.au3>
#include "_Base64.au3"


;encode


$1 = @ScriptDir & "\1\FILE1.txt"
$2 = FileOpen($1,16)
$3 = FileRead($2)
$4 = _Base64Encode(BinaryToString($3))
FileDelete(@ScriptDir & "\1\1BaseE.txt")
$5 = FileOpen(@ScriptDir & "\1\1BaseE.txt", 16+1)
FileWrite($5, $4)
FileClose($5)


$1 = @ScriptDir & "\1\1BaseE.txt"
$2 = FileOpen($1,16)
$3 = FileRead($2)
_Crypt_Startup()
Local $iAlgorithm = $CALG_RC4
Local $g_hKey = _Crypt_DeriveKey("TestPassword", $iAlgorithm)
Local $bEncrypted = _Crypt_EncryptData($3, $g_hKey, $CALG_USERKEY)
_Crypt_DestroyKey($g_hKey)
_Crypt_Shutdown()
FileDelete(@ScriptDir & "\1\2RC4E.txt")
$AFsave2 = FileOpen(@ScriptDir & "\1\2RC4E.txt", 16+1)
FileWrite($AFSave2, $bEncrypted)
FileClose($1)


$ZS = FileRead(FileOpen(@ScriptDir & "\1\FILE2.txt",16))
$ZCR = FileRead(FileOpen(@ScriptDir & "\1\2RC4E.txt", 16))
FileDelete(@ScriptDir & "\1\3BIND.txt")
$Z1 = FileOpen(@ScriptDir & "\1\3BIND.txt", 16+1)
FileWrite($Z1, $ZS)
FileWrite($Z1,StringToBinary("-=TESTME=-"))
FileWrite($Z1, $ZCR)
FileClose($Z1)


;decode


$DS = FileRead(FileOpen(@ScriptDir & "\1\3BIND.txt", 16))
$sSeparatedData = StringMid($DS, StringInStr($DS, "-=TESTME=-") + StringLen("-=TESTME=-"),-1)
FileDelete(@ScriptDir & "\1\5RC4.txt")
$DO = FileOpen(@ScriptDir & "\1\5RC4.txt",16+1)
FileWrite($DO, $sSeparatedData)
FileClose($DO)




$1 = FileOpen(@ScriptDir & "\1\5RC4.txt", 16)
$2 = FileRead($1)
_Crypt_Startup()
Local $g_hKey = _Crypt_DeriveKey("TestPassword", $iAlgorithm)
$sDecryptedData = _Crypt_DecryptData($2, $g_hKey, $CALG_RC4)
_Crypt_DestroyKey($g_hKey)
_Crypt_Shutdown()
FileClose($1)
FileDelete(@ScriptDir & "\1\6BaseD.txt")
$1 = FileOpen(@ScriptDir & "\1\6BaseD.txt", 16+1)
FileWrite($1, $sDecryptedData)
FileClose($1)


$1 = @ScriptDir & "\1\6BaseD.txt"
$2 = FileOpen($1,16)
$3 = FileRead($2)
$4 = _Base64Decode(BinaryToString($3))
FileDelete(@ScriptDir & "\1\7ORIGFILE2.txt")
$5 = FileOpen(@ScriptDir & "\1\7ORIGFILE2.txt", 16+1)
FileWrite($5, $4)

in FILE1 stand sowas wie "testme",
in FILE2 = "addme",
also ganz simpel einfach weil ich so schneller das problem lösen wollte.

PS: ich komme mir hier langsam wie ein Nervbold vor, ich hoffe das ist nicht so.

Danke im Vorraus!

In dem Moment nahm ich das nicht als alzu wichtig an, danke für dich berichtigung! >1mb
Mir ist bewusst das Fileopen=Fileclose existieren sollten, ich dachte mir für so ein bisschen Code Ramsch ist das nicht alzu wichtig. Aber eigentlich hast du recht denn so trainiert man auch seine sorgfalt.

Aber zurück zum Thema, ich weiß nicht wie ich das bekommene wissen anzuwenden habe. soll ich 3BIND.txt jetzt nicht Binär lesen?
ich mein wenn ich das tue dann reißt mir StringMid aus dem Binär ein stück ab, würde es reichen FileWrite($DO, "0x" & $sSeparatedData) zu benutzen?
Oder sollte ich den text "normal" lesen & das separierte dann nach Binär umwandeln? Du hast dir Mühe gegeben mir hier zuantworten, mein Hirnschmalz war aber erneut vergebens. Kannst du mir detalierter aufzeigen was du meinst?

$DS = FileRead(FileOpen(@ScriptDir & "\1\3BIND.txt"))
ConsoleWrite($DS & @CRLF)
$sSeparatedData = StringMid($DS, StringInStr($DS, "-=TESTME=-") + StringLen("-=TESTME=-"),-1)
ConsoleWrite(StringToBinary($sSeparatedData) & @CRLF)
FileDelete(@ScriptDir & "\1\5RC4.txt")
$DO = FileOpen(@ScriptDir & "\1\5RC4.txt",16+1)
FileWrite($DO, StringToBinary($sSeparatedData))
FileClose($DO)

EDIT: Gut es funktioniert jetzt.
Ich habe 3 fehler ausgebessert & mitbekommen das ich RC4 nicht richtig decode.
Local $bEncrypted = _Crypt_EncryptData($3, $g_hKey, $CALG_USERKEY) ;ich dachte zwar das anstatt $CALG_USERKEY - $CALG_RC4 hinmüsste aber dann verändert sich das ergebnis bei jeder tour.

Vollständigkeitsgründe. Kein Perfekter Code, er funktioniert aber sollte bei tatsächlicher benutzung ausgebessert werden!
<FORUMBUG>

im obrigen post konnte ich keinweiteren Code hinzufügen, für den interessierten Admin hier der entstehungsweg: Code->SyntaxHervorhebung->Autoit3->Code danach einfügen->Hinzufügen. Der bug ist ein 2tes&3tes aufploppendes Code Fenster. Teilweise verschwinded auch schon geschriebender text.

#include <Crypt.au3>
#include "_Base64.au3"


;encode


$1 = @ScriptDir & "\1\FILE2.txt"
$2 = FileOpen($1,16)
$3 = FileRead($2)
$4 = _Base64Encode(BinaryToString($3))
FileDelete(@ScriptDir & "\1\1BaseE.txt")
$5 = FileOpen(@ScriptDir & "\1\1BaseE.txt", 16+1)
FileWrite($5, $4)
FileClose($5)


$1 = @ScriptDir & "\1\1BaseE.txt"
$2 = FileOpen($1,16)
$3 = FileRead($2)
_Crypt_Startup()
Local $iAlgorithm = $CALG_RC4
Local $g_hKey = _Crypt_DeriveKey("TestPassword", $iAlgorithm)
Local $bEncrypted = _Crypt_EncryptData($3, $g_hKey, $CALG_USERKEY)
_Crypt_DestroyKey($g_hKey)
_Crypt_Shutdown()
FileDelete(@ScriptDir & "\1\2RC4E.txt")
$AFsave2 = FileOpen(@ScriptDir & "\1\2RC4E.txt", 16+1)
FileWrite($AFSave2, $bEncrypted)
FileClose($1)


$ZS = FileRead(FileOpen(@ScriptDir & "\1\FILE1.txt",16))
$ZCR = FileRead(FileOpen(@ScriptDir & "\1\2RC4E.txt", 16))
FileDelete(@ScriptDir & "\1\3BIND.txt")
$Z1 = FileOpen(@ScriptDir & "\1\3BIND.txt", 16+1)
FileWrite($Z1, $ZS)
FileWrite($Z1,StringToBinary("-=TESTME=-"))
FileWrite($Z1, $ZCR)
FileClose($Z1)


;decode


$DS = FileRead(FileOpen(@ScriptDir & "\1\3BIND.txt"))
ConsoleWrite($DS & @CRLF)
$sSeparatedData = StringMid($DS, StringInStr($DS, "-=TESTME=-") + StringLen("-=TESTME=-"),-1)
ConsoleWrite(StringToBinary($sSeparatedData) & @CRLF)
FileDelete(@ScriptDir & "\1\5RC4.txt")
$DO = FileOpen(@ScriptDir & "\1\5RC4.txt",16+1)
FileWrite($DO, StringToBinary($sSeparatedData))
FileClose($DO)


$1 = FileOpen(@ScriptDir & "\1\5RC4.txt", 16)
$2 = FileRead($1)
_Crypt_Startup()
Local $g_hKey = _Crypt_DeriveKey("TestPassword", $iAlgorithm)
$sDecryptedData = _Crypt_DecryptData($2, $g_hKey, $CALG_USERKEY)
_Crypt_DestroyKey($g_hKey)
_Crypt_Shutdown()
FileClose($1)
FileDelete(@ScriptDir & "\1\6BaseD.txt")
$1 = FileOpen(@ScriptDir & "\1\6BaseD.txt", 16+1)
FileWrite($1, $sDecryptedData)
FileClose($1)


$1 = @ScriptDir & "\1\6BaseD.txt"
$2 = FileOpen($1,16)
$3 = FileRead($2)
$4 = _Base64Decode(BinaryToString($3))
FileDelete(@ScriptDir & "\1\7ORIGFILE2.txt")
$5 = FileOpen(@ScriptDir & "\1\7ORIGFILE2.txt", 16+1)
FileWrite($5, $4)

Zitat von alpines

Du kannst das ruhig drinne lassen ist kein Problem. Öffne mal die Datei in der du dieses "-=TESTME=-" schreibst und such mal nach dem String. Findest du ihn da wirklich drinne?
Ich glaube nicht.

Ich hab keine Testdateien jetzt da, kannst du einen Ordner fertigmachen und hochladen? Dann kann ich mir das gleich genauer ansehen und dir ein Beispiel schicken.
Du musst einfach nur das "-=TESTME=-" für StringMid binär danach suchen und statt StringLen dann StringLen vom StringToBinary("-=TESTME=-") - 2 (wegen den 0x).

Also ja ich finde den string.
ich mach mal ein zip Archiv fertig

ich schau mal was du meinst

EDIT:
Der Nicht alzu schlimme Nervbold bedankt sich für die Hilfe!

Zitat von alpines

@Candyland

Dann funktioniert es jetzt oder wie? Hab den Edit zu spät gesehen.

Mit kleines Text dateien schon. Bei größeren dingen bekomme ich wieder ungleiche ergebnisse

EDIT: ich hab das script ein klein wenig modifiziert und versuche jetzt einfach nen jpg anzuhängen & wieder zu extrahieren.. vergebens

Zitat von alpines

Sorry aber ich blick durch den Code echt nicht durch. Mir kräuseln sich die Fingernägel.
Kannst du bitte das sauber formatieren und einigermaßen kommentieren?

ich verstehe das!
ich habe mich also direkt daran gemacht, denn so wie dir da sich dir die Fingernägel kräuseln, so kräuseln sich mir die nackenharre.

hier bitte sehr ich bin dir echt dankbar für deine hilfe!

EDIT: wie ich das sehe liegt der Fehler bei StringMid. ich probiere damit herum & ich bekomme echt komische werte ich habe mal ein example geschrieben damit ihr vielleicht versteht was ich meine

;~ $1 = FileRead(FileOpen(@ScriptDir & "\this.txt",16))
$1 = StringToBinary("thisis_sparta")
$trennwand = "sis_"
$2 = "0x" & StringMid($1,StringInStr($1,StringToBinary($trennwand)) + StringLen(StringToBinary($trennwand)),-1) ;"0x" & <=????
ConsoleWrite($trennwand & " = " & StringToBinary($trennwand) & @CRLF) ;sis_ = 0x7369735F
ConsoleWrite($1 & " = " & BinaryToString($1) & @CRLF) ;0x7468697369735F737061727461 = thisis_sparta
ConsoleWrite($2 & " = " & BinaryToString($2) & @CRLF) ;0x369735F737061727461 = 0x369735F737061727461
ConsoleWrite(BinaryToString("0x737061727461") & " = " & StringToBinary("sparta") & " = " & StringLen(StringToBinary("sparta"))-2&@CRLF)

ich versuche lediglich sparta von thisis_sparta zu separieren. das würde auch im nicht binary mode gehen, jedoch möchte ich das ganze auch für größere dateien zum laufen bekommen weshalb binary also benutzt werden sollte.

Zitat von alpines

Schau dir mal VarGetType von einem StringToBinary-Rückgabewert an. Das ist "Binary", das was du machst ist ein String.
Das ist natürlich optisch vielleicht dasselbe, aber AutoIt mag das nicht.

Bei deinem sparta Beispiel würde ich nicht mit Binary arbeiten sondern die Stringfunktionen auch wirklich auf Strings anwenden und anschließend zu Binary kodieren wenn es funktioniert.

das wollte ich vermeiden & ich hab jetzt glaube ich ein paar glückhormone im Körper, denn ich habe eine lösung

#include <MsgBoxConstants.au3>
;~ $1 = FileRead(FileOpen(@ScriptDir & "\this.txt",16))
$1 = StringToBinary("thisis_sparta")
$trennwand = "sis_"
$2 = "0x" & StringMid($1,StringInStr($1,StringTrimLeft(StringToBinary($trennwand),2)) + StringLen(StringToBinary($trennwand))-2,-1)
ConsoleWrite(BinaryToString($2) & @CRLF)

Zitat von alpines

Klappt das bei den großen Dateien auch?

entschudlige für die späte antwort, aber Absolut c: