Vigenère Veschlüsselung per VBA

Option Explicit Option Base 1 Function Verschlüsseln(ByVal Wort As String, ByVal Vergl As String) As String 'Text-Verschlüssung nach Vigenère Dim n As Long, pos As Integer Const abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ" Vergl = UCase(Vergl) Wort = UCase(Wort) For n = 1 To Len(Wort) If Mid(UCase(Wort), n, 1) <> " " Then pos = IIf(n Mod Len(Vergl) <> 0, n Mod Len(Vergl), Len(Vergl)) Verschlüsseln = Verschlüsseln & Mid(abc, Asc(Mid(Vergl, pos, 1)) + Asc(Mid(Wort, n, 1)) - 129, 1) Else Verschlüsseln = Verschlüsseln & " " End If Next n End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Verschlüsseln(ByVal Wort As String, ByVal Vergl As String) As String 'Text-Verschlüssung nach Vigenère Dim n As Long, pos As Integer Const abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ " For n = 1 To Len(Wort) 'Leerzeichen suchen If Mid((Wort), n, 1) = " " Then pos = IIf(n Mod Len(Vergl) <> 0, n Mod Len(Vergl), Len(Vergl)) Verschlüsseln = Verschlüsseln & Mid(abc, Asc(Mid(Vergl, pos, 1)) + Asc(Mid(Wort, n, 1)), 1) & " " Else Verschlüsseln = Verschlüsseln & " " End If Vergl = UCase(Vergl) Wort = UCase(Wort) 'Normale Buchstaben und Sonderzeichen If Mid(UCase(Wort), n, 1) <> " " Then pos = IIf(n Mod Len(Vergl) <> 0, n Mod Len(Vergl), Len(Vergl)) Verschlüsseln = Verschlüsseln & Mid(abc, Asc(Mid(Vergl, pos, 1)) + Asc(Mid(Wort, n, 1)) - 129, 1) Else Verschlüsseln = Verschlüsseln & " " End If Next n End Function

Hallo ihr Verschlüssler,
ich hätte da auch noch eine VBA-Funktion ...


Function VigenereHin(Text As String, CodeWort As String) As String
Dim ABC As Variant
Dim Q(0 To 59, 0 To 59) As String
Dim Co() As String
Dim Zei As String
Dim CoZei As String
Dim Txt As String
Dim LnKe As Long
Dim LnTx As Long
Dim Gf As Boolean
Dim i As Long
Dim j As Long
Dim x As Long
Dim z As Long
Dim s As Long
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 = 0 To 59
For j = 0 To 59
x = (i + j) Mod 60
Q(i, j) = ABC(x)
Next j
Next i
LnKe = Len(CodeWort)
LnTx = Len(Text)
ReDim Co(LnTx)
For i = 1 To LnTx
x = (i - 1) Mod LnKe
x = x + 1
Co(i) = Mid(CodeWort, x, 1)
Next i
For i = 1 To LnTx
Gf = False
CoZei = Co(i)
For z = 0 To 59
If Q(z, 0) = CoZei Then
Exit For
End If
Next z
For s = 0 To 59
If Q(0, s) = Mid(Text, i, 1) Then
Gf = True
Exit For
End If
Next s
If Gf Then
Zei = Q(z, s)
Txt = Txt & Zei
Else
Txt = Txt & Mid(Text, i, 1)
End If
Next i
VigenereHin = Txt
End Function

Gruß
Sigi

Function VigenereHer(Text As String, CodeWort As String) As String Dim ABC As Variant Dim Q(0 To 59, 0 To 59) As String Dim Co() As String Dim Zei As String Dim CoZei As String Dim Txt As String Dim LnKe As Long Dim LnTx As Long Dim Gf As Boolean Dim i As Long Dim j As Long Dim x As Long Dim z As Long Dim s As Long 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 = 0 To 59 For j = 0 To 59 x = (i + j) Mod 60 Q(i, j) = ABC(x) Next j Next i LnKe = Len(CodeWort) LnTx = Len(Text) ReDim Co(LnTx) For i = 1 To LnTx x = (i - 1) Mod LnKe x = x + 1 Co(i) = Mid(CodeWort, x, 1) Next i For i = 1 To LnTx Gf = False CoZei = Co(i) For z = 0 To 59 If Q(z, 0) = CoZei Then Exit For End If Next z For s = 0 To 59 If Q(z, s) = Mid(Text, i, 1) Then Gf = True Exit For End If Next s If Gf Then Zei = Q(0, s) Txt = Txt & Zei Else Txt = Txt & Mid(Text, i, 1) End If Next i VigenereHer = Txt End Function

Beliebteste Forumthreads (12 Monate)

Vigenère Veschlüsselung per VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread