将dephi的加密解密算法转换为java代码？该如何处理

/// <summary>/// 字符加密函數  這是用的一個異或加密/// </summary>/// <param name="Str">待加密字符</param>/// <returns>加密字符</returns>function EncString(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 8;  end;end;/// <summary>/// 字符解密函數/// </summary>/// <param name="Str">加密字符</param>/// <returns>解密字符</returns>function DecString(Str:String):String;vari,j:Integer;begin  Result:='';  j:=0;  for i:=1 to Length(Str) div 2 do  begin    Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);    j:=(j+1) mod 8;  end;end;