ROT13 und Excel ?!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

So,
dank Sigi haben wir jetzt einen VBA-Code.
Wenn mir jetzt noch jemand helfen könnte, das ganze sinnvoll in ein Arbeitsmappe einzuarbeiten wäre ich glücklich.
Meine Vorstellung:
Eine Arbeitsmappe - leer
Ein großes Feld, in dem man den Text eigeben kann. Hier wäre zu beachten, dass beim Cäser-Code Satzzeichen, Leerzeichen und Zahlen normal dargestellt werden. d.H. ein Cäser-Code könnte z.B. so aussehen:
sdfjo kjk sdfsdf 19.02.2006, 18:00hrt sdfsdaf. (ergibt keinen Sinn der Text)
D.H. Excel müsste Satzzeichen und Zahlen sowie auch Leerzeichen aus der ver, -bzw. entschlüsselung ausschließen.
Unter dem Eingabefeld noch zwei Buttons. "Verschlüsseln", "Entschlüsseln"
Und dann ein Feld, in dem Excel den Text ausgibt.
Gruß,
Clemens

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

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread