Имена методов и свойств в значительной степени говорят обо всем.Вот метод, который зашифровывает строку, а затем снова ее расшифровывает, при условии, что вы установили свойства кодека во время разработки, которые также описывают сами себя.
procedure TForm1.actEncryptStringExecute( Sender: TObject );
var
Plaintext, sReconstructedPlaintext: string;
base64Ciphertext: ansistring;
begin
sPlainText := 'I love LockBox 3!';
if not InputQuery( 'Plaintext', 'Enter plaintext that you want to encrypt (UTF-16LE encoding):', sPlainText) then exit;
codec.EncryptString( sPlaintext, base64Ciphertext);
ShowMessageFmt('The base64 encoding of the encoded ciphertext is'#13#10+'%s',[base64Ciphertext]);
codec.DecryptString( sReconstructedPlaintext, base64Ciphertext);
ShowMessageFmt('After decryption, this decrypts back to %s',[sReconstructedPlaintext])
end;
Посмотрите еще раз на демонстрационную программу,Обработчик кнопки Encrypt, шифрует файл вместо строки.Помимо этого, если вы уберете декоративный пух, например, отправите информацию в заметку и обработаете исключения, если пользователь указал несуществующий файл, его невероятно просто - он в основном сводится к одной строке ...
codecMainDemo.EncryptFile( edtPlaintextFile.Text, edtCiphertextFile.Text );
Чтобы зашифровать строку, вы вызываете EncryptString ().Чтобы зашифровать файл, вы вызываете EncryptFile ().
Демонстрация показывает установку, а именно:
- Поместите компонент TCryptographicLibrary в вашу форму;Компонент TCodec в вашей форме;
- Выберите предпочитаемый шифр
- Выберите предпочитаемый режим цепочки;и
- Установите пароль
и Боб станет вашим дядей!
Дайте мне знать, если у вас возникнут проблемы.