哪位给一个对字符串加密和解密的函数，谢谢！！！！

Question

哪位给一个对字符串加密和解密的函数，谢谢！！！！

Answer 1

百度 delphi 字符串加密解密

Answer 2

StringZip.pas
unit StringZip;
interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,zlib,Base64;procedure Zip(Input,Output:TStream;Compress:Boolean);
function ZipString(Input:string):string;
function UnZipString(Input:string):string;implementationprocedure Zip(Input,Output:TStream;Compress:Boolean);
const
  MAXBUFSIZE=1024 * 16;   //16 KB
var
  CS:TCompressionStream;
  DS:TDecompressionStream;
  Buf:array[0..MAXBUFSIZE-1] of Byte;
  BufSize:Integer;
begin
   if Assigned(Input) and Assigned(Output) then
  begin
    if Compress then
    begin
      CS:=TCompressionStream.Create(clDefault,Output);
      try
        CS.CopyFrom(Input,0);  //从开始处复制
      finally
        CS.Free;
      end;
    end else
    begin
      DS:=TDecompressionStream.Create(Input);
      try
        BufSize:=DS.Read(Buf,MAXBUFSIZE);
        while BufSize>0 do
        begin
          Output.Write(Buf,BufSize);
          BufSize:=DS.Read(Buf,MAXBUFSIZE);
        end;
      finally
        DS.Free;
      end;
    end;
  end;
end;function ZipString(Input:string):string;
var
  InputStream,OutputStream:TStringStream;
begin
  if Input='' then Exit;
  InputStream:=TStringStream.Create(Input);
  try
    OutputStream:=TStringStream.Create('');
    try
      Zip(InputStream,OutputStream,true);
      Result:=StrToBase64(OutputStream.DataString)
    finally
      OutputStream.Free;
    end;
  finally
    InputStream.Free;
  end;
end;function UnZipString(Input:string):string;
var
  InputStream,OutputStream:TStringStream;
begin
  Input:=Base64ToStr(Input);  if Input='' then Exit;
  InputStream:=TStringStream.Create(Input);
  try
    OutputStream:=TStringStream.Create('');
    try
      Zip(InputStream,OutputStream,false);
      Result:=OutputStream.DataString;
    finally
      OutputStream.Free;
    end;
  finally
    InputStream.Free;
  end;
end;end.

Answer 3

Base64.pasunit Base64;
interface
uses SysUtils;
function StrToBase64(const str: string): string;function Base64ToStr(const Base64: string): string;
implementation
//const//  Base64_Chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
function StrToBase64(const Str: string): string;var  I, J, K, Len, Len1: Integer;  B3: array[0..2] of Byte;  B4: array[0..3] of Byte;begin  if Str = '' then  begin    Result := '';    Exit;  end;  Len := Length(Str);  Len1 := ((Len + 2) div 3) shl 2;  SetString(Result, nil, Len1);  I := 1;  J := 1;  while I <= Len do  begin    for K := 0 to 2 do      if K + I > Len then B3[K] := 0      else B3[K] := Ord(Str[K + I]);    B4[0] := B3[0] shr 2;    B4[1] := ((B3[0] shl 4) or (B3[1] shr 4)) and 63;    B4[2] := ((B3[1] shl 2) or (B3[2] shr 6)) and 63;    B4[3] := B3[2] and 63;    for K := 0 to 3 do    begin      case B4[K] of        0..25: Result[J] := Chr(B4[K] + 65);   // 'A'..'Z'        26..51: Result[J] := Chr(B4[K] + 71);  // 'a'..'z'(B4[K]-26+97)        62: Result[J] := '+';        63: Result[J] := '/';      else Result[J] := Chr(B4[K] - 4);        // '0'..'9'(B4[K]-52+48)      end;//      Result[J] := Base64_Chars[B4[K] + 1];      Inc(J);    end;    Inc(I, 3);  end;  K := 3 - Len mod 3 - 1;  if K <> 2 then    for I := Len1 - K to Len1 do      Result[I] := '=';end;
function Base64ToStr(const Base64: string): string;var  I, J, K, Len, Len1: Integer;  B4: array[0..3] of Byte;begin  if Base64 = '' then  begin    Result := '';    Exit;  end;  Len := Length(Base64);  if Len and 3 <> 0 then    raise Exception.Create('Invalid Base64 length');  Len1 := (Len shr 2) * 3;  SetString(Result, nil, Len1);  I := 1;  J := 1;  while I <= Len do  begin    for K := 0 to 3 do    begin      case Base64[I] of        'A'..'Z': B4[K] := Ord(Base64[I]) - 65;        'a'..'z': B4[K] := Ord(Base64[I]) - 71;        '0'..'9': B4[K] := Ord(Base64[I]) + 4;        '+': B4[K] := 62;        '/': B4[K] := 63;        '=': B4[K] := 0;      else raise Exception.CreateFmt('#%d: Invalid char in Base64', [Ord(Base64[I])]);      end;      Inc(I);    end;    Result[J] := Chr((B4[0] shl 2) or (B4[1] shr 4));    Result[J + 1] := Chr((B4[1] shl 4) or (B4[2] shr 2));    Result[J + 2] := Chr((B4[2] shl 6) or B4[3]);    Inc(J, 3);  end;
  I := Pos('=', Base64);  if I <> 0 then  begin    I := Len - I + 1;    Delete(Result, Len1 - I + 1, I);  end;
end;
end.

Answer 4

这种字符串加密解密很多啊,楼上的我没太用过，一般常用DES