字串加密解密函式

2021-04-21 10:58:24 字數 1692 閱讀 4794

//

// 字串加密的過程...

function encrypt(src: string; key: string):string;

varkeylen: integer;

keypos: integer;

offset: integer;

dest: string;

srcpos: integer;

srcasc: integer;

range: integer;

begin

keylen:=length(key);

if keylen=0

then

key:='invalid';

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 keyposthen

keypos:=keypos + 1

else

keypos:=1;

srcasc:=srcasc xor ord(key[keypos]);

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

offset:=srcasc;

end;

result:=dest;

end;

//// 字串解密的過程...

function decrypt (src: string; key: string):string;

varkeylen: integer;

keypos: integer;

offset: integer;

dest: string;

srcpos: integer;

srcasc: integer;

tmpsrcasc: integer;

begin

keylen:=length(key);

if keylen=0

then

key:='invalid';

keypos:=0;

offset:=strtoint('$'+ copy(src,1,2));

srcpos:=3;

repeat

srcasc:=strtoint('$'+ copy(src,srcpos,2));

if keyposkeypos:=keypos + 1

else

keypos:=1;

tmpsrcasc:=srcasc xor ord(key[keypos]);

if tmpsrcasc<=offset then

tmpsrcasc:=255+tmpsrcasc-offset

else

tmpsrcasc:=tmpsrcasc-offset;

dest:=dest+chr(tmpsrcasc);

offset:=srcasc;

srcpos:=srcpos+2;

until srcpos>=length(src);

result:=dest;

end;

字串加密解密函式 C

using system using system.text using system.security.cryptography using system.io 預設金鑰向量 private static byte keys des加密字串 待加密的字串 加密金鑰 要求為8位 加密成功返回加密後的...

php加密函式與解密函式

去網上找了下。php常用的加密函式有 md5加密 不可逆 crypt加密 不可逆 sha1加密 不可逆 urlencode加密 可逆 base64編碼加密 可逆 還是見識的太少,這其中我只用過md5和base64 最常用的還是md5 md5的加密雖不可逆,但一些簡單的 兩次md5加密的字串,花點錢還...

PHP url 加密解密函式

php url 加密解密函式 base64 encode語法 string base64 decode string data str d3d3ljexmwnulm5ldnk7vtu9zlpmzfg 定義字串 echo base64 decode str 輸出解碼後的內容 str www.10li....