Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

CAST128-for-Delphi

Delphi implementation of the free CAST-128 symmetric encryption algorithm (RFC 2144)

★ 4 on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

CAST-128 for Delphi

Delphi implementation of the free CAST-128 symmetric encryption algorithm (RFC 2144)

Sample usage

pascal

var   
  cast: TCast128;
      
  cast := TCast128.Create;
  cast.Init(key, keyLen, iv); //key must be 1..16 bytes long
  cast.EncryptECB(inBlock, outBlock); //block must be exactly 8-bytes
  cast.Burn;
  cast.Free;