Hi leute,

kann mir vielleicht jemand sagen wie ich eine textdatei codieren bzw. verschlüsseln kann? - Die Textdatei wird in Vb angelegt - und abgespeichert - sie muss dann aber auch wieder von dem Programm lesbar sein!???

danke schon mal für die Hilfe

Cu Ronja666

Ich habe das grade auch mal gemacht. Mein Modul sieht so aus:

Option Explicit

Private strSchluessel As String

Public Function Codieren(strVerschluesselnderText As String) As String

Dim lngNr As Long

Dim i As Long

Dim lngCode As Long

Dim strAusgabe As String

Dim lngLaenge As Long

Dim lngNullen As Long

lngNr = 1

lngLaenge = Len(strSchluessel)

For i = 1 To Len(strVerschluesselnderText)

lngCode = Asc(Mid(strVerschluesselnderText, i, 1)) + Asc(Mid(strSchluessel, lngNr, 1))

If lngCode > 255 Then lngCode = lngCode - 255

lngNullen = Len(lngCode)

If lngNullen = 2 Then

strAusgabe = strAusgabe & "0" & CStr(lngCode)

Else

strAusgabe = strAusgabe + CStr(lngCode)

End If

lngNr = lngNr + 1

If lngNr > lngLaenge Then lngNr = 1

Next i

Codieren = strAusgabe

End Function

Public Function DeCodieren(strVerschluesselnderText As String) As String

Dim lngNr As Long

Dim i As Long

Dim lngCode As Long

Dim strAusgabe As String

Dim lngLaenge As Long

strAusgabe = ""

lngNr = 1

lngLaenge = Len(strSchluessel)

For i = 1 To Len(strVerschluesselnderText) Step 3

lngCode = CLng(Mid(strVerschluesselnderText, i, 3)) - Asc(Mid(strSchluessel, lngNr, 1))

If lngCode < 0 Then lngCode = 255 + lngCode

strAusgabe = strAusgabe + Chr(lngCode)

lngNr = lngNr + 1

If lngNr > lngLaenge Then lngNr = 1

Next

DeCodieren = strAusgabe

End Function

Private Sub Class_Initialize()

strSchluessel = "Hier ist der Schlüssel"

End Sub

Bei einem Schreibtischtest dürfte klar werden, was das Modul macht...