wincrypt windows crypto API usage delphi/lazarus Example of symmetric string cypher. Tested on Delphi community Tokyo and Lazarus 1.8.4 and FPC 3.0.4