Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

Cäsar-Verschlüsselung mit Zahlen
#1
Ich möchte mit der Cäsar-Verschlüsselung Zahlen verschlüsseln, aber finde nichts im Net, kann mir einer weiterhelfen?
Ich möchte das eine Zahlenreihe von vielleicht 4 Stellen (jede Ziffer in einer Excelzelle) sich verschiebt z.B.
5556 verschiebt sich zu 6667, wenn ich als Verschiebewert "1" einstelle.
Für eine Zelle funktioniert es bei mit mit meinen Kentnissen aber bei
8889 müsste das Ergebnit 8810 sein, das geht aber nicht, denn es kommt 88810 raus und das ist eine Ziffer zuviel.
Kann mit einer weiterhelfen?
Es gibt zwar mit der Formel "Code" eine möglichkeit zu verschlüsseln aber da ist schon eingestellt welche Zahlen durch "Code" rauskommen, ich möchte den Code aber Benutzerdefiniert einstellen.

Wenn sich einer mit Cäsar-Verschlüsselung auskennt soll er sich doch bitte melden.
Wäre sehr dankbar.
Antworten Top
#2
Moin Maxwell

vielleicht hilft dies: Du schreibst den (wie war das?) Verschiebewert in eine Zelle z.B. A1. Dann schreibst Du Deinen zu verschlüsselnde Ziffern in die Zellen A2 bis A5. Und dann in die Zellen B2 bis B5 folgenden Formel, die berücksichtigt, dass WENN ORIGINAL-WERT + VERSCHIEBEWERT > 10 eben einfach Deinen Verschiebewert abzieht:
Code:
=WENN(B1+$A$1 > 9;B1-$A$1;B1+$A$1)
und das kopierst Du jetzt in die Zellen B2 bis B5

Grüße an Cäsar

d`r Bastler von den VBAsteleien.de
Win 10 & 11, Office 2019 & 2021 & macOS X.15, XL 2019
Antworten Top
#3
Hi,

ich weiß zwar nicht wie Du von 8889 auf 8810 kommst, aber das sollte so funktionieren:

=rest(a1+f1;10) mit Deiner Ziffer in A1 und den Verschiebewert in F1

Die Ergebnisse von d'r Bastler entsprechen nicht der Caesar-Verschlüsselung.
Im Übrigen ist eine Caesar-Verschlüsselung mit Ziffern nicht sehr sinnig, da es nur 10 Ziffern gibt und somit maximal eine Verschiebung von 9 möglich ist.

Als Hinweis: https://de.wikipedia.org/wiki/Caesar-Ver...%BCsselung
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#4
Hallo Max,

eine Caesar-Verschlüsselung auf Zahlen bedeutet, jede Ziffer (als Text) wird verschoben. Es entsteht daher anschließend ein Text.
Wenn du die Verschiebung nicht auf aufsteigende Zahlen (1, 2, 3, ...) anwendest, sondern auf vermischte Zahlen (8, 2, 0, 4, ...), dann ist es wenigstens nicht mehr sooo einfach zu entschlüsseln. (s. VBA-Fkt)

Gruß Sigi


Angehängte Dateien
.xlsm   Caesar.xlsm (Größe: 16,08 KB / Downloads: 3)
Antworten Top
#5
Moin!
Was ist Windows 8 für eine Excel-Version?  Huh
Caesar bedeutet, dass "übers Ende" "beginnend mit Anfang" ist.
Ich stelle gleich mal eine Ziffernvariante für aktuelle Excel-Versionen ein.

And here it is:
ABCD
1Caesaren →571
2Original
31974642986412085
419999644448666620000
5647845192390314512758956

ZelleFormel
B3=TEXTKETTE(RECHTS(--TEIL($A3;SEQUENZ(LÄNGE($A3));1)+B$1))

Formel aus B3 nach rechts und unten ziehen.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#6
Und da jede Chiffrierung möglichst dechiffriert werden sollte:
ABCDEFG
1Caesaren →571571
2Original
31974642986412085197419741974
419999644448666620000199991999919999
5647845192390314512758956647845647845647845

ZelleFormel
E3=TEXTKETTE(REST(TEIL(B3;SEQUENZ(LÄNGE(B3));1)-E$1;10))
B3=TEXTKETTE(RECHTS(--TEIL($A3;SEQUENZ(LÄNGE($A3));1)+B$1))
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#7
Hi,

geht auch so:


.xlsx   Caesar_Zahlen.xlsx (Größe: 9,35 KB / Downloads: 8)
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#8
Oh sorry ich hab mich verschrieben.

Ich meinte bei einer Zahl von 8889 soll wenn ich die Verstellzahl auf 1 stelle 8890 herauskommen.
Hab ich ganz übersehen.
Kann mir da einer weiterhelfen?
Antworten Top
#9
Hi,

genauso falsch. 8889 ergibt bei Verschiebung 1 analog zu Deinen Mustern 9990!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#10
Edgar ist bis jetzt der Einzige, der die Anfrage korrekt beantwortet hat!
Meine Formel ist viel zu kompliziert, weil:
Zitat:jede Ziffer in einer Excelzelle

Daher vereinfacht (siehe Edgar):
Chiffrierung: =REST(Ziffer_PLUS_C_Chiffre;10)
Dechiffrierung: =REST(Ziffer_MINUS_C_Chiffre;10)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste