еще бы вставить процедурку, чтоб из скрипта можно было изменять ключ, думаю оч нужная фича была бы.
будет ли так работать?
delphi Код:
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--->