[alexsl]

еще бы вставить процедурку, чтоб из скрипта можно было изменять ключ, думаю оч нужная фича была бы.
будет ли так работать?

var
  stmp: string;
<---cut--->
  if MethodName = 'INITKEYS2' then
  begin
     stmp:=Params[0];
     b:=TfsScript(Integer(Params[1])).Variables['ConnectID'];
     Thread[Integer(Params[1])].xorS.InitKey2(stmp,Thread[b].isInterlude);
    // log('initkeys2:'+stmp);
  end
  else
  if MethodName = 'INITKEYC2' then
  begin
     stmp:=Params[0];
     b:=TfsScript(Integer(Params[1])).Variables['ConnectID'];
     Thread[Integer(Params[1])].xorC.InitKey2(stmp,Thread[b].isInterlude);
  end
<---cut--->