# Roboticus' second attempt

my $robo_2 = sub {
	my @orig = unpack "S*", shift;
	my $bits=0;
	my $buf=0;
	my @bytes;
	while (@orig) {
		$buf |= (shift @orig)<<$bits;
		$bits += 16;
		while ($bits>6) {
			push @bytes, $buf & 0x3f;
			$buf>>=6;
			$bits-=6;
		}
	}
	push @bytes, $buf if $bits;
	return (@bytes);
};

##</code><code>##

roboticus@Boink:~
$ cat 876421.pl 
#!/usr/bin/perl
use strict;
use warnings;
my $orig = "Now is the time for all ";
my $enc = pack "u", $orig;
print "$enc\n";
my $dec = unpack "u", $enc;
print "$dec\n";
my (undef, @bytes) = map { 0x3f & ord($_) } split //, $enc;
printf "%02x ", $_ for @bytes;


roboticus@Boink:~
$ perl 876421.pl
83F]W(&ES('1H92!T:6UE(&9O<B!A;&P@

Now is the time for all 
33 06 1d 17 28 26 05 13 28 27 31 08 39 32 21 14 3a 36 15 05 28 26 39 0f 3c 02 21 01 3b 26 10 00 0a 


##</code><code>##

#include <stdio.h>

unsigned char inbuf[]="Now is the time for all ";
unsigned char outbuf[50];

void hexdump(unsigned char *p, int n) {
	for (int i=0; i<n; i++) {
		printf("%02x ", *p++);
	}
	puts("\n");
}

int main(int, char **) {
	unsigned char *src = inbuf;
	unsigned char *srcEnd = src + sizeof(inbuf);
	unsigned char *dst = outbuf;
	hexdump(src, sizeof(inbuf));
	int bits = 0;
	int buf = 0;
	while (src != srcEnd) {
		buf |= (*src++)<<bits;
		bits += 8;
		while (bits > 6) {
			*dst++ = buf & 0x3f;
			buf >>= 6;
			bits -= 6;
		}
	}

	hexdump(outbuf, dst-outbuf);
}