datei in dase64 / hex

[yellowblue]

Hallo zusammen,
wollte mich mal erkundigen, wie ich eine Datei in base64 decoden kann und anschließend in Hex umwandeln kann ...
wäre sehr dankbar über ein paar hilfreiche antworten...lieben dank

[Ralf Jansen]

Sieh dir mal Convert.ToBase64String in de Hilfe an.
Das mit dem Umwandeln in Hex verstehe ich nicht. Base64 ist Base64 was soll man da noch umwandeln?

[gfoidl]

Hallo,

schau dir mal das Beispiel an:
[highlight=vbnet]
Imports System
Imports System.Text

Namespace ConsoleApplication1
* * Class Program
* * * * Private Shared Sub Main(ByVal args As String())
* * * * * * Dim base64String As String = "SGFsbG8gV2VsdCE="
* * * * * * Dim text As String = Base64ToString(base64String)
* * * * * * Dim hexString As String = StringToHexString(text)
* * * * End Sub
* * * *
* * * * Private Shared Function Base64ToString(ByVal base64String As String) As String
* * * * * * Dim buffer As Byte() = Convert.FromBase64String(base64String)
* * * * * * Return Encoding.[Default].GetString(buffer)
* * * * End Function
* * * *
* * * * Private Shared Function StringToHexString(ByVal inputString As String) As String
* * * * * * Dim sb As New StringBuilder()
* * * * * * For Each c As Char In inputString
* * * * * * * * sb.Append("0x")
* * * * * * * * sb.Append(Convert.ToString(c, 16))
* * * * * * * * sb.Append(" ")
* * * * * * Next
* * * * * *
* * * * * * Return sb.ToString()
* * * * End Function
* * End Class
End Namespace
[/highlight]


mfG Gü

PS: Das soll dich aber nicht davon abhalten in die MSDN zu schauen.

[yellowblue]

ah vielen dank, das ist doch schon mal was
versuch mal ob alles funzt, wenn nicht melde ich mich nochmal...

aber herzlichen dank

[yellowblue]

bekomme leider immer folgende fehlermeldung:

Invalid character in a Base-64 string.

[gfoidl]

Invalid character in a Base-64 string.

Vorbildlich dass du die Fehlermeldung postest aber ohne den String hilft das leider nichts.


mfG Gü

[yellowblue]

hm...sieht so aus...ist nur ein auszug

  Standard Jet DB    �nb`	�U�gr@? �~�����1�y��0��̝c��ßF���N�g�7g؜���(�)*�`n{6��߱MhC�3�3�y[�)|*$�|���rY=v<��f_��Љ$�g�'D���e���F�x��-b�T

handelt sich übrigens um eine datei.mdb


also ich versuche es mal zu erklären:
ich habe eine datei.mdb, diese möchte ich gerne base64 decoden und anschließend in Hex umwandeln ...
habt ihr einen vorschlag wie ich das machen kann, den was ich da versucht habe kommt zu keinem erfolg
unser lehrer hat einen 10stelligen string darin versteckt, den wir heraussuchen müssen..aber das ist nur in hex möglich...wir kennen die stellen in hex wo er beginnt und endet

[Ralf Jansen]

Ich vermute mal Gü paßt gerade sein Beispiel an. Deshalb nur schonmal vorweg du willst vermutlich encodieren nicht decodieren.
Der Code von Gü decodiert aber ... noch .

[gfoidl]

ich habe eine datei.mdb, ...unser lehrer hat einen 10stelligen string darin versteckt, den wir heraussuchen müssen..aber das ist nur in hex möglich...wir kennen die stellen in hex wo er beginnt und endet

Die Daten in der mdb-Datei sind nach einem proprietären Binärformat gespeichert.

Somit liefert dieser Code die Hex-Darstellung:
[highlight=vbnet]
Dim buffer As Byte() = File.ReadAllBytes("Test.mdb")
Dim sb As New StringBuilder()
For Each b As Byte In buffer
sb.AppendFormat("{0} ", Convert.ToString(b, 16).PadLeft(2, "0"c))
Next
Dim hexString As String = sb.ToString()
[/highlight]

Darus die gewünschte Zeichenfolge zu extrahieren ist deine Aufgabe.

Ich vermute mal Gü paßt gerade sein Beispiel an.

Diesmal hast du dich geirrt


mfG Gü