Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.10.2015, 18:39
demon31 demon31 вне форума
Прохожий
 
Регистрация: 29.10.2015
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Шифрование данных на usb носителе

Помогите написать программу, которая:
1) Определяет подключен ли usb носитель, если да, то выполняется дальше, если нет, просто выдаёт сообщение, что его нет.
2) Найдя ubs носитель запускается алгоритм поиска внутренних файлов, если они есть, то идём дальше, если нет, то сообщение что файлов нет.
3) Найдя файлы, через бинарные операции надо запустить алгоритм шифрования, и проводить запись в новый файл получившуюся информацию и удалять старый файл, после идти к следующему файлу.
4) В и в итоге получать надо шифрованные файлы.
5) И так же нужна возможность дешифрования.

Я не прошу даже тупо написать программу, помогите хотя бы отдельными компонентами, может кто сталкивался.
Ответить с цитированием
  #2  
Старый 29.10.2015, 18:51
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

сканирование файлов : FindFirst() / FindNext() / FindClose()
шифрование / дешифрование : CryptCreateHash / CryptDeriveKey / CryptEncrypt / CryptDecrypt / CryptDestroyKey / CryptDestroyHash
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 29.10.2015, 19:05
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Определяет подключен ли usb носитель
Код:
...
case Msg.WParam of
   $7: ...;
end;
...

З.Ы.
Цитата:
...помогите хотя бы отдельными компонентами...
Вложения
Тип файла: pas U_Usb.pas (3.1 Кбайт, 2 просмотров)

Последний раз редактировалось Alegun, 29.10.2015 в 19:10.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:06.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter