Hallo und guten Morgen!
ich habe eine Textdatei mit erfolg verschlüsselt.
So weit so gut.
mit dem entschlüsseln gibt es Probleme.
Wenn ich die Datei mit folgenden cod einlese
F = FreeFile
Open Me.txtPfadEntschl For Input As #F
Do Until EOF(F) ' solange das Ende noch nicht erreicht ist..
Line Input #F, strString ' Erste Zeile einlesen
MsgBox DecryptAES(strString, Me.txtPasswort)
Loop
Close #F
wird nur die erste Zeile (Entschlüsset) eingelesen.
Währe für eine "Richtigstellung" dankbar
mfg
Peter
ich habe eine Textdatei mit erfolg verschlüsselt.
So weit so gut.
mit dem entschlüsseln gibt es Probleme.
Wenn ich die Datei mit folgenden cod einlese
F = FreeFile
Open Me.txtPfadEntschl For Input As #F
Do Until EOF(F) ' solange das Ende noch nicht erreicht ist..
Line Input #F, strString ' Erste Zeile einlesen
MsgBox DecryptAES(strString, Me.txtPasswort)
Loop
Close #F
wird nur die erste Zeile (Entschlüsset) eingelesen.
Währe für eine "Richtigstellung" dankbar
mfg
Peter