ROT13 und Excel ?!

Clemens · 2006-10-12T21:09:46+00:00

Hallo, habe ein problem bei dem ich nicht weiter komme: Ich möchte gerne in Excel ein kleines "Programm" schreiben mit dem man Texte in, - und aus ROT13 Ver, - bzw. entschlüsseln kann. Zur erklärung, ROT13 (Rotation 13) ist eine einfache Verschlüsselung bei der die Buchstaben des Alphabetes um 13 Rotiert werde. Will heißen: a = n b = o ... n = a Usw. Zahlen und Satzszeichen, sowie Leerzeichen werden wie gewohnt geschrieben. Nun wieder zurück zu Excel. Wie kann ich es in Excel umsetzen, dass Excel einen Text den ich eingebe, Entschlüsselt, bzw. Verschlüsselt Hat Irgendjemand eine Idee? Bin offen und dankbar für alles..... MfG, Clemens

Hallo Clemens,
das nennt man in der Kryptographie einen Cäsar-Code. Der ist relativ einfach und total unsicher. Hier ein Beispiel als VBA-Funktion:


Function Caesar(Text As String, Key As Long) As String
Dim i As Long
Dim j As Long
Dim X As String
Dim Tx As String
Dim ABC As Variant
If Key > -59 And Key < 59 Then
ABC = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z", "Ä", "Ö", "Ü", _
"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
"k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z", "ä", "ö", "ü", "ß")
For i = 1 To Len(Text)
X = Mid(Text, i, 1)
For j = 0 To 58
If ABC(j) = X Then
j = j + 590 + Key
j = j Mod 59
X = ABC(j)
Exit For
End If
Next j
Tx = Tx & X
Next i
Else
Tx = ""
End If
Caesar = Tx
End Function

Bei Key gibst du an, um wieviele Zeichen verschoben werden soll. Zum zurückübersetzen verwendest du den negativen Key. Viel Spaß!
Gruß
Sigi

Hallo, Clemens,
die vereinfachte Funktion kannst Du ohne besondere Änderung in ein Standardmodul der Arbeitsmappe übernehmen (in der Arbeitmappe mit [ALT][F11] den VBA-Editot aufrufen, ggf. Modulornder für die Arbeitsmappe einfügen; Code in das Code-Fenster einfügen):

Public Function Rot13(ByRef Text As String) As String
Dim i As Long
Rot13 = Text
For i = 1 To Len(Text)
Select Case UCase$(Mid$(Text, i, 1))
Case "A" To "M"
Mid$(Rot13, i) = Chr$(Asc(Mid$(Text, i, 1)) + 13)
Case "N" To "Z"
Mid$(Rot13, i) = Chr$(Asc(Mid$(Text, i, 1)) - 13)
End Select
Next i
End Function
Public Function reRot13(ByRef Text As String) As String
Dim i As Long
reRot13 = Text
For i = 1 To Len(Text)
Select Case Asc(UCase$(Mid$(Text, i, 1)))
Case Asc("A") + 13 To Asc("M") + 13
Mid$(reRot13, i) = Chr$(Asc(Mid$(Text, i, 1)) - 13)
Case Asc("N") - 13 To Asc("Z") - 13
Mid$(reRot13, i) = Chr$(Asc(Mid$(Text, i, 1)) + 13)
End Select
Next i
End Function

Die Funktion reRot13(...) liefert die Rückwandlung.
Anwendung:

zu Verschlüsselnder Text in Zelle A1

Zellenformel =Rot13(A1) in der Zelle A2

Zellenformel =reRot13(A2) in der Zelle A3
Gruß,
Uwe

Forumthread: ROT13 und Excel ?!

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

ROT13 Verschlüsselung in Excel umsetzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)