Технология: VFP9 ->soap ->php -> MySql и обратно
трафик необходимо шифровать. Шифрую своей функцией , передаю на сервер , там расшифровываю таким же алгоритмом но уже в PHP. Обратно примерно так же.
Проблема: Медленно работает шифрование и расшифрование на VFP при длинных строках.
Чего собственно нужно: функция шифрования строки которая работает в VFP и её аналог для PHP.
Можно внешнее API но платные варианты от CryptoPro, Agava сильно дорогие в части сервера.

Собственно алгоритмы: PHP s1^s2 - побитно складываю с секретной строкой такой же длинны как исходная.

Для VFP у меня это выглядит так и работает медленно:
lnCount = max(len(s1), len(s2))
s=''
for i=1 to lnCount
ch1 = asc(SubStr(s1,i,1))
ch2 = asc(SubStr(s2,i,1))
s=s+chr(BITXOR(ch1,ch2))
endfor

Подробнее вот функция дешифрования (здесь только три строки микшируются)
параметры $str_crypt - собственнострока, $id_ses - строка уникальный код сессии, третья волшебная строка $ini_crypt получается из функции по ходу дела. (в этом коде все в порядке. он живет и работает на сервере)

function my_Encrypt($str_crypt, $id_ses)
{
// пременная для XOR шифратора
$ini_crypt = get_ini_crypt();
// В битовую строку
$s = urldecode($str_crypt);
$a = str_pad('',strlen($s),$ini_crypt);
$b = str_pad('',strlen($s), md5($ini_crypt.$id_ses));

return $s^$a^$b;
}

Теперь фоксовая часть:

function bitxor_string
lparam s1, s2 , s3

local lnCount, s, ch1, ch2, ch3

if empty(s2)
s2=''
endif

if empty(s3)
s3=''
endif

lnCount = max(len(s1), len(s2) , len(s3))
s=''
for i=1 to lnCount
ch1 = asc(SubStr(s1,i,1))
ch2 = asc(SubStr(s2,i,1))
ch3 = asc(SubStr(s3,i,1))
s=s+chr(BITXOR(ch1,ch2,ch3))
endfor

RETURN s
А вот эта тормозит не по детски
Поможите кто чем может... 17 клиентов по вокзалам... :)

Хочется готового решения. типа - вот DLL-ка и код