Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Шифрование\разшифрование файлов 
:(
    Опции темы
Kirgston
Дата 12.5.2009, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Всем доброго времени суток! Вот на делфях у меня была библиотека для работы с файлами и просто строками (шифрование\разшифрование). Просто забыл название... и не могу вспомнить :(

Вот как обявлял...

Код

uses
DCPrc6, DCPsha1;

    function EncryptString(Source, Password: string): string;
    function DecryptString(Source, Password: string): string;
    function DecryptFile(Source, Dest, Password: string): Boolean;
    function EncryptFile(Source, Dest, Password: string): Boolean;

function TForm3.EncryptFile(Source, Dest, Password: string): Boolean;
var
  DCP_rc: TDCP_rc6;
  SourceStream, DestStream: TFileStream;
begin
  Result := True;
  try
    SourceStream := TFileStream.Create(Source, fmOpenRead);
    DestStream := TFileStream.Create(Dest, fmCreate);
    DCP_rc := TDCP_rc6.Create(Self);
    DCP_rc.InitStr(Password, TDCP_sha1);
    DCP_rc.EncryptStream(SourceStream, DestStream, SourceStream.Size);
    DCP_rc.Burn;
    DCP_rc.Free;
    DestStream.Free;
    SourceStream.Free;
  except
    Result := False;
  end;
end;

function TForm3.EncryptString(Source, Password: string): string;
var
  DCP_rc: TDCP_rc6;
begin
  DCP_rc := TDCP_rc6.Create(Self);   // создаём объект
  DCP_rc.InitStr(Password, TDCP_sha1);
  Result := DCP_rc.EncryptString(Source); // шифруем
  DCP_rc.Burn;                            // стираем инфо о ключе
  DCP_rc.Free;                            // уничтожаем объект
end;


function TForm3.DecryptFile(Source, Dest, Password: string): Boolean;
var
  DCP_rc: TDCP_rc6;
  SourceStream, DestStream: TFileStream;
begin
  Result := True;
  try
    SourceStream := TFileStream.Create(Source, fmOpenRead);
    DestStream := TFileStream.Create(Dest, fmCreate);
    DCP_rc := TDCP_rc6.Create(Self);
    DCP_rc.InitStr(Password, TDCP_sha1);
    DCP_rc.DecryptStream(SourceStream, DestStream, SourceStream.Size);
    DCP_rc.Burn;
    DCP_rc.Free;
    DestStream.Free;
    SourceStream.Free;
  except
    Result := False;
  end;
end;

function TForm3.DecryptString(Source, Password: string): string;
var
  DCP_rc: TDCP_rc6;
begin
  DCP_rc := TDCP_rc6.Create(Self);   // создаём объект
  DCP_rc.InitStr(Password, TDCP_sha1);    // инициализируем
  Result := DCP_rc.DecryptString(Source); // дешифруем
  DCP_rc.Burn;                            // стираем инфо о ключе
  DCP_rc.Free;                            // уничтожаем объект
end;


И это... подскажите хорошие либы для шифрования\дешифрации 

Заранее больше спасибо!
PM MAIL   Вверх
artsb
Дата 12.5.2009, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 39
Всего: 64
Kirgston, глянь здесь.


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
Alca
Дата 12.5.2009, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 25
Всего: 50
http://www.openssl.org/


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
vikaz
Дата 12.5.2009, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 10
Всего: 12
Цитата(Kirgston @  12.5.2009,  16:23 Найти цитируемый пост)
И это... подскажите хорошие либы для шифрования\дешифрации 

CryptoAPI. 

http://forum.vingrad.ru/forum/topic-243538.html


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Kirgston
Дата 12.5.2009, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Ребята спасибо вам за полезную информацию. Остановился я на Крипто ++ . Вроде всё что надо - есть =) а вот посмотреть как работать с ней не могу :( мануал на сайте не доступен... в гугле также примеров не нашёл... может кто то раскажет? Или примерчик?  smile 
PM MAIL   Вверх
artsb
Дата 12.5.2009, 20:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 39
Всего: 64
Цитата(Kirgston @  12.5.2009,  19:05 Найти цитируемый пост)
примерчик?

Посмотри здесь.


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
Kirgston
Дата 12.5.2009, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Да видел... но я что то не заметил чтобы были какие-либо обращения к Crypt++. Вот например я первый раз буду работать с этой либой. Я ничего не понимаю что и куда ))) с гугле воооообще ничего не нашёл :( ниодного примера :( а этот пример вроде работает с CryptAPI...
PM MAIL   Вверх
artsb
Дата 12.5.2009, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 39
Всего: 64
Kirgston, ты букву о потерял smile Crypto++

Вот пара ссылок:
ссылка 1
ссылка 2
ссылка 3
ссылка 4 - объемная тема

Там есть такая особенность - может отображаться только первый пост. Чтобы увидеть остальные клацни по кнопке "Посмотреть все ответы темы".


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
Kirgston
Дата 12.5.2009, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
О пасибки! Действительно )))))) потерял и смотрю что ничего нету )))))) а ещё смежный вопросик... а вот по теме которую вы мне дали. Там есть пример. Так какая там шифрация? Мне бы например хотелось RC6 но там вроде "самопал" ?
PM MAIL   Вверх
artsb
Дата 12.5.2009, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 39
Всего: 64
Цитата

а вот по теме которую вы мне дали

Какая ссылка?

Цитата(Kirgston @  12.5.2009,  22:34 Найти цитируемый пост)
RC6

Либа.
Документация по RC6
Бонус. smile

Это сообщение отредактировал(а) artsb - 12.5.2009, 22:57


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
mrbrooks
Дата 13.5.2009, 08:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


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

Репутация: 167
Всего: 306
Kirgston, не знаю советовали или нет - по ссылкам влом гулять но в 2009 версии Борман предлагает свое решение.

EncodeStream/DecodeStream
EncodeString/DecodeString
EncodeBase64/DecodeBase64

Живет вся эта красота не земная в EncdDecd.hpp. Очень кошерный функционал.
PM MAIL   Вверх
xvr
Дата 13.5.2009, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(mrbrooks @ 13.5.2009,  08:05)
Kirgston, не знаю советовали или нет - по ссылкам влом гулять но в 2009 версии Борман предлагает свое решение.

EncodeStream/DecodeStream
EncodeString/DecodeString
EncodeBase64/DecodeBase64

Живет вся эта красота не земная в EncdDecd.hpp. Очень кошерный функционал.

Это все банальный base64 - с шифрованием не имеет НИЧЕГО общего
PM MAIL   Вверх
mrbrooks
Дата 13.5.2009, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


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

Репутация: 167
Всего: 306
Цитата(xvr @  13.5.2009,  14:43 Найти цитируемый пост)
Это все банальный base64 - с шифрованием не имеет НИЧЕГО общего

Это для тебя банальный, для автора, возможно, будет достаточно.
PM MAIL   Вверх
xvr
Дата 13.5.2009, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(mrbrooks @ 13.5.2009,  15:10)
Цитата(xvr @  13.5.2009,  14:43 Найти цитируемый пост)
Это все банальный base64 - с шифрованием не имеет НИЧЕГО общего

Это для тебя банальный, для автора, возможно, будет достаточно.

Автор хотел RC6, так что base64 будет явно недостаточно. Тогда уж лучше запаковать (например через zlib), и то будет более похоже на шифрование  smile 
PM MAIL   Вверх
mrbrooks
Дата 14.5.2009, 08:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


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

Репутация: 167
Всего: 306
Цитата(xvr @  13.5.2009,  17:06 Найти цитируемый пост)
Тогда уж лучше запаковать (например через zlib), и то будет более похоже на шифрование

согласный. он, кстати, в 2009 тоже уже живет. В старых версиях - не помню.
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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