It looks like the counter is stored in the object's hashref, in register. So you can get it out as a string by using register, or as an integer by using unpack like this: my ($ctr, undef) = unpack "La*", $cipher->{register}. If you wanted to put it into a new object, you could probably just set that object's register property. Subclassing would be a slightly more elegant way to do this, but any way you slice it, this is a hack, and could change under your feet since it's not an official part of the interface. But, it should work well enough to test, and make the case to the module author that an interface to the counter should be exposed.
Generally you shouldn't need to get the counter out. What are you doing that requires that?
In reply to Re^2: Reading two (2) file in byte[] form and then XOring them
by sgifford
in thread Reading two (2) file in byte[] form and then XOring them
by cik_ail
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |