Anonymous user
Base64 decode data: Difference between revisions
→{{header|QB64}}
Line 1,032:
</pre>
=={{header|QB64}}==
<lang vb>Option _Explicit
Dim As String udata, decoded
Line 1,049 ⟶ 1,041:
Print udata
Print decoded
Function findIndex& (value As _Unsigned _Byte)
Line 1,080 ⟶ 1,067:
Function encode$ (source As String)
Dim As String Base64: Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim As _Unsigned _Integer64 length: length = Len(source)
Dim As _Unsigned _Integer64 it, strend
Line 1,089 ⟶ 1,077:
it = it + 1
b1 = Asc(Mid$(source, it, 1))
sink = sink +
acc = _SHL(b1 And &H3, 4)
If it <> strend Then
Line 1,095 ⟶ 1,083:
b2 = Asc(Mid$(source, it, 1))
acc = acc Or _SHR(b2, 4)
sink = sink +
acc = _SHL(b2 And &HF, 2)
If it <> strend Then
Line 1,101 ⟶ 1,089:
b3 = Asc(Mid$(source, it, 1))
acc = acc Or _SHR(b3, 6)
sink = sink +
sink = sink +
Else
sink = sink +
sink = sink + "="
End If
Else
sink = sink +
sink = sink + "="
sink = sink + "="
Line 1,154 ⟶ 1,142:
Wend
decode = sink
End Function</lang>
{{out}}
<pre>
|