Поиск:

Ответ в темуСоздание новой темы Создание опроса
> XOR шифрование 
:(
    Опции темы
Martin_8
Дата 28.3.2008, 01:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Здравствуйте.
Я хочу реализовать шифрование простенькое, методом XOR. За основу взял функцию, предложенную sergejzr в теме 
http://forum.vingrad.ru/index.php?showtopi...st&p=749289

Код

AnsiString XOR_Crypt(AnsiString Key, char* InStr, char *result, int length)
{
//////////////////////////
 for (int x=0;x<length;x++)
 result[x]= (InStr[x] ^ Key[x%Key.Length()]);
//////////////////////////
}


Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString InStr="my secret message";
  AnsiString Key="myKey";
  char* cho;
  char* result=new char[InStr.Length()];
  XOR_Crypt(Key, InStr.c_str(),result, InStr.Length());  // Ошибка
  //result теперь - закоденная строка

  XOR_Crypt(Key,result, result, InStr.Length());
  AnsiString out=AnsiString(cho);
  //out теперь исходная строка
}


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


PM   Вверх
586
Дата 28.3.2008, 01:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Код
void XOR_Crypt(AnsiString Key, const char* InStr, char *result, int size)
{
 for (int x=0;x<size-1;x++)
    result[x]= (InStr[x] ^ Key[x%Key.Length()+1]);   // AnsiString с единицы нумеруется.
  result[size-1] = 0;      // завершает строку, чтобы с ней можно было нормально работать
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString InStr="my secret message";
  AnsiString Key="myKey";
  char* result=new char[InStr.Length()+1];        // +1 for null symbol
  XOR_Crypt(Key, InStr.c_str(),result, InStr.Length()+1);
  //result теперь - закодированная строка
  XOR_Crypt(Key,result, result, InStr.Length()+1);
  Caption = result;
  delete []result;
}


Это сообщение отредактировал(а) 586 - 28.3.2008, 17:52
PM   Вверх
Martin_8
Дата 29.3.2008, 00:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Спасибо, что поправили, на я только не понял, как я могу увидеть закодированную строку ?
Если писать
Код

...
//result теперь - закодированная строка
Edit1->Text=result;

То в result пусто.

PM   Вверх
586
Дата 29.3.2008, 02:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(Martin_8 @  29.3.2008,  00:33 Найти цитируемый пост)
на я только не понял, как я могу увидеть закодированную строку ?

Если только в двоичном формате. Смотри:
Цитата
 AnsiString InStr="my secret message";
  AnsiString Key="myKey";

'm' ^ 'm' = 0, а ноль - это конец строки.

Код
AnsiString MakeHex(const char *data, int cb)
{
    AnsiString s, t;
    for(int i = 0; i < cb; ++i)
        s += t.sprintf("%.2X ", data[i]);
    return s;
}

void XOR_Crypt(AnsiString Key, const char* InStr, char *result, int size)
{
 for (int x=0;x<size-1;x++)
    result[x]= (InStr[x] ^ Key[x%Key.Length()+1]);   // AnsiString с единицы нумеруется.
  result[size-1] = 0;      // завершает строку, чтобы с ней можно было нормально работать
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString InStr("my secret message");
  AnsiString Key("myKey");
  char* result=new char[InStr.Length()+1];        // +1 for null symbol
  XOR_Crypt(Key, InStr.c_str(),result, InStr.Length()+1);
  Caption = MakeHex(result, InStr.Length()+1);
  //result теперь - закодированная строка
  XOR_Crypt(Key,result, result, InStr.Length()+1);
  //Caption = MakeHex(result, InStr.Length()+1);
  delete []result;
}


Это сообщение отредактировал(а) 586 - 29.3.2008, 02:24
PM   Вверх
Martin_8
Дата 29.3.2008, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



586, спасибо за помощь smile 
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.

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


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.