char <-> byte

Вадим 20.11.2002 15:10

Можно ли как-нть сделать что-нть подобное на Parser'е?
function CoDeStr(St : string) : string;
var
x : integer;
begin
SetLength(result,length(St));
for x:=1 to length(St) do begin
result[x]:=char(byte(St[x]) xor ($55 shl (x and 1)));
end;
end;

Я сделал примерно так:
$b[некоторая строка]
$a[]
^for[i](1;^b.length[]){
$c[^b.left(1)]
$b[^b.mid(2,^eval(^b.length[]-1))]
# >>> $c[$c.char]
^if($i & 1 == 1){
$c[$c # 170]
}{
$c[$c # 85]
}
# >>> $c[$c.string]
$a[$a+$c]
}
Только как в помеченных участках делать преобразование char в byte (символа в число по ASCII-коду) и обратно?

ps Или как можно закодировать строку другими способами?

---