Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.04.2024 06:06:26 |
Michael |
|
|
|
10.04.2024 06:28:15 |
ralf_b |
|
|
|
10.04.2024 06:41:40 |
Michael |
|
|
|
10.04.2024 20:07:41 |
xlKing |
|
|
Zelleninhalt ver- & entschlüsseln |
10.04.2024 20:27:57 |
xlKing |
|
|
|
11.04.2024 05:23:23 |
Michael |
|
|
Von:
xlKing |
Datum:
10.04.2024 20:27:57 |
Views:
58 |
Rating:
|
Antwort:
|
Thema:
Zelleninhalt ver- & entschlüsseln |
Da hab ich doch glatt das Codebeispiel vergessen: Für die Verschlüsselung mit jedem Buchstaben + 3 könnte der Code so aussehen:
Sub Test()
Debug.Print Verschlüsseln("Passwort")
Debug.Print Entschlüsseln("Sdvvzruw")
End Sub
Function Verschlüsseln(Wort As String) As String
For i = 1 To Len(Wort)
Verschlüsseln = Verschlüsseln & Chr(Asc(Mid(Wort, i, 1)) + 3)
Next i
End Function
Function Entschlüsseln(Wort As String) As String
For i = 1 To Len(Wort)
Entschlüsseln = Entschlüsseln & Chr(Asc(Mid(Wort, i, 1)) - 3)
Next i
End Function
Wenn du es noch sicherer willst, dann kannst du z.B. jeden zweiten oder dritten Buchstaben nach unten statt nach oben verschieben. Probier dich mal ein bisschen mit den String-Funktionen CHR und ASC aus.
Gruß Mr. K.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.04.2024 06:06:26 |
Michael |
|
|
|
10.04.2024 06:28:15 |
ralf_b |
|
|
|
10.04.2024 06:41:40 |
Michael |
|
|
|
10.04.2024 20:07:41 |
xlKing |
|
|
Zelleninhalt ver- & entschlüsseln |
10.04.2024 20:27:57 |
xlKing |
|
|
|
11.04.2024 05:23:23 |
Michael |
|
|