AES Chat 델파이용 암복호화.. seed 128, 256 AES 128, 192, 256 HMAC 등등.. 개별 작업 및 테스트는 완료했고 Block Chiper 특성 상 공통 부분 추려내고 깔끔하게 만들어서 내보이고 싶은데 너무 귀찮..다...ㅠㅠ IV같은 것들도 물어보시는 분들이 많아서 작업해논건데 시간만 흘려보내는 중.. 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.. 이전 1 다음
