bonjour, voila un bout code fonctionnel pour xor un hex, j'ai retravaille le code pour xor (déchiffrer) un fichier complet hexadécimal en saisissant la clés dans textbox et return le fichier xorée dans un autre textbox.
le problème est que lorsque je mes le fichier(2048 octets) et je clique pour xorée j'ai une erreur alors que avant le fichier j'ai essayer avec 8 octet il me la fais correctement. merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports System.IO
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim choisir As String = TextBox4.Text
        Dim tuc_lecture As Byte()
        Dim adressStart As Integer = 9
        Dim longeur As Integer = 4
        Dim sb As New System.Text.StringBuilder()
        tuc_lecture = File.ReadAllBytes(choisir)
        Dim hexstr = BitConverter.ToString(tuc_lecture, adressStart, longeur).Replace("-", "")
        Dim xorhex As String = TextBox2.Text
        Dim xornum As Integer = Integer.Parse(xorhex, Globalization.NumberStyles.HexNumber)
        For Each numhex As String In hexstr.Split(" "c)
            Dim num As Integer = Integer.Parse(numhex, Globalization.NumberStyles.HexNumber)
            sb.Append((num Xor xornum).ToString("X2"))
        Next
 
        TextBox3.Text = sb.ToString()
    End Sub