永发信息网

delphi的代码转换为java

答案:2  悬赏:50  手机版
解决时间 2021-02-25 19:41
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用

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 8;
end;
end;

function Dec(Str:String):String;//字符解密函数
var
i,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;
最佳答案
不能直接转换的,编译器不同,标识符的意义都不同,比如JAVA中的for循环好像是没有DO的,,怎么转换?你先搞清楚DELPHI的代码有什么功能,再弄清JAVA如果实现这种功能,自己再写JAVA代码.
全部回答
public void parserxml(string filename) {     try {         documentbuilderfactory dbf = documentbuilderfactory.newinstance();         documentbuilder db = dbf.newdocumentbuilder();         document document = db.parse(filename);         nodelist employees = document.getchildnodes();         for (int i = 0; i < employees.getlength(); i++) {             node employee = employees.item(i);             nodelist employeeinfo = employee.getchildnodes();             for (int j = 0; j < employeeinfo.getlength(); j++) {                 node node = employeeinfo.item(j);                 nodelist employeemeta = node.getchildnodes();                 for (int k = 0; k < employeemeta.getlength(); k++) {                     system.out.println(employeemeta.item(k).getnodename()                             + ":" + employeemeta.item(k).gettextcontent());                 }             }         }         system.out.println("解析完毕");     } catch (filenotfoundexception e) {         // 找不到文件         system.out.println(e.getmessage());     } catch (parserconfigurationexception e) {         system.out.println(e.getmessage());     } catch (saxexception e) {         system.out.println(e.getmessage());     } catch (ioexception e) {         system.out.println(e.getmessage());     } }
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
校园爱情剧
el barbiere di siviglia 中哪几段有名?
三兄弟快修这个地址在什么地方,我要处理点事
身上中的上读轻声还是四声?
广州番禺雅居乐附近移动营业厅
我的Iphone4s为什么现在没有闪光灯了
lol诺手3级会解锁封印,是什么意思
厨事达垃圾处理器代理真的是骗局吗
脸小适合什么样的墨镜
u盘安全退出后文件依然丢失
鬼泣4咋个操作啊,用键盘,搞不懂,侧翻。
前端开发使用什么显示器好一些
制作寿司的工具是竹帘好还是套件好
男人走了可是身体没了转身之后谁更痛怎样解释
事件性新闻与非事件性新闻的区别/什么叫
推荐资讯
讯息是什么意思
绿园大厦(南门)在哪里啊,我有事要去这个地方
如何区分山谷与鞍部(实物)
烧饼窝堡在什么地方啊,我要过去处理事情
菏泽商业第一街地址在什么地方,我要处理点事
帮忙起个问道法金名字
吉星高照藏头诗
小沈阳开场+宋晓峰经典语录dj小阿那个伴奏叫
王安石与贾岛推敲的诗句有哪些故事
有几个男人捉了一个女的上车
女朋友总是和我说有人给她介绍对象?
什么什么细雨成语
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?