[Seregakz]

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

Function Encode(a: string): string;
var	len, ch: integer;
		s: string;
begin
	s:=''; len:=Length(a)-1;
	for i:=0 to len do begin ch:=ord(GetChar(a,i)); if ch>122 then s:=s+chr(ch+1104) else s:=s+chr(ch); end;
	Encode:=s;
end;

не пашет! ответ идёт квадратиками! php страница win1251