哪位达人帮我转换下代码------------------

哪位达人帮我把下面的delphi代码转成asp的  因为我实在不懂asp 所以求助下大家
谢谢了
function StrToHexStr(const S:string):string;
//字符串转换成16进制字符串
var
I:Integer;
begin
for I:=1 to Length(S) do
begin
if I=1 then
Result:=IntToHex(Ord(S[1]),2)
else Result:=Result+IntToHex(Ord(S[I]),2);
end;
end;function HexStrToStr(const S:string):string;
//16进制字符串转换成字符串
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin
while not (S[t] in ['0'..'9','A'..'F','a'..'f']) do
inc(t);
if (t+1>Length(S))or(not (S[t+1] in ['0'..'9','A'..'F','a'..'f'])) then
ts:='$'+S[t]
else
ts:='$'+S[t]+S[t+1];
Val(ts,M,Code);
if Code=0 then
Result:=Result+Chr(M);
inc(t,2);
end;
end;function XorStr(const s: string): string;
const
   aXorChar: array[0..3] of byte = (65, 66, 67, 68); //可以多写几个
var
   i: integer;
begin
   if s = '' then
   begin
      result := '';
      Exit;
   end;
   SetLength(result, Length(s));
   for i := 1 to Length(s) do
   begin
      result[i] := Char(Ord(s[i]) xor aXorChar[i mod (High(aXorChar) + 1)]);
   end;
end;function SetPassStr(const S:string):string;
//字符串加密
begin
Result:=StrToHexStr(XorStr(S));
end;function GetPassStr(const S:string):string;
//字符串解密
begin
Result:=XorStr(HexStrToStr(S));
end;