//blowfish612 2140 $str($chr( 77),4000)
//blowfish612 1065 $str($chr(2047),4000)
//blowfish612 705 $str($chr(2048),4000)
alias blowfish612 {
var %i $iif($version <= 7.51,246,$iif($version < 7.56,46,$iif($version < 7.72,602,2140))) , %j 1, %string $str(abcdefghij,400) , %prev
if ($1) var %i $1 | if ($2) var %string $2
while (%j isnum 1-20) {
var %key $left(%string,%i)
var %a $encode(Message,mcir,%key,Fixed_IV) , %b $encode(Message,mcs,%key,SameSalt)
var %line %a %b $&
$decode(% a,mcir,%key,Fixed_IV) $decode( %b,mcs,%key,SameSalt)
echo $iif(%line === %prev,4) -ag %i : %line
var %prev %line | inc %i | inc %j
}
}