; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
 /*
 1) the block length
 2) the permutation
 3) the message to be encoded or decoded
 4) a parameter denoting encoding (E) or decoding (D)
 */

dim $i, $o[$c^0], $, $r, $k, $y

For $i=0 to $c^0
  $=Substr($c,$i+1,1)
  $a=LCase($)
  If $a>` & $a<}
    $k=$k+$
    $r=$r+" "+$i
  EndIf
  $o[$i] = $

  If ($k^)=$l | $i=($c^)
    for each $ in Split($b,",")
      If 0 + $ <= ($k^)
        $a=$a+" "+$
      EndIf
    Next
    For $=1 to $k^0
	 	  $y=$,split($a)[$]
	   	$o[split($r)[$y[$d=D]]]=substr($k,$y[$d=E],1)
    Next
    redim $r,$k
    $a=join($o,'')
EndFunction
;!
;!
; end Top Secret