0

Использую компонент LockBox.
Шифрую файлы используя ниженаписанный код.
Проблема - мои файлы расшифровывают.

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

uses
  uTPLb_Codec,
  uTPLb_CryptographicLibrary,
  uTPLb_CBC,
  uTPLb_BlockCipher,
  uTPLb_Constants;

function AES (input, output, Password: string): Boolean;
var
codec:uTPLb_Codec.TCodec;
CryptographicLibrary:uTPLb_CryptographicLibrary.TCryptographicLibrary;
begin
Codec := TCodec.Create(nil);
Codec.CryptoLibrary:= TCryptographicLibrary.Create(Codec);
Codec.StreamCipherId := BlockCipher_ProgID;
Codec.BlockCipherId := Format(AES_ProgId, [256]);
Codec.ChainModeId := CBC_ProgId;
codec.Password:=Password;
codec.EncryptFile(input,output);
codec.Burn;
codec.Free;
end;

function RandomPassword(PLen: Integer): string;
 var
  str: string;
 begin
  Randomize;
 str :=
        'QWERTYUIOPASDFGHJKLZXCVBNM'+
        'qwertyuiopasdfghjklzxcvbnm'+
        '1234567890'+
        '~!@#$%^&*()-=+{}:"<>?/\.,';
  Result := '';
  repeat
  Result := Result + str[Random(Length(str)) + 1];
  until (Length(Result) = PLen)
 end;


 // шифрование
 for i := 0 to v.Count-1 do
 try
    begin
      if    CheckAccessToFile(GENERIC_WRITE,ExtractFilePath(v[i])) = true then
       begin


           password:=RandomPassword(32);

           AES(v[i], ExtractFilePath(v[i]) + 'файл защищен'+' ('+ExtractFileName(v[i])+')'+' .aes',password);

           AssignFile(myFile, ExtractFilePath(v[i]) + 'файл защищен'+' ('+ExtractFileName(v[i])+')'+' .aes');
           ReSet(myFile);
           Append(myFile);
           WriteLn(myFile,'password:'+ EncryptRSA_String(password,MSPublic));
           CloseFile(myFile);


           deletefile(Pchar(v[i]));



       end;
    end;

 except
 end;
6
  • А пароль вы где храните?..
    – Alekcvp
    3 авг 2019 в 19:21
  • шифрую с помощью RSA 1024bit и записываю в конец шифруемого файла. думаю это самое рациональное хранение ключа. У есть мысль, что файлы просто брутфорсят, но как ? я использую 32 символьный пароль, который как я понял подбирать очень и очень долго
    – santero
    4 авг 2019 в 17:09
  • 1
    То есть пароль к шифруемому файлу лежит прямо с этим файлом, зашифрованный константным паролем? А сам этот константный пароль фигурирует в теле приложения, которое доступно широкому кругу пользователей?
    – kami
    5 авг 2019 в 5:12
  • я не очень понимаю что значит константный пароль. пароль рандомится для каждого файла свой и шифруется с помощью RSA и записывается в конец ранее зашифрованного файла AES'ом .
    – santero
    5 авг 2019 в 6:17
  • я дополнил код.
    – santero
    5 авг 2019 в 6:20

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Посмотрите другие вопросы с метками или задайте свой вопрос.