AES 256 | Delphi Encryption - PHP Decryption
2 min read

AES 256 | Delphi Encryption - PHP Decryption

AES 256 | Delphi Encryption - PHP Decryption

Merhaba,

bu yazımda Github üzerinde paylaştığım kütüphaneyi paylaşacağım.

halilhanbadem/AES-256-CBCEncryptionDelphi_PHP
Delphi Encryption - PHP Decryption. OpenSSL method usage and AES type AES-256-CBC - halilhanbadem/AES-256-CBCEncryptionDelphi_PHP

DECCrypt

DECCrypt bileşenine erişmek için lütfen şu adrese gidin:

StephenGenusa/DCPCrypt
Cryptographic Component Library. Contribute to StephenGenusa/DCPCrypt development by creating an account on GitHub.

Depoda bu bileşene ait dosyalar var. Bu kaynak dosyaları Delphi aracılığıyla kitaplığa tanıtmalısınız.

Kullanım


unit AESDemo1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, AESEncDec,
  System.NetEncoding;

type
  TfrmAESDemo = class(TForm)
    aesMemo: TMemo;
    Encryption: TButton;
    procedure EncryptionClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAESDemo: TfrmAESDemo;

implementation

{$R *.dfm}

procedure TfrmAESDemo.EncryptionClick(Sender: TObject);
var
  Cha: TChainingMode;
  Pad: TPaddingMode;
  size: Integer;
  Enc: TEncoding;
  Password, Data, IV, Crypto: TBytes;
begin
  size := 256;
  Enc := TEncoding.ANSI;
  Cha := cmCBC;
  Pad := pmPKCS7;
  Data := Enc.GetBytes('halilhanbadem testi türkçe karakter');
  Password := Enc.GetBytes('pstestpstestpstestpstestpstest12');
  IV := Enc.GetBytes('ivtest_ivtest123');

  aesMemo.Lines.Text := TNetEncoding.Base64.EncodeBytesToString
    (TAESEncDec.Create.EncryptAES(Data, Password, Size, IV, cha,
    pad));
end;

end.

Uyarı

IV anahtarı 16 karakter olmalıdır. AES anahtarı 32 karakter olmalıdır.

Sorularınız için repo üzerinden sorun oluşturabilirsiniz.

Sağlıcakla kalın!