Base64-Codierung (VB.NET) Hier wird gezeigt, wie man einen String nach Base64 codiert und umgekehrt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  37.514
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend zwei Routinen zum Codieren eines Strings nach Base64 und umgekehrt.

' String nach Base64 codieren
Public Function ToBase64(ByVal sText As String) As String
  ' String zunächst in ein Byte-Array umwandeln
  Dim nBytes() As Byte = System.Text.Encoding.Default.GetBytes(sText)
 
  ' jetzt das Byte-Array nach Base64 codieren
  Return System.Convert.ToBase64String(nBytes)
End Function

' Base64-String in lesbaren String umwandeln
Public Function FromBase64(ByVal sText As String) As String
  ' Base64-String zunächst in ByteArray konvertieren
  Dim nBytes() As Byte = System.Convert.FromBase64String(sText)
 
  ' ByteArray in String umwandeln
  Return System.Text.Encoding.Default.GetString(nBytes)
End Function

Aufrufbeispiel:

Dim sText As String = "Dieser Text soll nach Base64 codiert werden."
 
' Text nach Base64 konvertieren
Dim sBase64 As String = ToBase64(sText)
MsgBox("Base64" & vbCrLf & sBase64)
 
' jetzt wieder zurückwandeln
MsgBox("Ursprünglich" & vbCrLf & FromBase64(sBase64))