ดาวน์โหลด Delphi OpenSSL - Delphi OpenSSL Source Source Download

Delphi OpenSSL

ซอร์สโค้ดเดลฟี

1.0.0

ดาวน์โหลด

ห้องสมุด Delphi OpenSsl

Delphi wrapper สำหรับ openssl

คุณสมบัติ

เข้ารหัส/ถอดรหัสโดยใช้อัลกอริทึม RSA
รูทีนรหัสแบบสมมาตร
Base64 การเข้ารหัสการถอดรหัส
การสนับสนุน PAM ขั้นพื้นฐาน
การสร้างสตริงบิตหลอกหลอก
การสนับสนุนทางแสงพื้นฐาน
สร้าง Keypairs RSA ในรูปแบบ PKCS PEM

การใช้งาน

เข้ารหัสด้วยคีย์สาธารณะภายในใบรับรอง x509

บรรทัดคำสั่ง:

 OpenSSL rsautl -encrypt -certin -inkey publiccert.cer -in test.txt -out test.txt.cry

ซอร์สโค้ด:

 var
  RSAUtil :TRSAUtil;
  Cerificate :TX509Cerificate;
begin
  RSAUtil := TRSAUtil.Create;
  try
    Cerificate := TX509Cerificate.Create;
    try
      Cerificate.LoadFromFile( ' publiccert.cer ' );
      RSAUtil.PublicKey.LoadFromCertificate(Cerificate);
      RSAUtil.PublicEncrypt( ' test.txt ' , ' test.txt.cry ' );
    finally
      Cerificate.Free;
    end ;
  finally
    RSAUtil.Free;
  end ;
end ;

เข้ารหัสด้วยคีย์สาธารณะในรูปแบบ PEM

บรรทัดคำสั่ง:

 OpenSSL rsautl -encrypt -pubin -inkey publickey.pem -in test.txt -out test.txt.cry

ซอร์สโค้ด:

 var
  RSAUtil :TRSAUtil;
begin
  RSAUtil := TRSAUtil.Create;
  try
    RSAUtil.PublicKey.LoadFromFile( ' publickey.pem ' );
    RSAUtil.PublicEncrypt( ' test.txt ' , ' test.txt.cry ' );
  finally
    RSAUtil.Free;
  end ;
end ;

ถอดรหัสด้วยคีย์ส่วนตัวในรูปแบบ PEM

บรรทัดคำสั่ง:

 OpenSSL rsautl -decrypt -inkey privatekey.pem -in test.txt.cry -out test.txt

ซอร์สโค้ด:

 var
  RSAUtil :TRSAUtil;
begin
  RSAUtil := TRSAUtil.Create;
  try
    RSAUtil.PrivateKey.OnNeedPassphrase := PassphraseReader;
    RSAUtil.PrivateKey.LoadFromFile( ' privatekey.pem ' );
    RSAUtil.PrivateDecrypt( ' test.txt.cry ' , ' test.txt ' );
  finally
    RSAUtil.Free;
  end ;
end ;

เข้ารหัสด้วย AES256

บรรทัดคำสั่ง:

 OpenSSL enc -base64 -aes256 -in text.plain -out text.aes256 -k secure

ซอร์สโค้ด:

 var
  EncUtil :TEncUtil;
begin
  EncUtil := TEncUtil.Create;
  try
    EncUtil.UseBase64 := True;
    EncUtil.Passphrase := ' secure ' ;
    EncUtil.Cipher := ' AES-256 ' ;
    EncUtil.Encrypt( ' text.plain ' , ' text.aes256 ' );
  finally
    EncUtil.Free;
  end ;
end ;