Visualizza wikitesto di Conversione in Base64

La conversione in ''Base64'' traduce i dati binari di una stringa ASCII (caratteri non accentati) nella rappresentazione di un dato di 6 bit utilizzando 64 caratteri stampabili.


La codifica ''Base64'' è utilizzata quando vi è la necessità di codificare dati binari che devono essere memorizzati e trasferiti su supporti che sono progettati per gestire dati testuali. In particolare, la codifica ''Base64'' è utilizzata negli scambi testuali nella posta elettronica.


==Utilizzo delle funzioni specifiche di Gambas==
Dalla versione 3.2 di Gambas, per ottenere la codifica di una stringa in ''Base64'' è possibile utilizzare la specifica funzione '''Base64()''':
 Base64Stringa = '''Base64'''("Stringa")


==Algoritmo alternativo==
E' possibile, ovviamente, ottenere la conversione in ''Base64'' anche con uno specifico algoritmo. Ad esempio uno simile a questo, di cui mostriamo la sua parte essenziale:
 '''Public''' Sub Button1_Click()
 
  Dim s, binario, $fin As String
  Dim j, bfin As Integer
  Dim b As Byte
    
 <FONT color=#006400>' ''Riceve l'intera stringa in codifica "binaria" da convertire:''</font>
    s = TextBox1.Text
    
    For j = 1 To Len(s)
      binario = binario & Bin(Asc(Mid(s, j, 1)), 8)
    Next
 
 <FONT color=#006400>' ''Effettua la conversione:''</font>
    For j = 1 To Len(binario) Step 6
      s = Mid(binario, j, 6)
      bfin = convert(s)
 
      Select Case bfin
        Case 0 To 25
          $fin &= Chr(bfin + 65)
        Case 26 To 51
          $fin &= Chr(bfin + 71)
        Case 52 To 61
          $fin &= Chr(bfin - 4)
        Case 62
          $fin &= Chr(bfin + 19)
        Case 63
          $fin &= Chr(bfin + 16)
      End Select
    Next
    
 <FONT color=#006400>' ''Mostra il risultato:''</font>
    If Len($fin) < 4 Then Print $fin & String$(4 - Len($fin), "=")
 
    If Len($fin) Mod 4 > 0 Then
      b = 4 * (Fix(Len($fin) / 4) + 1)
      Print $fin & String$(b - Len($fin), "=")
    Endif
 
    If Len($fin) Mod 4 = 0 Then Print $fin
    
 '''End'''