Delphi и Windows API для защиты секретов
используемых переменных} hProv: HCRYPTPROV; hash:
{«описание» используемых переменных} hProv: HCRYPTPROV; hash: HCRYPTHASH; password: string; key: HCRYPTKEY; plaintext, ciphertext: string; inFile, outFile: file; data: PByte; l: DWORD;
{получаем контекст криптопровайдера} CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT); {создаем хеш-объект} CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash); {хешируем пароль} CryptHashData(hash, @password[1], length(password), 0); {создаем ключ на основании пароля для потокового шифра RC4} CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key); {уничтожаем хеш-объект} CryptDestroyHash(hash); {открываем файлы} AssignFile(inFile, plaintext); AssignFile(outFile, ciphertext); reset(inFile, 1); rewrite(outFile, 1); {выделяем место для буфера} GetMem(data, 512); {шифруем данные} while not eof(inFile) do begin BlockRead(inFile, data^, 512, l); CryptEncrypt(key, 0, eof(inFile), 0, data, @l, l); BlockWrite(outFile, data^, l); end; {освобождаем место и закрываем файлы} FreeMem(data, 512); CloseFile(inFile); CloseFile(outFile); {освобождаем контекст криптопровайдера} CryptReleaseContext(hProv, 0);
