2012-02-26 3 views
1

약 1 주일 전에 Lockbox3을 다운로드했는데 사용할 수 없으며 복잡한 코드이기 때문에 데모를 이해할 수 없습니다. 내가 원한다면, lockbox 3 AES-256 암호화를 사용하여 Delphi에서 문자열을 암호화하고 싶습니다.delbox를 사용하여 lockbox 3에서 AES-256 암호화 사용 방법

+4

구체적으로 무엇을하려하십니까? 이 작품을 만들기 위해 무엇을 시도 했습니까? 어떤 오류 메시지가 나타 났습니까? 매우 명확하고 집중된 질문을하지 않으면 표결이나 집중 대답을 얻지 못할 수 있습니다. 위에 링크 된 FAQ를 읽고 싶을 수도 있습니다. – Argalatyr

답변

4

메서드와 속성 이름은 모두이 말을 사용합니다. 다음은 문자열을 암호화 한 다음 다시 해독하는 메서드입니다. 디자인 타임에 코덱 속성을 설정했다고 가정합니다.이 코드는 자체 설명입니다.

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; 

데모 프로그램을 한 번 더 살펴보십시오. 암호화 단추의 처리기는 문자열 대신 파일을 암호화합니다. 그 외에, 정보를 메모에 게시하는 것과 같이 사용자가 존재하지 않는 파일을 지정하면 예외적으로 다루기 때문에 장식적인 솜털 모양을 벗겨 내면 믿을 수 없을 정도로 단순합니다. 기본적으로 하나의 줄로 나타납니다 ...

codecMainDemo.EncryptFile(edtPlaintextFile.Text, edtCiphertextFile.Text); 

문자열을 암호화하려면 EncryptString()을 호출하십시오. EncryptFile()을 호출하는 파일을 암호화하려면.

데모는 재치로 설정을 보여줍니다

  1. 하는 양식에 TCryptographicLibrary 구성 요소를 넣어;
  2. 양식에 TCodec 구성 요소를 추가하십시오.
  3. 원하는 암호를 선택하십시오.
  4. 원하는 체인 모드를 선택하십시오. 및
  5. 암호를

을 설정하고 밥의 삼촌!

문제가 있으면 알려주세요.

+0

XE6에 이러한 구성 요소를 설치하기 만하면 EncryptString은 세 번째 매개 변수로 Sysutils에서 일부 TEncoding이 필요합니다. 어떻게해야합니까? – Vlastimil

+0

그것은 당신이 원하는 문자열 인코딩에 달려 있습니다. UTF-8? UTF-16LE? 또는 다른 것. –

+0

정상적인 ASCII 문자열입니다. 어떻게해야 할 지 잘 모릅니다. 감사합니다. – Vlastimil