Re^2: Add 1 to an arbitrary-length binary string

Is there any way to turn a string of arbitrary length text into an arbitrary BigInt and back? A big part of the problem is that the prefix could be "/Some/Arbitrarily/long/string"

Edit: I found Base::Math::Convert but it looks really poorly maintained so I am hoping there is something a little better.

Worst case scenario, I could build the logic into the module I am building, but hoping to avoid that.

Comment on Re^2: Add 1 to an arbitrary-length binary string

Replies are listed 'Best First'.
Re^3: Add 1 to an arbitrary-length binary string by syphilis (Archbishop) on Nov 15, 2023 at 13:27 UTC
Is there any way to turn a string of arbitrary length text into an arbitrary BigInt and back? Not that I know of - though I don't usually use Math::BigInt. Is it guaranteed that the "arbitrary length text" will contain only valid base 64 characters ? Math::GMPz (plug) will certainly handle such text, even if it contains invalid base 64 characters - though Math::GMPz isn't included in perl, and depends upon the gmp C library: use strict; use warnings; use Math::GMPz qw(:mpz); my ($order, $size, $endian, $nails) = (1, 1, 0, 0); my $s = 'Som3/Arbitr@ri!y/long/string'; my $z = Math::GMPz->new(); Rmpz_import($z, length($s), $order, $size, $endian, $nails, $s); print $z, "\n"; $z++; print "$z\n"; my $incremented_s = Rmpz_export( $order, $size, $endian, $nails, $z); print "$s\n"; print "$incremented_s\n"; # Next retrieve original string: $z--; my $orig_s = Rmpz_export( $order, $size, $endian, $nails, $z); print "$orig_s\n"; __END__ Outputs: 8786758437493627904416651010636024986357833879283932790893327248999 8786758437493627904416651010636024986357833879283932790893327249000 Som3/Arbitr@ri!y/long/string Som3/Arbitr@ri!y/long/strinh Som3/Arbitr@ri!y/long/string [download] But perhaps someone else can provide a solution that better suits your needs. Cheers, Rob.	[reply] [d/l]
Re^4: Add 1 to an arbitrary-length binary string by einhverfr (Friar) on Nov 16, 2023 at 02:28 UTC
This indeed does look correct. Thanks!	[reply]
Re^3: Add 1 to an arbitrary-length binary string by Anonymous Monk on Nov 15, 2023 at 13:31 UTC
I don't understand what is "one bit larger than the given key". Isn't it `"/Some/Arbitrarily/long/string" # the key "0Some/Arbitrarily/long/string" # incremented` [download] ? i.e. next ASCII character, unless for `"\xff"`, then put `"\0"` and carry over?	[reply] [d/l] [select]