This alias contrasts new-vs-old behavior for the N parameter, though it doesn't support encryption switches or parameters, just buma switches.

Quote:

$new_encode(new,target text|&binvar, buma , N ) = new behavior
$new_encode(new,target text|&binvar, buma , N ) = old behavior


Quote:

//echo -a $new_encode(new,Thé qúíck brówñ fóx júmps óvér thé lázý dóg.,a,2)
//echo -a $new_encode(old,Thé qúíck brówñ fóx júmps óvér thé lázý dóg.,a,2)
//echo -a $new_encode(new,Thé qúíck brówñ fóx júmps óvér thé lázý dóg.,a,1-2)

For "N", new behavior is the same as old, except it considers the chunk to be 45 input bytes that have already been UTF-8 encoded, not 60 output chars, then outputs as if those 1-45 input bytes were the entire string:

m=45*(4/3)=60
u=45*(4/3)+1=61
a=45*(8/5)=72

If you think 72 is too long for the output of a Base32 chunk, then can adjust Base32 to have an input length be another multiple of 5 like 35 or 40.

If Base85 were implemented, the handling of the N parameter would need to change slightly so the max size is an integer. 45*(5/4)=56.25, so perhaps Base85 chunks could remain having output at 60 chars, and the input as 48 bytes, where 48*(5/4)=60 output.

Also, new behavior allows n1-n2 or n1- so you can retrieve multiple chunks with 1 call. N=5-10 returns chunks 5-10, N=5- returns chunks 5-last.

Under the old method, it's possible for Base32 chunk to be only a portion of the padding:
Quote:
/encode_test_binary old a 36


Another way of showing that contents of even-numbered chunks were garbled:
Quote:

/encode_test_binary old a
/encode_test_binary new a


and with text:
Quote:

/encode_test_text old a 100
/encode_test_text new a 100


and showing effect of N being integer vs n1-n2
Quote:

/encode_test_n1-n2 a 234 1
/encode_test_n1-n2 a 234 2
/encode_test_n1-n2 m 234 1
/encode_test_n1-n2 m 234 2


Code:
alias new_encode {
  var %mode $remove($3,b) | if (!$istok(a m u,%mode,32)) var %mode u
  var %n1 $gettok($4,1,45) , %n2 $gettok($4,2,45) , %range_len 45 , %bin $iif(b isin $3,b)
  if ((%n1 !isnum 0-) && (%n1 != $null)) goto syntax
  if ((%n2 !isnum 0-) && (%n2 != $null)) goto syntax
  if (?*-?* iswm $4) {
    if (%n2 >= %n1) var %range_len $calc((1 + %n2 - %n1) * %range_len)
    elseif (%n2 == $null) var %range_len -1 | else goto syntax
  }
  if ($1 != new) { if ($0 >= 4) return $encode($2,$3,$4) | if ($0 = 3) return $encode($2,$3) | return $encode($2) }
  if (b isin $3) bcopy -c &maroon.tmp 1 $2 1 -1
  else bset -tc &maroon.tmp 1 $2
  if (%n1 == $null) { if (%bin) { noop $encode($2,$3) | return $bvar($2,0) }
    else return $encode($2,%mode)
  }
  if (%n1 == 0) { return $ceil( $calc( $bvar(&maroon.tmp,0) / 45 ) ) }
  var %begin $calc(1 + (45 * (%n1 -1)) ) | if (%begin > $bvar(&maroon.tmp,0)) { return $null }
  bcopy -c &maroon.tmp 1 &maroon.tmp %begin %range_len | noop $encode(&maroon.tmp,b $+ %mode)
  if (%bin) { bcopy -c $2 1 &maroon.tmp 1 -1 | return $bvar($2,0) }
  return $bvar(&maroon.tmp,1-).text
  :syntax | echo -sc info Error:$new_encode(new|old, target , [b]uma [, N|n1-n2|n1-] )
}


Code:
; default encoding 'a' unless $1 = m or u
; default length 999 unless $2 = number in 1-99999
; default chunks shown together 5 unless $3 = number in 1-50
alias encode_test_n1-n2 {
  bread $qt($mircexe) 9999 $iif($2 isnum 1-999999,$2,999) &v | var %range $iif($3 isnum 1-50,$int($3),5)
  var %switch b $+ $iif($istok(u m a,$2,32),$2,a) , %n 1 , %rows $new_encode(new,&v,%switch,0)
  echo -a === behavior: only new switch: %switch rows: %rows total bytes: $bvar(&v,0) chunks/line: %range
  while (%n <= %rows) {
    var %nparm %n $+ - $+ $calc(%n + %range -1)
    bcopy -c &tmp 1 &v 1 -1 | noop $new_encode(new,&tmp,%switch,%nparm)
    echo -a n= %nparm $bvar(&tmp,1-).text | inc %n %range
  }
}


Code:
; default new behavior unless $1 = old
; default encoding 'a' unless $2 = m or u
; default length 256 unless $3 = number in 1-256
alias encode_test_binary {
  bset &v 1 $regsubex($str(x,$iif($3 isnum 1-256,$3,256)),/x/g, $calc(\n -1) $chr(32))
  var %oldnew $iif($1 == old,old,new) , %switch b $+ $iif($istok(u m a,$2,32),$2,a) , %n 1 , %rows $new_encode(%oldnew,&v,%switch,0)
  echo -a === behavior: %oldnew switch: %switch rows: %rows total bytes $bvar(&v,0)
  while (%n <= %rows) {
    bcopy -c &tmp 1 &v 1 -1 | noop $new_encode(%oldnew,&tmp,%switch,%n) | echo -a n= %n $bvar(&tmp,1-).text
    noop $decode(&tmp,%switch) | echo 4 -a decoded: $bvar(&tmp,1-) | inc %n
  }
}

Code:
; default new behavior unless $1 = old
; default encoding 'a' unless $2 = m or u (old/new doesn't change for m and u)
; default length 504 unless $3 = number in 1-999 (base32 line-length error above 518 )
alias encode_test_text {
  var %oldnew $iif($1 == old,old,new) , %switch $iif($istok(u m a,$2,32),$2,a) , %n 1
  var %s $regsubex($str(x,$iif($3 isnum 1-999,$3,100)),/x/g,$base(\n,10,10,4) $+ _) , %rows $new_encode(%oldnew,%s,%switch,0)
  echo -a === behavior: %oldnew switch: %switch rows: %rows total bytes: $len(%s)
  while (%n <= %rows) {
    var %chunk $new_encode(%oldnew,%s,%switch,%n) | echo -a n= %n %chunk $decode(%chunk,%switch) | inc %n
  }
}