[bachin]

Сообщение от smiley2005

я хочу сделать:

б. кодирование. из строки ты получишь другую строку, но не читаемую с первого взгляда.
только она должна быть целочисленая

ну например так кодируем:

function _str(c: Char): string;
begin
  Result := IntToStr(Byte(c));
  while Length(Result) < 3 do
    Result := '0' + Result;
end;

function _code1(s: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(s) do
    Result := Result + _str(s[i]);
end;

так декодируем:

function _chr(p: PChar): Char;
var
  str: string;
begin
  SetLength(str, 3);
  move(p^, PChar(str)^, 3);
  Result := Char(Byte(StrToInt(str)));
end;

function _code2(s: string): string;
var
  i: Integer;
begin
  Result := '';
  i := 0;
  while i < Length(s) do
    begin
      Result := Result + _chr(PChar(Integer(PChar(s)) + i));
      i := i + 3;
    end;
end;