функции перевода

[Irenka]

Если из этого:

function PolibiusEncipher(toCode: string): string;
var
  i: integer;
  ix, jx: char;
  s: string;
begin
  s := '';
  for i := 1 to length(toCode) do begin
 
    for ix := 'A' to 'E' do
      for jx := 'A' to 'E' do
        if TPolibius[ix, jx] = toCode[ i ] then begin
          s := s + ix + jx; break;
        end;
 
  end;
  PolibiusEncipher := s
end;

получилось вот это:

void PolibiusEnc(char* str, char* str2){
	int i;
	int ix,jx;

	for(i=0;i<strlen(str);i++)
		for(ix=0; ix<5; ix++)
			for(jx=0; jx<5; jx++)
				if(str[i]==TPolibius[ix][jx])
				{
					char tmp[2]="";
					tmp[0]='1'+ix;
					strcat(str2,tmp);
					tmp[0]='1'+jx;
					strcat(str2,tmp);
					strcat(str2," ");

				}

}

То как из этого:

function PolibiusDecipher(toDecode: string): string;
var
  i: integer;
  s: string;
begin
  s := '';
  i := 1;
  while i <= length(toDecode) do begin
    s := s + TPolibius[toDecode[ i ], toDecode[succ(i)]];
    inc(i, 2);
  end;
  PolibiusDecipher := s
end;

получить правильное вот это:

void PolibiusDec(char* str, char* str2){
        int i;
        i=1;
        while (i<strlen(str))
        {
          str=str+TPolibius[str2[i]][str2[i+1]];
          i+=2;
        }
}

??
Как Ето реализовать ВЕРНО, а?

[Irenka]

Пупсики, Вы все такие отзывчивые! Я просто поражаюсь))
Но ф-ция, вроде такова,

void PolibiusDec(char* str, char* str2){
	int i;

	i=0;
	while (i<strlen(str2))
	{
	  strncat(str,&TPolibius[str2[i]-'1'][str2[i+1]-'1'],1);
	  i+=3;
	}
}

Дя?

[netrino]

Может использовать sprintf? )

sprintf(str, "%s%c", str, TPolibius[str2[i]-'1'][str2[i+1]-'1']);

не вчитывался, потому не уверен, то ли это, что вам нужно, но всё же ) Кстати, почему i+=3, а не 2?

[Irenka]

Все же +2. Раньше там должен был быть обязательным пробел)) Не, sprintf пока не хочу))

[liljon]

void PolibiusDecipher(const char * in, char * out)
{
 while (*in)
 {
  *out++ = TPolibus[*in,in+1];
  in += 2;
 }
}

Не?