网络摄像机开发包里的 AddDev5 方法里的szPwd 密码是怎么加.....

阿七

网络摄像机开发包里的 AddDev5 方法里的szPwd 密码是怎么加解密的？

开发包里只提供了

function (const S: String; Key: Word): String;

var

   I: Integer;

begin

  Result := S;

  for I := 1 to Length(S) do

      begin

           Result[I] :=char(byte(S[I]) xor (Key shr 8)); Encrypt

           Key :=(byte(Result[I]) + Key) * C1 + C2;

      end;

  end;

这个方法