Delphi Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Delphi Examples

Bounced Mail
Bz2
Character Encoding
CSV
DKIM / DomainKey
Digital Certificates
Digital Signatures
DH Key Exchange
DSA
Email
Email Object
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
NTLM
POP3
RSA
S/MIME
SMTP
Socket
Spider
SFTP
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Byte Array
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
Bzip2
LZW

Type Conversion

 

Article: Understanding COM References in Delphi

Using a .NET .snk Key File for RSA Encryption

Demonstrates how to load and use a .NET .snk key file for RSA encryption. SNK files are created by the Microsoft .NET Strong Name Tool (Sn.exe).

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATRSALib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rsa: TChilkatRsa;
success: Integer;
xmlKey: String;
bUsePrivateKey: Integer;
encryptedText: String;
decryptedText: String;

begin
rsa := TChilkatRsa.Create(Self);

success := rsa.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('RSA component unlock failed');

  end;

//  Load a public/private key pair from a .snk key file.
xmlKey := rsa.SnkToXml('chilkat2.snk');

Memo1.Lines.Add(xmlKey);

//  The xmlKey contains both public and private keys.
//  Import either the public or private for encrypting or
//  decrypting.
rsa.ImportPrivateKey(xmlKey);

bUsePrivateKey := 1;
encryptedText := rsa.EncryptStringENC('Hello World!',bUsePrivateKey);

Memo1.Lines.Add(encryptedText);

//  Now decrypt with the public key:
rsa.ImportPublicKey(xmlKey);
bUsePrivateKey := 0;
decryptedText := rsa.DecryptStringENC(encryptedText,bUsePrivateKey);

Memo1.Lines.Add(decryptedText);

//  Note: We could have just as well encrypted using the public key
//  and decrypted using the private key.

end;

 

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.

Mail Component · .NET Email Component · XML Parser