Шифрование данных на usb носителе

[demon31]

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

Я не прошу даже тупо написать программу, помогите хотя бы отдельными компонентами, может кто сталкивался.

[slm]

1)

function DEVICE_FOUND:boolean;
const BufSize = $FFFF;
var
 Buf_DevList: Array[0..BufSize] of Char;
 DevName: PChar;
begin
 result:=false;
 Win32check(QueryDosDevice(nil, Buf_DevList, BufSize) <> 0);
 DevName := @Buf_DevList;

 while DevName^ <> #00 do
 begin
   if DevName='' then begin result:=true; break; end; //проанализировать имя устройства, если объявилась флешка, то дальше искать ее букву
   DevName := StrEnd(DevName)+1;
 end;
end;

DEVICE_Found засовываем в таймер если true - ищем имя флешки

2) FileExists скорее всего - не буду врать, не смотрел

3,4,5) Решение, которое я использовал и успешно - http://www.interface.ru/home.asp?artId=23099

Субъективное мнение - авось поможет