Chiffrierung zur Dechiffrierung

[RPP63]

Moin!
Vielleicht hat ja jemand etwas Langeweile und beteiligt sich am folgenden Rätsel.
Ihr müsst nicht Alan Turing sein, denn die Entschlüsselung gebe ich vor!

Ich schicke euch zunächst den verschlüsselten Text.

15800--538-3542-144--14579--697-13--4464-144-13365-9146-253-86--39--12883-514-33
oder auch
607-18--13993-4217-14--14579--26-559--171-12312-13365-351-13773-86--39--495-357-13553
was das Gleiche bedeutet.
Es gibt nahezu unendlich viele verschiedene Verschlüsselungsmöglichkeiten, die allesamt mit folgender Formel das gleiche Ergebnis bringen.

Wenn ihr ihn in A1 kopiert, wird er wie folgt entschlüsselt:
=TEXTKETTE(NACHSPALTE(TEXTTEILEN(A1;"-";;0);LAMBDA(x;WENNFEHLER(TEXTVOR(ADRESSE(1;x;2);"$");" "))))

Die Frage ist:
Wie habe ich den Text zur Ziffernfolge verschlüsselt?
(natürlich ohne VBA)

Gruß Ralf

[LCohen]

Wegen ADRESSE und der maximalen Anzahl von 16384 Spalten geht das über die Reihung von Spaltenbuchstaben(ketten).

Weiter habe ich mich aber nicht damit beschäftigt.

[shift-del]

15800--538-3542-144--14579--697-13--4464-144-13365-9146-253-86--39--12883-514-33
oder auch
607-18--13993-4217-14--14579--26-559--171-12312-13365-351-13773-86--39--495-357-13553
was das Gleiche bedeutet.
Es gibt nahezu unendlich viele verschiedene Verschlüsselungsmöglichkeiten

15800--538-3542-144--14579--697-13-6-10613-9978-1027-13773-86--39--12883-13365-7

[RPP63]

Fast!
da fehlt noch ein Worttrenner:
15800--538-3542-144--14579--697-13--6-10613-9978-1027-13773-86--39--12883-13365-7

Ich bin gerade dabei, mal den Copilot in Anspruch zu nehmen.
Thema:
Baue einen formelbasierten Automatismus, der ein Wort in Blöcke von 1 bis 3 Buchstaben zerlegt.
Für das Wort Forenstammtisch wären das mal eben 5768 Möglichkeiten …
"Wir" sind aber noch bei den Basics.
=LET(
    n; LÄNGE("Forenstammtisch");
    WENN(
        n = 0;
        1;
        WENN(
            n = 1;
            1;
            WENN(
                n = 2;
                2;
                LET(
                    col; REDUCE(
                        {1; 1; 2};
                        SEQUENZ(n - 2);
                        LAMBDA(acc; x;
                            VSTAPELN(
                                acc;
                                SUMME(
                                    INDEX(acc; ZEILEN(acc));
                                    INDEX(acc; ZEILEN(acc) - 1);
                                    INDEX(acc; ZEILEN(acc) - 2)
                                )
                            )
                        )
                    );
                    INDEX(col; n + 1)
                )
            )
        )
    )
)
Der besagte Satz bietet also 422.309.888 verschiedene Verschlüsselungsmöglichkeiten.

	A	B	C	D	E	F	G	H
1	Wir	sehen	uns	zum	Forenstammtisch	am	Samstag
2	4	13	4	4	5768	2	44	422.309.888

Zelle	Formel
A2	=NACHSPALTE(1:.1;LAMBDA(n;LET( n; LÄNGE(n); WENN(n=0; 1; WENN(n=1; 1; WENN(n=2; 2; LET( col; REDUCE( {1;1;2}; SEQUENZ(n-2); LAMBDA(acc;x; VSTAPELN( acc; SUMME( INDEX(acc; ZEILEN(acc)); INDEX(acc; ZEILEN(acc)-1); INDEX(acc; ZEILEN(acc)-2) ) ) ) ); INDEX(col; n+1) )))) )))
H2	=PRODUKT(A2#)

[shift-del]

Oh ja, das habe ich übersehen.

M F

Das Leerzeichen in der Mitte. Da habe ich momentan keine Idee.

PS:
Auf eine eventuelle Nachfrage deinerseits nach dem Code hätte ich dann geantwortet:
"Ich habe einfach mal ein paar Chatbots gefragt."

[shift-del]

Ich habe es mal mit G und C probiert.

C schlägt vor:

Code:

=TEXTKETTE(MAP(TEXTTRENNEN(A1;"";WAHR);LAMBDA(c;WENN(c="";"-";SPALTE(INDIREKT(c&"1")))));"-")

Auch in der Variante mit mehr Nachdenken bleibt C dabei.

G schlägt eine ähnliche Lösung vor:

Code:

=TEXTKETTE(MAP(TEXTTEILEN(A1;" ");LAMBDA(wort;WENN(wort="";"";SPALTE(INDIREKT(wort&1))&"-"))))

Mit mehr Nachdenken kommt dann:

Code:

=TEXTVERBINDEN("-";FALSCH;MAP(TEXTTEILEN(A1;"-";;0);LAMBDA(x;WENN(x="";"";SPALTE(INDIREKT(x&1))))))

=TEXTKETTE(               MAP(TEXTTRENNEN(A1;"";WAHR);LAMBDA(c;   WENN(c="";  "-";SPALTE(INDIREKT(c&"1"))     )));"-")
=TEXTKETTE(               MAP(TEXTTEILEN( A1;" ");    LAMBDA(wort;WENN(wort="";"";SPALTE(INDIREKT(wort&1))&"-"))))
=TEXTKETTE(               MAP(TEXTTRENNEN(A1;"";WAHR);LAMBDA(c;   WENN(c="";  "-";SPALTE(INDIREKT(c&"1"))     )));"-")
=TEXTVERBINDEN("-";FALSCH;MAP(TEXTTEILEN( A1;"-";;0); LAMBDA(x;   WENN(x="";  ""; SPALTE(INDIREKT(x&1))       ))))

Beide benutzen wohl die selben Quellen zur 'Inspiration'.


EDIT:
G möchte übrigens in der zweiten Variante dass der Eingabetext schon die Trennzeichen enthält.
WIR--TR-EFF-EN--UNS--ZU-M--FOR-EN-STA-MMT-IS-CH--AM--SAM-ST-AG

[RPP63]

Was G alles so will …
TEXTTRENNEN und TEXTVERBINDEN hat der Bot halluziniert, da nicht existent!
Pfeif drauf!
Wobei SPALTE(INDIREKT(c&"1")) bei mir ählich ist ist, ich verzichte nur auf die "" → SPALTE(INDIREKT(x&1))

Mal ein Zwischenstand, bin gerade dabei, zu obfuskieren. 
Um die Spaltenbegrenzung nicht gleich ins Auge springen zu lassen:
226618-126388-3508-3373--117538-5323--83338-7828--373-56173--163-178-1243--103498-15613--18373--13-3538--127558-7678-5518

Ich hänge mal die Dechiffrier-Datei an.
A2 ist leer und zur Dechiffrierung vorgesehen.

Per Boten wird Dir als berechtigter Person folgender "Geheimcode" übermittelt:
Trage in A2 folgende Formel ein:
=DeChiff(15;47)

[RPP63]

Moin!
Mal ohne Obfuskation:
Das Wort Abend bietet mit den jeweils gleichen Formeln 13 verschiedene Möglichkeiten der (De-)Chiffrierung.
In den Spalten C:G stehen die möglichen Wortfragmente mit 1 bis 3 Buchstaben.

	A	B	C	D	E	F	G	H	I
1	Wort	ABEND						Chiffrierung	DeChiff
2	Möglichkeiten	13	A	B	E	N	D	1-2-5-14-4	ABEND
3			AB	E	N	D		28-5-14-4	ABEND
4			A	BE	N	D		1-57-14-4	ABEND
5	Zufall		A	B	EN	D		1-2-144-4	ABEND
6	28-3748		A	B	E	ND		1-2-5-368	ABEND
7			AB	EN	D			28-144-4	ABEND
8			AB	E	ND			28-5-368	ABEND
9			A	BEN	D			1-1496-4	ABEND
10			A	BE	ND			1-57-368	ABEND
11			A	B	END			1-2-3748	ABEND
12			AB	END				28-3748	ABEND
13			ABE	N	D			733-14-4	ABEND
14			ABE	ND				733-368	ABEND

Zelle	Formel
H2	=TEXTVERKETTEN("-";1;NACHSPALTE(C2:G2;LAMBDA(x;WENNFEHLER(SPALTE(INDIREKT(x&1));""))))
I2	=TEXTKETTE(NACHSPALTE(TEXTTEILEN(H2;"-");LAMBDA(x;WENNFEHLER(TEXTVOR(ADRESSE(1;x;2);"$");" "))))
A6	=INDEX(H:H;ZUFALLSBEREICH(2;B2+1))

Mein Zwischenziel ist, die Liste der möglichen Wortfragmente mittels Formel zu spillen.
Als Vereinfachung:
Bilde eine Matrix, dessen Zeilensumme jeweils 5 ergibt, wobei die Summanden nur die Zahlen 1, 2, 3 enthalten dürfen.

	K	L	M	N	O
1	5
2	1	1	1	1	1
3	1	1	1	2
4	1	1	2	1
5	1	1	3
6	1	2	1	1
7	1	2	2
8	1	3	1
9	2	1	1	1
10	2	1	2
11	2	2	1
12	2	3
13	3	1	1
14	3	2

Gruß Ralf

[maninweb]

Hallo Ralf,

anbei eine mögliche Formel, die Dir die Matrix ausrechnet und auch die Zerlegung durchführt. Dabei sei angemerkt,
dass das wohl nur für recht kurze Wörter funktionieren wird, da fnMatrix zunächst alle Kombinationen ausrechnet,
was Excel durchaus ordentlich beschäftigen kann, falls es nicht aufgibt. Danach werden dann die Kombinationen
herausfiltert, wo die Quersumme dann der Länge des Wortes vnWort entspricht.
Mit vnAusgabe kannst Du bestimmen, was ausgegeben werden soll. 

Code:

=LET(vnWort; C2;
     vnMax; 3;
     vnAusgabe; 3;
     fnMatrix; LAMBDA(N;K;
       LET(F; LAMBDA(X; LAMBDA(X));
           A; SEQUENZ(K + 1; 1; 0; 1);
           M; LET(X; SEQUENZ(ZEILEN(A) ^ N; 1; ZEILEN(A) ^ N - 1; -1) * SEQUENZ(1; N; 1; 0);
                  Y; SEQUENZ(ZEILEN(A) ^ N; 1; 1; 0) * ZEILEN(A) ^ SEQUENZ(1; N; N - 1; -1);
                     INDEX(A; 1 + REST(ABRUNDEN(X / Y; 0); ZEILEN(A)); 1));
           T; WECHSELN(NACHZEILE(M; LAMBDA(X; INDEX(F(TEXTVERKETTEN(""; 1; X))(); 1; 1))); 0; "");
           D; INDEX(M; VERGLEICH(EINDEUTIG(T); T; 0); SEQUENZ(1; SPALTEN(M)));
           Q; NACHZEILE(D; LAMBDA(X; SUMME(X)));
           V; FILTER(D; Q = N; 0);
              MAP(SEQUENZ(ZEILEN(V); 1; ZEILEN(V); -1) * SEQUENZ(1; SPALTEN(V); 1; 0);
                  SEQUENZ(ZEILEN(V); 1; 1; 0) * SEQUENZ(1; SPALTEN(V));
                  LAMBDA(X;Y; INDEX(V; X; Y)))));
     fnText; LAMBDA(M;
       WEGLASSEN(REDUCE(""; SEQUENZ(ZEILEN(M)); LAMBDA(A;V;
         LET(D; INDEX(M; V; 0);
             P; WEGLASSEN(SCAN(0; HSTAPELN(1; D); LAMBDA(X;Y; SUMME(X + Y))); 0; -1);
             T; WENN(D > 0; TEIL(vnWort; P; D); "");
                VSTAPELN(A; T)))); 1));
     vnMatrix; fnMatrix(LÄNGE(vnWort); vnMax);
     WAHL(vnAusgabe; WECHSELN(vnMatrix; 0; ""); fnText(vnMatrix); HSTAPELN(WECHSELN(vnMatrix; 0; ""); fnText(vnMatrix))))

Hatte ja zuerst überlegt, rekursive LAMBDAs zu verwenden, die jedoch zu sehr limitiert sind und somit
nicht so wirklich funktioniert haben; also habe da jedenfalls keine Lösung gefunden.

Gruß

[Elex]

Moin

#8   Mein Zwischenziel ist, die Liste der möglichen Wortfragmente mittels Formel zu spillen.

Hier noch mal eine Version dazu. Die beiden Formeln kannst du natürlich in eine Verwursteln.

Wort steht in R1.
Die Formel in R3.

Code:

=LET(Wort;R1;ANZK;LÄNGE(Wort);GB;{1;20;300};F;LAMBDA(FRef;GBRef;WECHSELN(LET(S;MAP(GBRef;LAMBDA(x;WENN(LÄNGE(x)<ANZK;TEXTVERKETTEN("#";1;x&WEGLASSEN(GB;MIN(0;ANZK-LÄNGE(x)-3)));x)));KF;ZUSPALTE(MATRIXERSTELLEN(ZEILEN(S);3;LAMBDA(r;c;WENNFEHLER(INDEX(TEXTTEILEN(INDEX(S;r;1);"#");1;c);#NV)));2);WENN(LÄNGE(INDEX(KF;1;1))<ANZK;FRef(FRef;KF);KF));"0";""));F(F;GB))

Die in S3.

Code:

=LET(U;R3#;w;R1;MATRIXERSTELLEN(ZEILEN(U);LÄNGE(w);LAMBDA(r;c;WENNFEHLER(TEIL(w;SUMME(--TEIL(1&INDEX(U;r;1);SEQUENZ(c);1));TEIL(INDEX(U;r;1);c;1));""))))

Gruß Elex