DCPCrypt to Lockbox3 이전

Question

저는 암호화/해독 루틴에 관한 초보자입니다. DCPCrypt를 사용하여 암호화 된 문자열의 암호를 해독하기 위해 Lockbox3을 내 응용 프로그램으로 이동하려고합니다.

이

function TfrmMain.Encrypt(value: string): string; 
var 
    CipherR : TDCP_rijndael; 
    m, sm, Key, IV: string; 
    Data: string; 
begin 
    Key := PadWithZeros(m, KeySize); 
    IV := PadWithZeros(sm, BlockSize); 
    Data := PadWithZeros(value, BlockSize); 
    m := 'SOMEWORDSOMEWORD'; 
    sm := 'WORDSOMEWORDSOME'; 

    Key := PadWithZeros(m, KeySize); 
    IV := PadWithZeros(sm, BlockSize); 
    CipherR := TDCP_rijndael.Create(Self); 
    if Length(m) <= 16 then 
    CipherR.Init(Key[1], 128, @IV[1]) 
    else if Length(m) <= 24 then 
    CipherR.Init(Key[1], 192, @IV[1]) 
    else 
    CipherR.Init(Key[1], 256, @IV[1]); 
    CipherR.EncryptCBC(Data[1], Data[1], Length(Data)); 
    CipherR.Free; 
    FillChar(Key[1], Length(Key), 0); 
    code := Base64EncodeStr(Data); 
    Result := code; 
end; 

가

내가 Lockbox3를 사용하여이 방법을 암호화 된 문자열을 해독하는 지금 싶습니다,하지만 난 m와 SM 등의 암호화 기능에 사용 된 값을 사용해야하며, 내가 알고 내가 어떻게 할 수 있습니다 의 내가 암호화이 기능을 있다고 가정 해 봅시다 내가 할 수 있다면 그렇게해라. sm 값을 사용하여 Codec1.Password를 설정한다고 생각했지만 작동하지 않습니다.

아이디어가 있으십니까? 모든 조언을 주셔서 감사합니다. 대한

Answer 1

어떻게 ...

function TfrmMain.Encrypt(const value: string): string; 
var 
    Codec: TCodec; 
    Lib : TCyptographicLibrary; 
    Ciphertext: ansistring; 
begin 
Codec := TCodec.Create(nil); 
Lib := TCyptographicLibrary.Create(nil); 
Codec.CryptoLibrary := Lib; 
Codec.StreamCipherId := BlockCipher_ProgId; 
Codec.BlockCipherId := 'native.AES-256'; // AES-256 cipher 
Codec.ChainModeId := CBC_ProgId;   // CBC chaining 
Codec.Password := 'WORDSOMEWORDSOME'; 
Codec.EncryptString(Value, Ciphertext); // Assumes UNICODE supporting compiler. 
result := Ciphertext; // Implicit utf8string --> unicode string coersion here. 
Codec.Burn; 
Lib.Free; 
Codec.Free; 
end; 

function TfrmMain.ShowCiphertextOfSomeWords; 
begin 
ShowMessage('base64 of ciphertext = ' + Encrypt('SOMEWORDSOMEWORD')) 
end; 

이 모든

은 번들 데모 프로그램과 온라인 도움말에 표시됩니다. 번들로 제공되는 데모 프로그램과 온라인 도움말은 처음 참조해야합니다. 응답자는 이미 귀하의 이익을 위해 작성된 것을 반복하는 경향이 있으므로 Stackoverflow 또는 포럼에 가기 전에이를 검토하십시오.