#!/usr/bin/perl -W # Takes a number between 0 and 2^32, # returns 4 characters (ASCII). sub num_to_chars { my $packed = pack( "l", $_[0] ); return unpack( "A*", $packed ); } # Takes 4 ASCII chars, returns a "long" sub chars_to_num { my $chars = pack( "A*", $_[0] ); return unpack( "l", $chars ); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Numbers as a stream of letters
by fx (Pilgrim) on Dec 28, 2003 at 19:25 UTC | |
|
Re: Numbers as a stream of letters
by exussum0 (Vicar) on Dec 28, 2003 at 04:02 UTC | |
|
Re: Numbers as a stream of letters
by bl0rf (Pilgrim) on Dec 29, 2003 at 01:46 UTC |