Frage : vb.net - hex Daten

hallo dort, haben
I diesen hex Konverter, aber ich möchte es Arbeit bilden. umgewandelt von C# im eine Störung auf Convert.ToString erhalten 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Imports System.Collections.Generic
Importe System.ComponentModel
Importe System.Data
Importe System.Drawing
Importe System.Text
Importe System.Windows.Forms

Allgemeine Kategorie Form1
    Privates Unterseeboot Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click
        Versuch
            textBox2.Clear ()
            textBox1.Text = textBox1.Text.Replace („„, "")
            textBox1.Text = textBox1.Text.Replace (vbLf u. vbTab, "")
            textBox1.Text = textBox1.Text.Trim ()
            Schwaches StrLen als ganze Zahl = textBox1.Text.Length
            A als ganze Zahl verdunkeln = 0
            Während a < StrLen
                Schwaches Char2Convert als Schnur = textBox1.Text.Substring (a, 2)
                Schwaches n als ganze Zahl = Convert.ToInt32 (Char2Convert, 16)
                Schwaches c als Putzfrau = ChrW (N)

                textBox2.Text = textBox2.Text + c.ToString ()
                a = a + 2
            Beenden während
        Ex als Ausnahme verfangen
            MessageBox.Show („Umwandlungs-Störung auftrat at: “ u. ex. Mitteilung, „Umwandlungs-Störung“)
        Enden-Versuch
    Enden-Unterseeboot

    Private Handgriffe Button2.Click des Unterseeboot-Button2_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs)
        Versuch
            textBox1.Clear ()
            textBox2.Text = textBox2.Text.Replace („„, "")
            textBox2.Text = textBox2.Text.Replace (vbLf u. vbTab, "")
            textBox2.Text = textBox2.Text.Trim ()
            Schwaches StrLen als ganze Zahl = textBox2.Text.Length
            A als ganze Zahl verdunkeln = 0
            Während a < StrLen
                Schwaches Char2Convert als Schnur = textBox2.Text.Substring (a, 1)
                Schwaches c als Putzfrau = Char2Convert.ToCharArray (0, 1) (0)
                Schwaches n als Schnur = Convert.ToString (c, 16)

                textBox1.Text = textBox1.Text + n u. „„
                a = a + 1
            Beenden während
        Ex als Ausnahme verfangen
            MessageBox.Show („Umwandlungs-Störung auftrat at: “ u. ex. Mitteilung, „Umwandlungs-Störung“)
        Enden-Versuch
    Enden-Unterseeboot
Ende Class

Antwort : vb.net - hex Daten

Ich kopiere,/Paste Ihr Hex Code in mein Hex.txt und analysiere es using diese Methode (Code sehen).

Ich neu erstelle das genaue die gleichen Daten (außer der Kleinschreibung erzeugt von meinem hex Projektorwerkzeug):

30818902818100b17d325a8a507d48dbdfcbe2e63649b00c0ecdc2405fa3b017f06ebfb92515234829773bb9ff2e8695cc6093bc137b7bd90ebddfe1d6ce45f97085ffc35ade5e3ebdec1204002566469507f81f6005930849f73114b9beddcf181c81b6d43a668c9b9a164eef6d6df23db62f4e72655725b69918c820bdb6f6954f2156cd74470203010001

Ursprüngliche Hexe:

30818902818100B17D325A8A507D48DBDFCBE2E63649B00C0ECDC2405FA3B017F06EBFB92515234829773BB9FF2E8695CC6093BC137B7BD90EBDDFE1D6CE45F97085FFC35ADE5E3EBDEC1204002566469507F81F6005930849F73114B9BEDDCF181C81B6D43A668C9B9A164EEF6D6DF23DB62F4E72655725B69918C820BDB6F6954F2156CD74470203010001
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

        Schwacher Eingang als StreamReader
        Schwacher Ausgang als FileStream
        Schwaches hexLine als Schnur

        Eingang = File.OpenText („hex.txt“)
        Ausgang = File.Create („text.txt“)

        Während nicht input.EndOfStream
            hexLine = input.ReadLine ()
            Schwaches StrLen als ganze Zahl = hexLine.Length
            A als ganze Zahl verdunkeln = 0

            Während a  < StrLen="" output="">
Weitere Lösungen  
 
programming4us programming4us