www.u8686.com-資訊發布平台
delphi字串加密解密函式
作用：可用作密碼的和一些重要引數的儲存，資料經加密後儲存即使被人看到了也無防。
首先定義乙個常量陣列
const
xorkey:array[0..7] of byte=($b2,$09,$aa,$55,$93,$6d,$84,$47); //字串加密用
然後在程式裡加入以下兩個函式：
function enc(str:string):string;//字元加密函式 這是用的乙個異或加密
vari,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;//字元解密函式
vari,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;
字串加密解密
using system.security.cryptography using system.io 加密函式 static stirng encrypt string str descryptoserviceprovider descsp new descryptoserviceprovider ...
C DES加密 解密字串
c des加密 解密字串 新增引用 using system using system.text using system.security.cryptography using system.io 預設金鑰向量 private static byte keys des加密字串 待加密的字串 加密金...
DES加密解密字串
金鑰隨機生成 class des 建立key public string generatekey descryptoserviceprovider descrypto descryptoserviceprovider descryptoserviceprovider.create return as...