Wenn du schon einige Zeit gesucht und nichts Passendes gefunden hast, schaue dich mal hier um.
In der mORMot
Unit 
SynCrypto.pas findest du z.B. die Klasse TAESCBC. In der
Unit SynCommons.pas verschiedene Base64Toxxx Funktionen. In den Units
SynEcc.pas aber vor allem in
SynSelfTests.pas sind Beispiele, wie du die Klassen und Funktionen anwendest.
Bis bald...
Thomas