Я попытался сделать кодер/декодер с пользовательским ключом, но он экспортирует тот же файл
Я попытался создать программу, которая открывает 2 файла закодированный файл и ключ, который будет декодировать этот файл и экспортировать новый файл на рабочий стол. Программа работает, но она экспортирует один и тот же файл (закодированный), как ничто декодированное. пожалуйста, помогите.
Я бы хотел, чтобы вы объяснили мне, что я сделал не так, чтобы я мог исправить себя в будущем.
Большое спасибо!
Что я уже пробовал:
Imports System.IO Public Class d3c0d34 Private Sub d3c0d34_Load(sender As Object, e As EventArgs) Handles MyBase.Load OpenFileDialog1.Title = "Please select d3c0d34 file:" OpenFileDialog1.Filter = "d3c0d34 files|*.d3c0d34" If OpenFileDialog1.ShowDialog = DialogResult.OK Then Label1.Text = "Selected key : " + OpenFileDialog1.FileName Dim decoderkey As String decoderkey = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName) MsgBox("Please select file to decode with key") OpenFileDialog2.Title = "Please select file to decode with key" OpenFileDialog2.Filter = "text files|*.txt" If OpenFileDialog2.ShowDialog = DialogResult.OK Then Label2.Text = "Selected file : " + OpenFileDialog2.FileName Else MsgBox("You have not selected a file to decode") OpenFileDialog2.ShowDialog() End If Dim filetodecode As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog2.FileName) MsgBox("Attempting to decode file -" + OpenFileDialog2.FileName + "- with key -" + OpenFileDialog1.FileName + "-") Dim decodingkeys As String Dim path As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\decodedfile.txt" Dim afile As New IO.StreamWriter(path, True) Do Until decodingkeys = Nothing decodingkeys = New StringReader(decoderkey).ReadLine() Dim words As String() = decodingkeys.Split("@") Dim fword As String = words(0) Dim sword As String = words(1) filetodecode.Replace(fword, sword) MsgBox(words(1)) MsgBox(words(2)) Loop afile.WriteLine(filetodecode) afile.Close() Else MsgBox("You have not selected a key") OpenFileDialog1.ShowDialog() End If End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub End Class