Base64 encode data: Difference between revisions

{{draft task}}

Convert an array of bytes or binary string to the [[wp:Base64|base64-encoding]] of that string and output that value. Use [http://rosettacode.org/favicon.ico the icon for Rosetta Code] as the data to convert.

 

=={{header|ABAP}}==

lv_encoded TYPE string,

lv_data TYPE xstring.

ENDWHILE.

WRITE: / lv_encoded.

{{out}}

<pre>

=={{header|ALGOL 68}}==

This program is run on a modified Algol 68 Genie 2.8. That interpreter has some bugs, so it does not do binary tcp/ip requests, and I made patches/bugfixes to it in order to run this task.

STRING codes = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"[@0];

 

STRING encoded icon = base64_encode (rosettacode icon);

print ((encoded icon, new line))

{{out}}

<pre>

AAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAE=

</pre>

 

=={{header|C}}==

===libresolv===

{{libheader|libresolv}} (libresolv is included on most Unix-like systems)

#include <stdlib.h>

#include <resolv.h>

 

return 0;

Compile with

<pre>gcc -lresolv -o base64encode base64encode.c</pre>

===Manual implementation===

The following reads standard input and writes base64-encoded stream to standard output, e.g. <tt>./a.out <some_random_file >/dev/null</tt> if you don't want to see the output. It gives identical output as the common <tt>base64</tt> utility program, though much less efficiently.

#include <unistd.h>

 

 

return 0;

 

=={{header|C++}}==

#include <iostream>

#include <fstream>

return 0;

}

{{out}}

<pre>

</pre>

 

 

 

 

 

=={{header|D}}==

import std.stdio, std.base64, std.net.curl, std.string;

 

const f = "http://rosettacode.org/favicon.ico".get.representation;

Base64.encode(f).writeln;

{{out}}

<pre>AAABAAIAEBAAAAAAAABoBQAAJgAAACAgAAAAAAAAwqgIAADCjgUAACgAAAAQAAAAIAA...

 

=={{header|Delphi}}==

{$APPTYPE CONSOLE}

uses IdHTTP, IdCoderMIME;

lHTTP.Free;

end;

 

=={{header|Elixir}}==

encoded = :base64.encode(data)

 

{{out}}

 

=={{header|Erlang}}==

-export([main/0]).

 

%% Demonstrating with the library function.

encode_library(Data) ->

 

{{out}}

<pre>AAABAAIAEBAAAAAAAABoBQAAJgAAACAgAAAAAAAAqAgAAI4F...AAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAE=</pre>

 

=={{header|Go}}==

===Standard Library===

 

import (

}

fmt.Println(base64.StdEncoding.EncodeToString(d))

{{out}}

<pre>

</pre>

===Manual implementation===

// A port, with slight variations, of the C version found here:

// http://rosettacode.org/wiki/Base64#C (manual implementation)

"log"

"os"

)

 

// Base64 encode a raw byte stream.

func B64Encode(raw []byte) (string, error) {

var reader *bytes.Reader

var u UL // w UL

// Even though there's a performance hit, i'd rather compose these.

func B64EncodePretty(raw []byte) (string, error) {

encoded, err := B64Encode(raw)

if err != nil {

}

fmt.Printf("%s", encoded)

{{out}}

<pre>

 

=={{header|Haskell}}==

This Haskell code is ported from the C solution (manual implementation) with slight variations.

-- A port, with slight variations, of the C version found here:

-- http://rosettacode.org/wiki/Base64#C (manual implementation)

-- ghc -Wall base64_encode.hs ; cat favicon.ico | ./base64_encode

{-# LANGUAGE OverloadedStrings #-}

{-# LANGUAGE ViewPatterns #-}

b64Encode :: C.ByteString -> C.ByteString

b64Encode stream =

where

chunk = C.take 3 stream

u chunk = fromIntegral result :: Int

where

 

-- | charToInteger: Convert a Char to an Integer

charToInteger :: Char -> Integer

makePretty _ (C.uncons -> Nothing) = C.empty

makePretty by stream = first `C.append` "\n" `C.append` makePretty by rest

 

main :: IO ()

 

=={{header|J}}==

padB64 =: , '=' #~ 0 2 1 i. 3 | #

76 {. tobase64 gethttp 'http://rosettacode.org/favicon.ico'

 

=={{header|Java}}==

 

import java.io.IOException;

import java.io.InputStream;

 

 

 

break;

 

 

}

}

 

 

}

 

}

}

 

 

 

}

<pre>AAABAAIAEBAAAAAAAABoBQ...QAAAAEAAAABAAAAAQAAAAE=</pre>

 

=={{header|JavaScript}}==

function stringToArrayUnicode(str){for(var i=0,l=str.length,n=[];i<l;i++)n.push(str.charCodeAt(i));return n;}

function generateOnesByLength(n){//Attempts to generate a binary number full of ones given a length.. they don't redefine each other that much.

 

return toBase64(stringToArrayUnicode("Nothing seems hard to the people who don't know what they're talking about."))

 

===Using btoa (HTML5)===

HTML5 saves the day! introducing two methods to the DOM!

These are btoa and atob, see [http://dev.w3.org/html5/spec-LC/webappapis.html#atob spec]

JSON.stringify it or..

encodeURIComponent it.

===Using Node.js===

{{works with|Node.js}}

var options = {

host: 'rosettacode.org',

});

}

 

=={{header|Kotlin}}==

 

import java.io.File

import java.util.Base64

 

val path = "favicon.ico" // already downloaded to current directory

val bytes = File(path).readBytes()

val base64 = Base64.getEncoder().encodeToString(bytes)

println(base64)

 

{{out}}

 

=={{header|Lasso}}==

src = curl('http://rosettacode.org/favicon.ico'),

srcdata = #src->result

 

// or, in one movement:

 

=={{header|LiveCode}}==

put base64encode(rosettaico)

 

Ouput

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

Very interesting results.

{{out}}

AAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEA

AAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAE=</pre>

 

=={{header|Objective-C}}==

{{works with|Mac OS X|10.6+}}

{{works with|iOS|4.0+}}

 

int main(int argc, const char *argv[]) {

}

return 0;

 

=={{header|Perl}}==

use strict;

use warnings;

local $/;

print encode_base64(<$fh>);

 

{{out}}

<pre>AAABAAIAEBAAAAAAAABoBQAAJgAAACAgAAAAAAAAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgAAAAA</pre>

<pre>AAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAE=</pre>

 

=={{header|Phix}}==

{{out}}

<pre>

"Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight i

n the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure."

</pre>

 

=={{header|PHP}}==

 

=={{header|PicoLisp}}==

"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" ) )

(de base64 (S)

(let S (mapcar char (chop S))

(make

(while (cut 3 'S)

(test

"cGxlYXN1cmUu"

(test

"c3VyZS4="

 

=={{header|Python}}==

import base64

 

data = urllib.urlopen('http://rosettacode.org/favicon.ico').read()

(For me this gets the wrong data; the data is actually an error message. But still, it base-64 encodes it.)

 

=={{header|Racket}}==

#lang racket

(require net/url net/base64)

(base64-encode (call/input-url (string->url "http://rosettacode.org/favicon.ico")

get-pure-port port->bytes))

Output:

#"AAABAAIAEBAAAAAAAABoBQAA...AQAAAAE=\r\n"

 

=={{header|REXX}}==

 

 

For the various outputs, several input texts from the Wikipedia article on &nbsp; ''Base64'' &nbsp; [http://en.wikipedia.org/wiki/Base64] &nbsp; were used to demonstrate how padding works.

<br><br>

<pre>

──────────────────────────────────── input─────────────────────────────────────

YW55IGNhcm5hbCBwbGVhc3VyZS4=

</pre>

<pre>

──────────────────────────────────── input─────────────────────────────────────

YW55IGNhcm5hbCBwbGVhc3VyZQ==

</pre>

<pre>

──────────────────────────────────── input─────────────────────────────────────

YW55IGNhcm5hbCBwbGVhc3Vy

</pre>

<pre>

──────────────────────────────────── input─────────────────────────────────────

YW55IGNhcm5hbCBwbGVhc3U=

</pre>

<pre>

──────────────────────────────────── input─────────────────────────────────────

────────────────────────────────────base64─────────────────────────────────────

YW55IGNhcm5hbCBwbGVhcw==

</pre>

 

=={{header|Ruby}}==

require 'base64'

 

 

=={{header|Seed7}}==

include "gethttp.s7i";

include "encoding.s7i";

begin

writeln(toBase64(getHttp("rosettacode.org/favicon.ico")));

 

=={{header|Sidef}}==

 

 

 

=={{header|Tcl}}==

{{works with|Tcl|8.6}}

package require http

 

http::cleanup $tok

 

With older versions of Tcl, the base64 encoding is best supported via an external package:

{{tcllib|base64}}

package require http

 

http::cleanup $tok

 

 

=={{header|zkl}}==

Using shared libraries for cURL and message hashing:

icon:=Curl().get("http://rosettacode.org/favicon.ico"); //-->(Data(4,331),693,0)

icon=icon[0][icon[1],*]; // remove header

b64:=MsgHash.base64encode(icon);

b64.println();

{{out}}

Encoded to 72 characters per line

<pre>

Data(4,920)

AAABAAIAEBAAAAAAAABoBQAAJgAAACAgAAAAAAAAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgA