Category: Fun Stuff
Author/Contact Info Flavio Poletti
perl -ple'$_=reverse' <<<ti.xittelop@oivalf

[download]
Description: A simple encoding scheme using four smileys. Example:
user@host> perl -e 'do "smiley.pl"; print encode("ciao")'
:D :( :) :/ :/ :) :) :/ :/ :( :) :/ :D :D :) :/
user@host>
user@host> perl -e 'do "smiley.pl"; print decode(":D :( :) :/ :/ :) :)
+ :/ :/ :( :) :/ :D :D :) :/"), $/'
ciao

[download]
 
#!/usr/bin/perl
# Copyright (C) 2005 by Flavio Poletti
# (perl -ple'$_=reverse' <<<ti.xittelop@oivalf)
# NO WARRANTY AT ALL
# Same license as Perl, as of version 5.8.0 or following
use warnings;
use strict;
 
sub encode {
        local $_ = unpack "b*", pop;
        my @smileys = qw| :( :/ :) :D |;
        s/(..)/$smileys[ord(pack"b*",$1)].' '/ge;
        s/(.{1,63})/$1\n/g;
        $_;
}
sub decode {
        local $_ = pop;
        my %smileys = ( D => '11', '(' => '00', ')' => '01', '/' => '1
+0');
        s/:(.)\s*/$smileys{$1}/ge;
        pack "b*", $_;
}

Back to Code Catacombs