一个加密算法，谁帮忙翻译成ASP的，谢谢

Delphi(Pascal) code:

XorKey:array[0..5] of Byte=($aa,$bb,$cc,$dd,$ff,$ee); //字符串加密用

function Enc(Str:String):String;//字符加密函數 這是用的一個異或加密
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) do
begin
Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);
j:=(j+1) mod 3;
end;
end;

---

看不懂Delphi里的IntToHex(Byte(Str[i]) xor XorKey[j],2)
这个明白了就能写了。

---

我照意思翻了翻，单字节都可以，到了中文的加密就出错了
Function Enc(iStr) '//字符加密函數  這是用的一個異或加密
  Dim i,j,xk
  xk = Split("dd,e9,ba,ac,ff,ad",",") '定义密钥
  For i = 1 To Len(iStr)
      Enc = Enc + Replace(Hex(Asc(Mid(iStr, i, 1)) Xor ("&H" & xk(j))), " ", "0")
      j = (j + 1) Mod 3
  Next
End Function

我觉得错在byte和ASC的区别，还有就是HEX和INTTOHEX的区别上

---

Delphi 不懂啊。。