Well, you can implement a Perl peek() with unpack('P',...). Once you have that, there's only security through obscurity.