Digest::BubbleBabble (3pm)

    # Create a fingerprint of a simple string.
    use Digest::BubbleBabble qw( bubblebabble );
    my $fingerprint = bubblebabble( Digest => "Pineapple" );

    # Create a fingerprint of a SHA-1 hash.
    use Digest::SHA qw( sha1 );
    $fingerprint = bubblebabble( Digest => sha1("hello") );

Digest::BubbleBabble takes a message digest (often generated by either of the \s-1MD5\s0 or \s-1SHA-1\s0 message digest algorithms) and creates a fingerprint of that digest in \*(L"bubble babble\*(R" format. Bubble babble is a method of representing a message digest as a string of \*(L"real\*(R" words, to make the fingerprint easier to remember. The \*(L"words\*(R" are not necessarily real words, but they look more like words than a string of hex characters.

Bubble babble fingerprinting is used by the \s-1SSH2\s0 suite (and, consequently, by Net::SSH::Perl, the Perl \s-1SSH\s0 implementation) to display easy-to-remember key fingerprints. The key (a \s-1DSA\s0 or \s-1RSA\s0 key) is converted into a textual form, digested using Digest::SHA, and run through bubblebabble to create the key fingerprint.

Digest::BubbleBabble conditionally exports one function called bubblebabble; to import the function you must choose to import it, like this:

use Digest::BubbleBabble qw( bubblebabble ); Currently takes only one pair of arguments, the key of which must be Digest, the value of which is the actual message digest $digest. You should generate this message digest yourself using either Digest::MD5 of Digest::SHA.

Returns the bubble babble form of the digest.

The BubbleBabble specification is available at: http://web.mit.edu/kenta/www/one/bubblebabble/spec/jrtrjwzi/draft-huima-01.txt

Digest::BubbleBabble is free software; you may redistribute it and/or modify it under the same terms as Perl itself.

Benjamin Trott, [email protected]

Except where otherwise noted, Digest::BubbleBabble is Copyright 2001 Benjamin Trott. All rights reserved.