【文件属性】:
文件名称:最新AES的CBC加解密dll
文件大小:583KB
文件格式:DLL
更新时间:2022-07-23 11:41:18
AES CBC 加密
function AESCBCNew(kb: integer; resStr: PChar; inKey: PChar; initVector: PChar; OutStr: Pchar): Boolean; cdecl; external 'AES.dll';
function AESCBCD(kb: integer; resStr: PChar; inKey: PChar; initVector: PChar; OutStr: Pchar): Boolean; cdecl; external 'AES.dll';
procedure TForm1.Button1Click(Sender: TObject);
function WideStringToUTF8(const S: WideString): AnsiString;
begin
Result := UTF8Encode(S);
end;
var
tmpPchar, sKey, sVector: PChar;
begin
sKey :=PChar(edit1.text);
sVector := PChar(leftstr(edit1.text, 16));
GetMem(tmpPchar, 1024);
if AESCBCNew(256,PChar(edit2.text), sKey, sVector, tmpPchar) then
begin
edit3.text := tmpPchar;
end;
FreeMem(tmpPchar);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
tmpPchar, sKey, sVector: PChar;
begin
sKey :=PChar(edit1.text);
sVector := PChar(leftstr(edit1.text, 16));
GetMem(tmpPchar, 1024);
if AESCBCD(256,PChar(edit3.text), sKey, sVector, tmpPchar) then
begin
edit2.text := Trim(tmpPchar);
end;
FreeMem(tmpPchar);
end;