Как использовать шифрование AES-256 в lockbox 3 с помощью delphi

Question

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

Answer 1

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

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. Put компонент TCryptographicLibrary на вашей форме;
2. Поместите компонент TCodec в свою форму;
3. Выберите предпочтительный шифр
4. Выберите предпочтительный режим цепочки; и
5. Установите пароль

и Боба твой дядя!

Сообщите мне, если у вас есть какие-либо проблемы.