TXT Verschlüsselung - Komma verursacht Zeilenumbruch
10.01.2025 01:21:39
toblee
Ich nutze diesen einfachen Code um .txt-Dateien schnell und simple zu verschlüsseln - für meine Zwecke völlig ausreichend. Leider habe ich jetzt gemerkt, dass er beim verschlüsseln bei jedem Komma ( , ) einen Zeilenumbruch macht und das Komma löscht! Das darf aber nicht sein, die Zeilen müssen 1zu1 eingehalten werden, auch darf das Komma nicht gelöscht werden.
Wenn also in der TXT steht:
z1;0;Mustermann, Max;Januar;173;0;5,5;test
Dann kommt nach Ver- und wieder Entschlüsseln folgendes heraus:
z1;0;Mustermann
Max;Januar;173;0;5
5;test
Frage daher: wie müsste ich den Code anpassen, damit er das nicht mehr tut?
Jemand eine Idee dazu?
Option Explicit
' Encrypt a string
Public Function Encrypt(ByVal icText As String) As String
Dim icLen As Integer
Dim icNewText As String
Dim icChar As String
Dim i As Integer
icChar = ""
icLen = Len(icText)
For i = 1 To icLen
icChar = Mid(icText, i, 1)
Select Case Asc(icChar)
Case 65 To 90
icChar = Chr(Asc(icChar) + 127)
Case 97 To 122
icChar = Chr(Asc(icChar) + 121)
Case 48 To 57
icChar = Chr(Asc(icChar) + 196)
Case 32
icChar = Chr(32)
End Select
icNewText = icNewText + icChar
Next
Encrypt = icNewText
End Function
' Decrypt a string
Public Function Decrypt(ByVal icText As String) As String
Dim icLen As Integer
Dim icNewText As String
Dim icChar As String
Dim i As Integer
icChar = ""
icLen = Len(icText)
For i = 1 To icLen
icChar = Mid(icText, i, 1)
Select Case Asc(icChar)
Case 192 To 217
icChar = Chr(Asc(icChar) - 127)
Case 218 To 243
icChar = Chr(Asc(icChar) - 121)
Case 244 To 253
icChar = Chr(Asc(icChar) - 196)
Case 32
icChar = Chr(32)
End Select
icNewText = icNewText + icChar
Next
Decrypt = icNewText
End Function
Anzeige
