base64_decode
-
Hi to all, how can I build the base64_decode in VB.NET? I have found this code but I don't know how can I use it. The decoded string is an image. How can I display it? This is the code:
Private Const base64 = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" Private Function base64_decode(ByVal a As String) As String Dim w1 As Integer Dim w2 As Integer Dim w3 As Integer Dim w4 As Integer Dim n As Integer Dim retry As String For n = 1 To len(a) Step 4 w1 = mimedecode(mid$(a, n, 1)) w2 = mimedecode(mid$(a, n + 1, 1)) w3 = mimedecode(mid$(a, n + 2, 1)) w4 = mimedecode(mid$(a, n + 3, 1)) If w2 >= 0 Then retry = retry + Chr(((w1 * 4 + Int(w2 / 16)) And 255)) If w3 >= 0 Then retry = retry + Chr(((w2 * 16 + Int(w3 / 4)) And 255)) If w4 >= 0 Then retry = retry + Chr(((w3 * 64 + w4) And 255)) Next base64_decode = retry End Function Private Function mimedecode(ByVal a As String) As Integer If Len(a) = 0 Then mimedecode = -1 : Exit Function mimedecode = InStr(base64, a) - 1 End FunctionThis is the encoded image:/9j/4AAQSkZJRgABAQAAAQABAAD//gA+Q1JFQVRPUjogZ2QtanBlZyB2MS4wICh1c2luZyBJSkcgSlBFRyB2NjIpLCBkZWZhdWx0IHF1YWxpdHkK/9sAQwAIBgYHBgUIBwcHCQkICgwUDQwLCwwZEhMPFB0aHx4dGhwcICQuJyAiLCMcHCg3KSwwMTQ0NB8nOT04MjwuMzQy/9sAQwEJCQkMCwwYDQ0YMiEcITIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy/8AAEQgAGQBkAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A9Pks45HGp232ZIJY41zaSPHIrNGqxRYULlcsp5KE7kzgIM3LPSUkgxNFbahDEWhgjeP93GUUIfv7mUZjC4XdySxzkBY4JA9xcyNbXNwILoTyJJbK0hdLdQR/dBzsIZeWJIA2jdU+pGO5sY9Rt7CS5ilzMYVUlrjCME46KGU5LHkqAhB3bR0tvYz0HR2OmalfRRSWsyGxDG2Q71wjqh39AUwcqoyMbGx935SQC31Fne4ZrhYymbSBWkORufJYu2FJDheANyqN5IFcd4gk1C9+K76M+rajHpc+k7pba3wg5YgKC3y5Zto39fm2ZHY0FdZe48V6NaXxvrixSKS0nnuWfd59 -
Hi to all, how can I build the base64_decode in VB.NET? I have found this code but I don't know how can I use it. The decoded string is an image. How can I display it? This is the code:
Private Const base64 = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" Private Function base64_decode(ByVal a As String) As String Dim w1 As Integer Dim w2 As Integer Dim w3 As Integer Dim w4 As Integer Dim n As Integer Dim retry As String For n = 1 To len(a) Step 4 w1 = mimedecode(mid$(a, n, 1)) w2 = mimedecode(mid$(a, n + 1, 1)) w3 = mimedecode(mid$(a, n + 2, 1)) w4 = mimedecode(mid$(a, n + 3, 1)) If w2 >= 0 Then retry = retry + Chr(((w1 * 4 + Int(w2 / 16)) And 255)) If w3 >= 0 Then retry = retry + Chr(((w2 * 16 + Int(w3 / 4)) And 255)) If w4 >= 0 Then retry = retry + Chr(((w3 * 64 + w4) And 255)) Next base64_decode = retry End Function Private Function mimedecode(ByVal a As String) As Integer If Len(a) = 0 Then mimedecode = -1 : Exit Function mimedecode = InStr(base64, a) - 1 End FunctionThis is the encoded image:/9j/4AAQSkZJRgABAQAAAQABAAD//gA+Q1JFQVRPUjogZ2QtanBlZyB2MS4wICh1c2luZyBJSkcgSlBFRyB2NjIpLCBkZWZhdWx0IHF1YWxpdHkK/9sAQwAIBgYHBgUIBwcHCQkICgwUDQwLCwwZEhMPFB0aHx4dGhwcICQuJyAiLCMcHCg3KSwwMTQ0NB8nOT04MjwuMzQy/9sAQwEJCQkMCwwYDQ0YMiEcITIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy/8AAEQgAGQBkAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A9Pks45HGp232ZIJY41zaSPHIrNGqxRYULlcsp5KE7kzgIM3LPSUkgxNFbahDEWhgjeP93GUUIfv7mUZjC4XdySxzkBY4JA9xcyNbXNwILoTyJJbK0hdLdQR/dBzsIZeWJIA2jdU+pGO5sY9Rt7CS5ilzMYVUlrjCME46KGU5LHkqAhB3bR0tvYz0HR2OmalfRRSWsyGxDG2Q71wjqh39AUwcqoyMbGx935SQC31Fne4ZrhYymbSBWkORufJYu2FJDheANyqN5IFcd4gk1C9+K76M+rajHpc+k7pba3wg5YgKC3y5Zto39fm2ZHY0FdZe48V6NaXxvrixSKS0nnuWfd59 -
You don't have to build it, it's already there.
Convert.FromBase64String.--- single minded; short sighted; long gone;