Это извращенство какое-то, но..

dmx102 13.11.2013 01:00 / 13.11.2013 01:06

$keytable[^table::create{
word	digit
a	2
b	4
c	6
....
}]


@shifr[text;keytable][temp]
$text[^text.match[[^^a-zA-Z ]][g][]]
$text[^text.lower[]]
$text[^text.match[ ][g][s]]
$i(-1)
^while($i < ^text.length[]){
	^i.inc[]
	^if(^keytable.locate[word;^text.mid($i;1)]){
	$temp[${temp}$keytable.digit]
}
$i(-1)
^while($i < ^math:ceiling(^temp.length[] / 10)){
	^i.inc[]
	$result[$result%^eval(^temp.mid($i * 10;10) - 1000000000000)]
}

Могут быть ошибки, я не стал даже это тестировать.
Если вы хотите использовать какой-то приватный алгоритм, то не стоит выкладывать его в публичный доступ ;-)

Лучше шифра Вернама для привата еще никто ничего лучше не придумал

---