Delphi/꿀팁
[LockBox] AES 암/복호화 하기
uses .., uTPLb_Constants, uTPLb_Codec, uTPLb_CryptographicLibrary; function EncString(AStr: string): string; var tmpCodec: TCodec; tmpLibrary: TCryptographicLibrary; begin Result := ''; tmpLibrary := TCryptographicLibrary.Create(nil); tmpCodec := TCodec.Create(nil); try tmpCodec.CryptoLibrary := tmpLibrary; tmpCodec.StreamCipherId := BlockCipher_ProgId; tmpCodec.BlockCipherId := Format(AES_ProgI..