delphi加密 java解密_求对应 delphi 加密 解密 java代码！

简单加密算法：Delphi程序加密。加密是将每个字符提取出来与一个固定值进行异或，实现加密。functionEncrypt(constaStr:string;aKey:Word):string;//[in`kript]varI:byte;//0..255ls_...

简单加密算法：Delphi程序加密。加密是将每个字符提取出来与一个固定值进行异或，实现加密。

function Encrypt(const aStr: string; aKey: Word): string; //[in`kript]

var

I: byte; //0..255

ls_Str: string;

ls_Result: string;

begin

Result := '';

ls_Str := aStr; //确定密码长度

for I := 1 to Length(aStr) do

begin

ls_Str[I] := char(byte(aStr[I]) xor (aKey shr 8));

aKey := (byte(ls_Str[I]) + aKey) * c_PublicKey1 + c_PublicKey2;

ls_Result := ls_Result + IntToHex(byte(ls_Str[I]), 2);

end;

Result := ls_Result; //返回值(密

这是我自己写的：

public static String Encrypt(String aStr,short akey){

char[] ls_Str = aStr.toCharArray();

char[] as_Str = aStr.toCharArray(); //这里delphi是直接用String操作的，java不知道用啥我就用这个

String rs="";

for(int i=0 ;i

byte T = (byte) as_Str[i];

char R = (char) (T^(akey >>8));

ls_Str[i] = R;

akey = (short) ((ls_Str[i] + akey ) * c_PublicKey1 + c_PublicKey2);

rs = rs + Integer.toHexString(ls_Str[i]).toUpperCase();

}

展开