VORON, могу посоветовать сделать так:
напиши 2 процедуры зашифровать и расшифровать,для каждой свой ключ, но вначале, при инициализации, ключ одинаковый - сохраняешь его и для зашифровки, и для расшифровки.
Потом примерно так:
If (FromClient) and (ConnectName='Хз кто') then
begin
Rasshifrovatvsenaxx(pck,keyClientIN);
<сюда стандартный обработчик, типа case pck[1] of>
Zashifrovatvsenaxx(pck,keyClientOut);
end;
и для пакетов, самостоятельно отправляемых тобой на сервер перед отправкой вызываешь
buf:=<суперчитерскийпакетнапримернаманор>;
Zashifrovatvsenaxx(buf,keyClientOut);
SendToServerEx('Хз кто');
Попробуй так =)
|