아르스님 안녕하세요..
기존 코드를 그대로 가져가실때,
string 을 AnisString 으로 변환하시고, Char 를 AnsiChar로 변환해 주시면 됩니다.
즉, 아래와 같은 형태가 되겠지요..

보니깐 박후선 님의 강좌에 포함된 코드같습니다..,
아래 함수들에 포함된 ValueToHex 등의 사용자 함수도 모두
위에 말씀드린 것 처럼 수정하셔야 정상 동작할겁니다.

P.S : Warning 뜨는것은 AnsiString 을 string(.. 으로 타입캐스팅 해주시면 잠재워 집니다.

그럼~ 즐거운 프로그래밍 하세요~


function Encrypt(const S: AnsiString; Key: Word): AnsiString;
var
i: integer;
FirstResult: AnsiString;
begin
SetLength(FirstResult, Length(S));
for i := 1 to Length(S) do
begin
FirstResult[i] := Ansichar(byte(S[i]) xor (Key shr 8));
Key := (byte(FirstResult[i]) + Key) * C1 + C2;
end;
Result := ValueToHex(FirstResult);
end;

function Decrypt(const S: AnsiString; Key: Word): AnsiString;
var
i: integer;
FirstResult: AnsiString;
begin
FirstResult := HexToValue(S);
SetLength(Result, Length(FirstResult));
for i := 1 to Length(FirstResult) do
begin
Result[i] := Ansichar(byte(FirstResult[i]) xor (Key shr 8));
Key := (byte(FirstResult[i]) + Key) * C1 + C2;
end;
end;

아....

답변 감사합니다.

ValueToHex까지 변환해야 한다는걸 잊었었네요...

어쩐지 자꾸 엉뚱한 값이 나오더라구요..

다시 한번 감사합니다.