function AESEncrypt(const AContent, APass: RawByteString): RawByteString;
begin
Result := TAESOFB.SimpleEncrypt(AContent, APass, True, True);
Result := BinToBase64(Result);
end;
function AESDecrypt(const AContent, APass: RawByteString): RawByteString;
begin
Result := TAESOFB.SimpleEncrypt(Base64ToBin(AContent), APass, False, True);
end;
BTW you're using mORMot1 version which is in maintenance mode, there's also v2 which is actively in development.
]]>The error message is:
ufrmPrincipal.pas(32): E2003 Undeclared identifier: 'TSynCrypto'
I have in uses SynCrypto and SynCommons
]]>I don't have any problem to compile current trunk with Delphi 10.3.3:
d:\dev\lib\SQLite3
Embarcadero Delphi for Win32 compiler version 33.0
Copyright (c) 1983,2018 Embarcadero Technologies, Inc.
365082 lines, 4.49 seconds, 5492264 bytes code, 290696 bytes data.
in compiler directive $MODE Delphi
]]>