string 변수에 값을 넣을 때 Integer overflow 발생

[blueflag]

Delphi 11.3 Patch 1 사용중입니다.

델파이 포럼에 있는 cxAria 파일을 다운 받아서 암호화 테스트를 해보고 있습니다.

입력값은 Edit1.text에서 받아서 함수에 넘기면 integer overflow가 발생을 합니다.

왜 그러는지 이유를 알 수 없어서 글 올려 봅니다. 고수님들에 조언 부탁드립니다.

cxAria 첨부드립니다.

function DecryptAria(AKey: String; Source: String): String;
var
  Aria: TAriaCrypt;
begin
  Aria := TAriaCrypt.Create(nil);
  try
    with Aria do
    begin
      Encode := True;
      Key := AKey; {Integer overflow 발생 지점}
      Result := Decrypt(Source);
    end;
  finally
    Aria.Free;
  end;
end;

 

Aria.rar