Base64 decode data: Difference between revisions

=={{header|Visual Basic .NET}}==

{{trans|D}}

<lang vbnet>Module Module1

Sub Main()

Dim data = "VG8gZXJyIGlzIGh1bWFuLCBidXQgdG8gcmVhbGx5IGZvdWwgdGhpbmdzIHVwIHlvdSBuZWVkIGEgY29tcHV0ZXIuCiAgICAtLSBQYXVsIFIuIEVocmxpY2g="

Console.WriteLine(data)

Console.WriteLine()

Dim decoded = Text.Encoding.ASCII.GetString(Convert.FromBase64String(data))

Console.WriteLine(decoded)

End Sub

End Module</lang>

{{out}}

<pre>VG8gZXJyIGlzIGh1bWFuLCBidXQgdG8gcmVhbGx5IGZvdWwgdGhpbmdzIHVwIHlvdSBuZWVkIGEgY29tcHV0ZXIuCiAgICAtLSBQYXVsIFIuIEVocmxpY2g=

To err is human, but to really foul things up you need a computer.

-- Paul R. Ehrlich</pre>