加密和解密 delphi實現

2021-04-12 21:57:47 字數 1282 閱讀 2528

//加密流程:先把每個字元與自己在字串中的位置異或運算,然後再與金鑰進行異或運算

//然後把金鑰加在最後,最後把所得的結果進行base64編碼

//解密時反之:先解碼,再解密。

function tfrmclassroom.cryptstr(const s: string; stype: **allint): string;

vari, fkey: integer;

sinput:string;

stream:tstringstream;

begin

result := '';

case stype of

0: //加密

begin

randomize;

fkey := random($ff);

for i := 1 to length(s) do

result := result + chr(ord(s[i]) xor i xor fkey);

result := result + char(fkey);

//result := s;

stream := tstringstream.create(result);

stream.position :=0;

result := idencodermime1.encode(stream);

stream.free;

for i:=1 to length(result) do

if result[i]='/' then result[i]:='_'

else if result[i]='+' then result[i]:='!'

end;

1: //解密

begin

sinput := s;

for i:=1 to length(sinput) do

if sinput[i]='_' then sinput[i]:='/'

else if sinput[i]='!' then sinput[i]:='+';

sinput := iddecodermime1.decodetostring(sinput);

//result :=sinput;

fkey := ord(sinput[length(sinput)]);

for i := 1 to length(sinput) - 1 do

result := result + chr(ord(sinput[i]) xor i xor fkey)

end;

end;

end; 

加密和解密

public class desc public static string decode string data catch descryptoserviceprovider cryptoprovider new descryptoserviceprovider memorystream ms n...

加密和解密

公鑰密碼體制的核心思想是 加密和解密採用不同的金鑰。這是公鑰密碼體制和傳統對稱密碼體制的最大區別。對於傳統對稱密碼而言,密文的安全性完全依賴於金鑰的保密性,一旦金鑰洩露,將毫無保密性可言。但是公鑰密碼體制徹底改變了這樣狀況,在公鑰密碼體制中,公鑰是公開的,只有私鑰是保密的,知道公鑰和密碼演算法要推測...

加密和解密

目錄介紹 2.對稱加密和非對稱加密 3.關於單向加密 4.加密和解密 展示 5.rsa非對稱加解密 1.1 問答環節 1.2 加解密概況2.1 什麼是對稱加密 2.2 什麼是非對稱加密 2.3 常見對稱加密有什麼 2.4 常見非對稱加密有什麼 2.5 非對稱加密用途 陌生人通訊 支付寶支付加密 4....