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

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))

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.