well, it's rather complicated.
something like:
if $d
$block=$lenOfTable+$locationOfTextsCharInTable-1*($locationOfKeywordCharInTable-$wordshift-2)
else
$block=$lenOfTable+$locationOfTextsCharInTable+($locationOfKeywordCharInTable-$wordshift-2)
endif
$placeInTable=1+(($block-1) mod $lenOfTable)
$char = SubSTR($tableau,$placeInTable,1)

_________________________
!

download KiXnet