*************************************異或加密********************************************
const
XorKey: array[0..7] of Byte = ($B2, $09, $BB, $55, $93, $6D, $44, $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); //IntToHex整型轉16進制
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;
幫忙把上面兩個自定義函式轉成PHP的
uj5u.com熱心網友回復：
來個人幫幫忙呀轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/77491.html
標籤：語言基礎/算法/系統設計