VPF::помогите с переводом - Форум программистов

Grom

Дата 4.12.2006, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 183
Регистрация: 17.8.2006
Где: Москва

Репутация: 1
Всего: 1

Код


procedure TForm1.Crypt(Key: string; var St: string);
(*
*   Key - ключ шифрования
*   St - строка которую требуется зашифровать
*   n - длина строки которую надо зашифровать
*   m - длина ключа шифрования
*)
var
  i, j, n, m: Integer;
begin
  m := Length(Key);
  n := Length(St);

  i := 1;
  while i <= n do
  begin
    j := 1;
    while (i <= n) and (j <= m) do
    begin
      St[i] := Chr(Ord(St[i]) xor Ord(Key[j]));
      i := i + 1;
      j := j + 1;
    end;
  end;
end;

procedure TForm1.btnCryptClick(Sender: TObject);
var
  S: string;
begin
// шифрование текста
  Memo2.Clear;
  S := Memo1.Text;
  Crypt(txtCryptKey.Text, S);
  Memo2.Text := S;
end;

procedure TForm1.btnDecryptKeyClick(Sender: TObject);
var
  S: string;
begin
// расшифровка текста
  Memo4.Clear;
  S := Memo3.Text;
  Crypt(txtDeCryptKey.Text, S);
  Memo4.Text := S;
end;

end.

перевел так но не работает ничего :\

Код

Crypt(char Key[], char St[])
{
int i, j, n, m;

  m = strlen(Key);
  n = strlen(St);

  i = 1;
  while (i <= n)
  {
    j = 1;
    while ((i <= n) && (j <= m))
    {
      St[i] = (St[i]) ^ (Key[j]);
      i = i + 1;
      j = j + 1;
    }
  }

  return(int(St));

}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   char*  S;

  Memo2->Clear();
  S =(Memo1->Text).c_str();
  Crypt((Edit1->Text).c_str(), S);
  Memo2->Text = S;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  char* S;

  Memo4->Clear();
  S = (Memo3->Text).c_str();
  Crypt((Edit2->Text).c_str(), S);
  Memo4->Text = S;
}

--------------------

Хостинг, Vds, Dedicated serve, регистрация доменов (RU,com,net,org) - обращаться в icq.

VectorMan

Дата 4.12.2006, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Antihero

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 9.4.2006

Репутация: нет
Всего: 4

Grom, в Паскале индекс символов в строке меняется от 1 до длины_строки
в С++ от 0 до длины_строки - 1

Anikmar

Дата 4.12.2006, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59

1-е замечание:
В Си символы строки индексируются с 0, а в Паскале с 1
Соответственно циклы должны быть от 0 до < Длины строки - в этом основная ошибка

2-е Замечание (менее существенное):
return(int(St));
Эту конструкцию я не понял (в данном случае проще функцию объявить void раз от нее не требуется возвращать значение

3-е Замечание (уже просто так):
Прямая переписка кода не очень полезна с точки зрения получения опыта - алгоритм понятен, можно писать в духе Си:

Например:

Код


void Crypt(char* Key, char* Source)
{
int i, j, n, m;

  m = strlen(Key);
  n = strlen(St);

  i = 0;
  while (i < n)
  {
    j = 0;
    while ((i < n) && (j < m))
    {
      St[i] = (St[i]) ^ (Key[j]);
      i++;
      j++;
    }
  }
}

Grom

Дата 4.12.2006, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 183
Регистрация: 17.8.2006
Где: Москва

Репутация: 1
Всего: 1

VectorMan, да, с этим запамятовал. меня больше интересует правельно ли я перевел функцию Crypt ?

--------------------

Хостинг, Vds, Dedicated serve, регистрация доменов (RU,com,net,org) - обращаться в icq.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »