Codieren in VB

[Ronja666]

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

[Ganymed]

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...