将dephi的加密解密算法转换为java代码？

Delphi(Pascal) code

/// <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;

麻烦哪位大侠将上面的dephi加密和解密代码转换为java代码，不胜感激

[解决办法]
这样的帖子都没人回复，JAVA版本没人了吗？
[解决办法]
Java版没有高手，爱莫能助