Как использовать шифрование AES-256 в lockbox 3 с помощью delphi - PullRequest
1 голос
/ 26 февраля 2012

Я скачал Lockbox3 около недели назад, и я не могу его использовать, и я не мог понять демо, потому что это сложно, я не могу получить коды, которые я хочу от него, я хотел бы использовать Lockbox3 AES-256 шифрование для шифрования строк в Delphi.

1 Ответ

5 голосов
/ 26 февраля 2012

Имена методов и свойств в значительной степени говорят обо всем.Вот метод, который зашифровывает строку, а затем снова ее расшифровывает, при условии, что вы установили свойства кодека во время разработки, которые также описывают сами себя.

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 ().

Демонстрация показывает установку, а именно:

  1. Поместите компонент TCryptographicLibrary в вашу форму;Компонент TCodec в вашей форме;
  2. Выберите предпочитаемый шифр
  3. Выберите предпочитаемый режим цепочки;и
  4. Установите пароль

и Боб станет вашим дядей!

Дайте мне знать, если у вас возникнут проблемы.

...