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