У меня есть некоторые ошибки плохие данные
Извините, у меня есть программа, и я получил какую-то ошибку. есть ошибка в "fsdecrypted.Write (новый StreamReader (csdec).ReadToEnd) "плохие данные" из моей программы, пожалуйста, помогите мне в моем обучении. спасибо, извините за мой плохой английский.
Что я уже пробовал:
Private Sub enkripataudekrip(ByVal inputfile As String, ByVal outputfile As String, ByVal direction As aksikripto) Dim fsinput As New FileStream(inputfile, FileMode.Open, FileAccess.Read) Select Case direction Case aksikripto.enkrip Dim fsoutput As New FileStream(outputfile, FileMode.OpenOrCreate, FileAccess.Write) Dim des As New DESCryptoServiceProvider Dim cs As New CryptoStream(fsoutput, des.CreateEncryptor, CryptoStreamMode.Write) Dim bytearrayinput(fsinput.Length - 1) As Byte fsinput.Read(bytearrayinput, 0, bytearrayinput.Length) cs.Write(bytearrayinput, 0, bytearrayinput.Length) cs.Close() Case aksikripto.dekrip Dim des As New DESCryptoServiceProvider Dim csdec As New CryptoStream(fsinput, des.CreateDecryptor, CryptoStreamMode.Read) Dim fsdecrypted As New StreamWriter(outputfile) fsdecrypted.Write(New StreamReader(csdec).ReadToEnd) 'bad DATA fsdecrypted.Flush() fsdecrypted.Close() End Select End Sub