1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
| //---------------------------------------------------------------------------
#include <vcl.h>
#include <windows.h>
#include <wincrypt.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HCRYPTPROV hProv; //дескриптор криптопровайдера
HCRYPTKEY hKeyH; //дескриптор ключа, созданного из хэш кода
HCRYPTKEY hKeyR;//дескриптор ключа,
// сгенерированного случайно
HCRYPTHASH hHash; //дескриптор хэш-объекта
BYTE buf[512]; //буфер для данных
DWORD buflen; //длина буфера
AnsiString pass; //строка для пароля
HANDLE in,out;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1DblClick(TObject *Sender)
{
if (OpenDialog1->Execute()) Edit1->Text=OpenDialog1->FileName;
in = CreateFile(Edit1->Text.c_str(), GENERIC_READ, 0,NULL, OPEN_EXISTING,0,NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2DblClick(TObject *Sender)
{
if (OpenDialog1->Execute()) Edit2->Text=OpenDialog1->FileName;
out = CreateFile(Edit2->Text.c_str(), GENERIC_WRITE ,0,NULL, CREATE_ALWAYS,0,NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
pass = (InputBox("Введите пароль", "", ""));
CryptCreateHash(hProv, 0x0000800c,0,0,&hHash); //CALG_SHA_256
CryptHashData(hHash,pass.c_str(),strlen(pass.c_str()),0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if (CryptAcquireContextA(&hProv, NULL, NULL,
PROV_RSA_AES, CRYPT_VERIFYCONTEXT))
{
ShowMessage("Успешное подключение к провайдеру");
return;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
switch (RadioGroup1->ItemIndex)
{
case 0:
CryptDeriveKey(hProv, CALG_AES_128,hHash,0,&hKeyH);
//CryptGenKey(hProv, CALG_AES_128, CRYPT_EXPORTABLE,&hKeyR);
break;
case 1:
//CryptGenKey(hProv, CALG_AES_128, CRYPT_EXPORTABLE,&hKeyR);
CryptDeriveKey(hProv, CALG_AES_192,hHash,0,&hKeyH);
break;
case 2:
//CryptGenKey(hProv, CALG_AES_128, CRYPT_EXPORTABLE,&hKeyR);
CryptDeriveKey(hProv, CALG_AES_256,hHash,0,&hKeyH);
break;
}
if (RadioGroup2->ItemIndex==0) {
while(ReadFile(in, buf, 512, &buflen, 0) && buflen > 0) {
CryptEncrypt(hKeyR, 0, false, 0, buf, &buflen, 512);
WriteFile(out, &buf, buflen, &buflen, 0);
}}else {
while(ReadFile(in, buf, 512, &buflen, 0) && buflen > 0) {
CryptDecrypt(hKeyR, 0, false, 0, buf, &buflen);
WriteFile(out, &buf, buflen, &buflen, 0);} }
CloseHandle(in);
CloseHandle(out);
ShowMessage(pass);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
while(ReadFile(in, buf, 512, &buflen, 0) && buflen > 0) {
CryptDecrypt(hKeyH, 0, false, 0, buf, &buflen);
WriteFile(out, &buf, buflen, &buflen, 0);
}}
//--------------------------------------------------------------------------- |
(
