Help for this page
sub encrypt (\$$) { my ($self,$data) = @_; ... $result .= $self->finish; $result; }
length-of-encrypted-line, encrypted-line, length-of-encrypted-line, en +crypted-line, ...