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

[flashrhx2007]

 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;

[李睿_Lee]

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

[flashrhx2007]

我照意思翻了翻，单字节都可以，到了中文的加密就出错了
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的区别上

[yan11cn]

Delphi 不懂啊。。