Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in verschlüsselter Textdatei speichern

Daten in verschlüsselter Textdatei speichern
13.09.2004 09:49:08
RALF
Moin,
ich habe eine Datei, mit Produkten, die Modular aufgeteilt sind.
Pro Produktelement soll Name und ein Paar Eigenschaften weggeschrieben werden.
Ich möchte, dass sich ein Nutzer ein Produkt aus Einzelmodulen "zusammenklicken" kann. Das soll mittels eines UserForm geschehen.
Problem: Die Daten zu den Produktmodulen sollen in einer verschlüsselten Textdatei stehen.
Ich brauche also eine Möglichkeit, in die entsprechende Datei zu schreiben und aus Ihr zu lesen. Mit unverschlüsselten Dateien ist das kein Thema.
Funktionsfähig sollte dies in Office97 und höher sein.
Gruß RALF

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in verschlüsselter Textdatei speichern
13.09.2004 12:50:48
Axel
Hallo,
du schreibst, mit unverschlüsselten Daten ist das kein Thema. Das heisst, du hast den kompletten Mechanismus bereits lauffähig codiert, richtig?
Eigentlich brauchst du jetzt nur noch eine geeignete Ent- und Verschlüsselungsroutine an geeigneter Stelle, nämlich nach dem Lesen bzw. vor dem Schreiben in die Textdatei, dazwischenzuschalten.
Gruß
Axel
AW: Daten in verschlüsselter Textdatei speichern
13.09.2004 12:58:33
RALF
an genau der Stelle haperts bei mir, kannst Du mir da weiterhelfen (vielleicht ein Bsp.)?
Gruß RALF
AW: Daten in verschlüsselter Textdatei speichern
13.09.2004 14:30:38
Axel
Hallo Ralf,
deiner Phantasie sind da keine Grenzen gesetzt. Der Algorithmus kann auch aus dem hohlen Bauch kommen, hängt halt von der zu erzielenden Effizienz der Verschlüsselung ab.
Hier ein sehr einfaches Beispiel wo die einfache Email-Verschlüsselungsmethode Rot13 verwendet wird. Hierbei werden Buchstaben die Buchstaben um 13 Positionen innerhalb der ASCII-Tabelle verschoben. Sonderzeichen und Ziffern bleiben unverschlüsselt.
Siehe auch http://www.rot13.de


Option Explicit
Private Const Alfa As String = "abcdefghijklmnopqrstuvwxyz"
Private Const AlfaBig As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Public Function Rot13( _
   str As String _
   ) As String
   
   Dim c As String
   Dim i As Integer, intc As Integer
   
   For i = 1 To Len(str)
      c = Mid(str, i, 1)   ' Zeichen
      intc = Asc(c)        ' ASCII-Code des Zeichens
      
      Select Case intc
         
         Case 97 To 122 ' Kleinbuchstabe
            Rot13 = Rot13 & Mid$(Alfa, (intc - 84) Mod 26 + 1, 1)
            
         Case 65 To 90  ' Großbuchstabe
            Rot13 = Rot13 & Mid$(AlfaBig, (intc - 52) Mod 26 + 1, 1)
                  
         Case Else      ' sonstiges, also Ziffern oder Sonderzeichen
            ' unverändert übernehmen
            Rot13 = Rot13 & c
            
      End Select
      
   Next
   
End Function
Die Funktion kann zum Ver- und Entschlüsseln genutzt werden.
Gruß
Axel
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige