Hi Monks, I'm having a spot of bother with Crypt::CBC in that it's slow and it bombs when faced with 700Mb of data to chain. I thought I'd have a bash at writing my own CBC thing. Currently I'm benchmarking parsing my data in 8 byte lumps for Blowfish and I can't improve on this code using substr(). 
              $bufsize = length $buffer;
              for($chunk_counter = 0; $chunk_counter <  $bufsize; $chu
+nk_counter = $chunk_counter + 8){
                $eight_byte_chunk = substr($buffer, $chunk_counter ,8)
+;
                $out_buffer = $out_buffer . $eight_byte_chunk;
              } 
              syswrite (OUTFILE,$out_buffer, $buffersize);

[download]
I'm sysreading the file into 64k buffers and then parsing the buffer in 8 byte lumps. I intend then to chain and blowfish it before syswriting the buffer back out to the encrypted file. I've tried various approaches and hoped unpack() would cut it but it's actually about 20% slower than the above. In the olden days I would have done this using a sliding pointer starting at the beginning of the buffer and incrementing it 8 bytes per read with an 8 byte data structure as the fastest method but I don't think you can do this in perl .. ? I'm sure there must be a more sophisticated method than substr.
Any "why not try this" suggestions are as always greatly appreciated.
Thanks

In reply to Fast parsing for cypher block chaining by fluffyvoidwarrior

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.