VPF::Шифрование текстовых файлов - Форум программистов

Lacoste1024

Дата 28.4.2011, 13:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте, у меня возникла такая ситуация. Создал шифраторы на языках Си и Delphi. Файлы большого объёма (например 50Мб) шифруются быстрее на прогах Delphi. Файлы с малым размером (например 100Кб) быстрее шифруются на Си. Как это можно объяснить. Алгоритмы шифрования: шифр Виженера, RSA.

necrom

Дата 28.4.2011, 14:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не знаю как шифр Виженера, но RSA, не предназначен для шифрования файлов в 50 Мб, он нужен только для шифрования ключей ибо при шифровании файла смысл теряется. А вы используете бибилиотеки или сами писали всё с 0?

Lacoste1024

Дата 28.4.2011, 19:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Сам всё писал с нуля. И всё же почему так происходит?

Код


#include <stdio.h>

long RSA ( long M, long E_D, long N )
{
    long i, C;
    C = M % N;
    for ( i = 1; i < E_D; i++ )
           C = (C * M) % N;
    return C;
}

int main()
{
    long E, N, D, M;
    FILE *fkeys, *fin, *fout;

    fkeys = fopen ( "keys.txt", "r" );
        fscanf ( fkeys, "%d %d", &E, &N );
    fscanf ( fkeys, "%d", &D );
    fclose ( fkeys );

    fin = fopen ( "input.txt", "r" );
    fout = fopen ( "Encoded_RSA.txt", "w" );
    while ( ( M = fgetc ( fin )) != EOF )
    {
        M = RSA ( M, E, N );
        fprintf ( fout, "%d ", M );
    }
    fclose ( fin );
    fclose ( fout );
    return 0;
}

Код


Program RSA_Encoder;

{$APPTYPE CONSOLE}

Uses
  SysUtils;

Var
  input, output : Text;
  E, N, D, M : LongInt;
  b : Char;

Function RSA(M, E_D, N : LongInt) : LongInt;
Var
  i, C : Cardinal;
Begin
  C := M Mod N;
  For i := 2 To E_D Do
    C := C * M Mod N;
  Result := C;
End;

Procedure ReadKeys;
Var
  Keys : Text;
Begin
  Assign(Keys, 'keys.txt');
  Reset(Keys);
  ReadLn(Keys, E, N);
  Read(Keys, D);
  Close(Keys);
End;

Begin
  ReadKeys;
  Assign(input, 'input.txt'); Reset(input);
  Assign(output, 'Encoded_RSA.txt'); ReWrite(output);
  While Not EOF(input) Do
  Begin
    Read(input, b);
    M := Ord(b);
    M := RSA(M, E, N);
    Write(output, M, ' ');
  End;
  Close(input);
  Close(output);
End.

hawk3500

Дата 28.4.2011, 19:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

В данном случае не столько на исходники смотреть надо сколько на готовый продукт.
Посмотрите дизассемблером и там всё яснее станет.

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

воин dzen'a

Lacoste1024

Дата 28.4.2011, 19:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

hawk3500, к сожалению я не умею обращаться с ним

hawk3500

Дата 28.4.2011, 20:10 (ссылка)

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

Загрузка ...

Бывалый

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

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

Ну тогда в принципе примите то что одна быстрее другой как факт.
Скорость может расходиться на библиотечных функциях и тогда увы и ах.
Можно писать всё на ассемблере или пусть даже на языке более высокого уровня но использовать весь API на прямую.
Вряд ли скорость заметно будет отличаться из-за самого алгоритма-не такой он уж и большой и новороченный чтобы различаться.

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

воин dzen'a

Lacoste1024

Дата 28.4.2011, 20:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

hawk3500, у меня файлы большого объёма (например 50Мб) шифруются быстрее на прогах Delphi, файлы с малым размером (например 100Кб) быстрее шифруются на Си. Почему так происходит?

hawk3500

Дата 28.4.2011, 20:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Для теста замените функции работы с файлами на WIN API и читайте/пишите блоками кратными размеру кластера.
Попробуйте.

Добавлено через 1 минуту и 40 секунд

Цитата(Lacoste1024 @ 28.4.2011, 20:13)

читает возможно различными порциями.

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

воин dzen'a

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