Q&A

  • 암호화를 하는데요..
팁앤 테크에 있는 암호화를 보고 했는데요..
<!--CodeS-->
const
c1 = 52845;
c2 = 22719;

function Encrypt (const s: string; Key: Word) : string;
var
i : byte;
begin
        result[0] := s[0];  <------------ 요기가 49번째 라인입니다.
        for i := 1 to length (s) do
        begin
                Result[i] := Char (byte (s[i]) xor (Key shr 8));
                Key := (byte (Result[i]) + Key) * c1 + c2
        end;
end;
<!--CodeE-->
컴파일하면요
[Error] U_Login.pas(49): Element 0 inaccessible - use 'Length' or 'SetLength'
이렇게 나오거든요...

어떻게 해결해야 하나요?
델파이 5 입니다..
1  COMMENTS
  • Profile
    최용일 2005.03.31 00:59
    안녕하세요. 최용일입니다.

    아마도 아주 오래된 버전에서 작성된 소스 같네요...

    아래와 같이 바꿔보세요...

    Result[0] := S[0];

    ====>

    SetLength(Result, Length(S));

    ^^ 항상 즐코하세요...