delphi转java_delphi 代码转java

FunctionEncrypKey(Src:String;Key:String):string;varKeyLen:Integer;KeyPos:Integer;offset:Integer;dest:string;SrcPos:Integer;SrcAsc:Integer;Range:Integer;beginKeyLen:=Lengt...

Function EncrypKey (Src:String; Key:String):string;

var

KeyLen :Integer;

KeyPos :Integer;

offset :Integer;

dest :string;

SrcPos :Integer;

SrcAsc :Integer;

Range :Integer;

begin

KeyLen:=Length(Key);

if KeyLen = 0 then key:= 'Think Space ';

KeyPos:=0;

Range:=256;

Randomize;

offset:=Random(Range);

dest:=format( '%1.2x',[offset]);

for SrcPos := 1 to Length(Src) do

begin

SrcAsc:=(Ord(Src[SrcPos]) + offset) MOD 255;

if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;

SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);

dest:=dest + format( '%1.2x',[SrcAsc]);

offset:=SrcAsc;

end;

Result:=Dest;

end;

delphi的加密代码，现需要将其转为java的代码

哪位帮解决下

知道排版不好排，不好意思了

解决了再追加50分！谢谢了

展开