API --- 加密与解密 ( 积分: 50 )

W

wsf741

Unregistered / Unconfirmed
GUEST, unregistred user!
以下这些代码是用C写的..我看不懂..哪位高手能帮我改delphi多谢了!!!!
最好写得清楚点...因为我是初学者~~~~~~~~
①文件加密

#include < windows.h >
#include < stdio.h >
#include < stdlib.h >
#include < wincrypt.h >

//确定使用RC2块编码或是RC4流式编码
#ifdef USE_BLOCK_CIPHER
#define ENCRYPT_ALGORITHMCALG_RC2
#define ENCRYPT_BLOCK_SIZE8
#else

#define ENCRYPT_ALGORITHMCALG_RC4
#define ENCRYPT_BLOCK_SIZE1
#endif

void CAPIDecryptFile(PCHAR szSource,
PCHAR szDestination, PCHAR szPassword);

void _cdecl main(int argc, char *argv[])
{
PCHAR szSource= NULL;
PCHAR szDestination = NULL;
PCHAR szPassword= NULL;

// 验证参数个数
if(argc != 3 &amp;&amp;
argc != 4) {
printf(&quot;USAGE: decrypt < source file >
< dest file > [ < password > ]/n&quot;);
exit(1);
}

//读取参数.
szSource = argv[1];
szDestination = argv[2];
if(argc == 4) {
szPassword = argv[3];
}
CAPIDecryptFile(szSource, szDestination, szPassword);
}

/*szSource为要加密的文件名称,szDestination
为加密过的文件名称,szPassword为加密口令*/
void CAPIEncryptFile(PCHAR szSource, PCHAR
szDestination, PCHAR szPassword)
{
FILE *hSource = NULL;
FILE *hDestination = NULL;
INT eof = 0;
HCRYPTPROV hProv = 0;
HCRYPTKEY hKey = 0;
HCRYPTKEY hXchgKey = 0;
HCRYPTHASH hHash = 0;
PBYTE pbKeyBlob = NULL;
DWORD dwKeyBlobLen;
PBYTE pbBuffer = NULL;
DWORD dwBlockLen;
DWORD dwBufferLen;
DWORD dwCount;

hSource = fopen(szSource,&quot;rb&quot;))；// 打开源文件.
hDestination = fopen(szDestination,&quot;wb&quot;) ;
//.打开目标文件
// 连接缺省的CSP
CryptAcquireContext(&amp;hProv, NULL, NULL,
PROV_RSA_FULL, 0))；
if(szPassword == NULL) ｛
//口令为空,使用随机产生的会话密钥加密
// 产生随机会话密钥.
CryptGenKey(hProv, ENCRYPT_ALGORITHM,
CRYPT_EXPORTABLE, &amp;hKey)
// 取得密钥交换对的公共密钥
CryptGetUserKey(hProv, AT_KEYEXCHANGE, &amp;hXchgKey)；
// 计算隐码长度并分配缓冲区
CryptExportKey(hKey, hXchgKey, SIMPLEBLOB, 0,
NULL, &amp;dwKeyBlobLen)；
pbKeyBlob = malloc(dwKeyBlobLen)) == NULL) ;
// 将会话密钥输出至隐码
CryptExportKey(hKey, hXchgKey, SIMPLEBLOB,
0, pbKeyBlob, &amp;dwKeyBlobLen))；
// 释放密钥交换对的句柄
CryptDestroyKey(hXchgKey);
hXchgKey = 0;
// 将隐码长度写入目标文件
fwrite(&amp;dwKeyBlobLen, sizeof(DWORD), 1, hDestination);
//将隐码长度写入目标文件
fwrite(pbKeyBlob, 1, dwKeyBlobLen, hDestination);
} else
{
//口令不为空,使用从口令派生出的密钥加密文件
CryptCreateHash(hProv, CALG_MD5, 0, 0, &amp;hHash)；
// 建立散列表
CryptHashData(hHash, szPassword, strlen(szPassword), 0)；
//散列口令
// 从散列表中派生密钥
CryptDeriveKey(hProv, ENCRYPT_ALGORITHM, hHash, 0, &amp;hKey)；
// 删除散列表
CryptDestroyHash(hHash);
hHash = 0;
}

//计算一次加密的数据字节数,必须为ENCRYPT_BLOCK_SIZE的整数倍
dwBlockLen = 1000 - 1000 % ENCRYPT_BLOCK_SIZE;
//如果使用块编码,则需要额外空间
if(ENCRYPT_BLOCK_SIZE > 1) {
dwBufferLen = dwBlockLen + ENCRYPT_BLOCK_SIZE;
} else
{
dwBufferLen = dwBlockLen;
}
//分配缓冲区
pbBuffer = malloc(dwBufferLen)；
//加密源文件并写入目标文件
do {
// 从源文件中读出dwBlockLen个字节
dwCount = fread(pbBuffer, 1, dwBlockLen, hSource);
eof = feof(hSource);
//加密数据
CryptEncrypt(hKey, 0, eof, 0, pbBuffer,
&amp;dwCount, dwBufferLen)；
// 将加密过的数据写入目标文件
fwrite(pbBuffer, 1, dwCount, hDestination);
} while(!feof(hSource));
printf(&quot;OK/n&quot;);
……//关闭文件、释放内存
}

②文件解密

void CAPIDecryptFile(PCHAR szSource, PCHAR
szDestination, PCHAR szPassword)
{
……//变量声明、文件操作同文件加密程序

CryptAcquireContext(&amp;hProv, NULL, NULL, PROV_RSA_FULL, 0);
if(szPassword == NULL) {
// 口令为空,使用存储在加密文件中的会话密钥解密
// 读隐码的长度并分配内存
fread(&amp;dwKeyBlobLen, sizeof(DWORD), 1, hSource);
pbKeyBlob = malloc(dwKeyBlobLen)) == NULL)；
// 从源文件中读隐码.
fread(pbKeyBlob, 1, dwKeyBlobLen, hSource);
// 将隐码输入CSP
CryptImportKey(hProv, pbKeyBlob,
dwKeyBlobLen, 0, 0, &amp;hKey)；
} else
{
// 口令不为空,使用从口令派生出的密钥解密文件
CryptCreateHash(hProv, CALG_MD5, 0, 0, &amp;hHash)；
CryptHashData(hHash, szPassword, strlen(szPassword), 0)；
CryptDeriveKey(hProv, ENCRYPT_ALGORITHM,
hHash, 0, &amp;hKey)；
CryptDestroyHash(hHash);
hHash = 0;
}

dwBlockLen = 1000 - 1000 % ENCRYPT_BLOCK_SIZE;
if(ENCRYPT_BLOCK_SIZE > 1) {
dwBufferLen = dwBlockLen + ENCRYPT_BLOCK_SIZE;
} else
{
dwBufferLen = dwBlockLen;
}
pbBuffer = malloc(dwBufferLen)；

//解密源文件并写入目标文件
do {
dwCount = fread(pbBuffer, 1, dwBlockLen, hSource);
eof = feof(hSource);
// 解密数据
CryptDecrypt(hKey, 0, eof, 0, pbBuffer, &amp;dwCount)；
// 将解密过的数据写入目标文件
fwrite(pbBuffer, 1, dwCount, hDestination);
} while(!feof(hSource));
printf(&quot;OK/n&quot;);
……//关闭文件、释放内存
}
 
W

wsf741

Unregistered / Unconfirmed
GUEST, unregistred user!
以下这些代码是用C写的..我看不懂..哪位高手能帮我改delphi多谢了!!!!
最好写得清楚点...因为我是初学者~~~~~~~~
①文件加密

#include < windows.h >
#include < stdio.h >
#include < stdlib.h >
#include < wincrypt.h >

//确定使用RC2块编码或是RC4流式编码
#ifdef USE_BLOCK_CIPHER
#define ENCRYPT_ALGORITHMCALG_RC2
#define ENCRYPT_BLOCK_SIZE8
#else

#define ENCRYPT_ALGORITHMCALG_RC4
#define ENCRYPT_BLOCK_SIZE1
#endif

void CAPIDecryptFile(PCHAR szSource,
PCHAR szDestination, PCHAR szPassword);

void _cdecl main(int argc, char *argv[])
{
PCHAR szSource= NULL;
PCHAR szDestination = NULL;
PCHAR szPassword= NULL;

// 验证参数个数
if(argc != 3 &amp;&amp;
argc != 4) {
printf(&quot;USAGE: decrypt < source file >
< dest file > [ < password > ]/n&quot;);
exit(1);
}

//读取参数.
szSource = argv[1];
szDestination = argv[2];
if(argc == 4) {
szPassword = argv[3];
}
CAPIDecryptFile(szSource, szDestination, szPassword);
}

/*szSource为要加密的文件名称,szDestination
为加密过的文件名称,szPassword为加密口令*/
void CAPIEncryptFile(PCHAR szSource, PCHAR
szDestination, PCHAR szPassword)
{
FILE *hSource = NULL;
FILE *hDestination = NULL;
INT eof = 0;
HCRYPTPROV hProv = 0;
HCRYPTKEY hKey = 0;
HCRYPTKEY hXchgKey = 0;
HCRYPTHASH hHash = 0;
PBYTE pbKeyBlob = NULL;
DWORD dwKeyBlobLen;
PBYTE pbBuffer = NULL;
DWORD dwBlockLen;
DWORD dwBufferLen;
DWORD dwCount;

hSource = fopen(szSource,&quot;rb&quot;))；// 打开源文件.
hDestination = fopen(szDestination,&quot;wb&quot;) ;
//.打开目标文件
// 连接缺省的CSP
CryptAcquireContext(&amp;hProv, NULL, NULL,
PROV_RSA_FULL, 0))；
if(szPassword == NULL) ｛
//口令为空,使用随机产生的会话密钥加密
// 产生随机会话密钥.
CryptGenKey(hProv, ENCRYPT_ALGORITHM,
CRYPT_EXPORTABLE, &amp;hKey)
// 取得密钥交换对的公共密钥
CryptGetUserKey(hProv, AT_KEYEXCHANGE, &amp;hXchgKey)；
// 计算隐码长度并分配缓冲区
CryptExportKey(hKey, hXchgKey, SIMPLEBLOB, 0,
NULL, &amp;dwKeyBlobLen)；
pbKeyBlob = malloc(dwKeyBlobLen)) == NULL) ;
// 将会话密钥输出至隐码
CryptExportKey(hKey, hXchgKey, SIMPLEBLOB,
0, pbKeyBlob, &amp;dwKeyBlobLen))；
// 释放密钥交换对的句柄
CryptDestroyKey(hXchgKey);
hXchgKey = 0;
// 将隐码长度写入目标文件
fwrite(&amp;dwKeyBlobLen, sizeof(DWORD), 1, hDestination);
//将隐码长度写入目标文件
fwrite(pbKeyBlob, 1, dwKeyBlobLen, hDestination);
} else
{
//口令不为空,使用从口令派生出的密钥加密文件
CryptCreateHash(hProv, CALG_MD5, 0, 0, &amp;hHash)；
// 建立散列表
CryptHashData(hHash, szPassword, strlen(szPassword), 0)；
//散列口令
// 从散列表中派生密钥
CryptDeriveKey(hProv, ENCRYPT_ALGORITHM, hHash, 0, &amp;hKey)；
// 删除散列表
CryptDestroyHash(hHash);
hHash = 0;
}

//计算一次加密的数据字节数,必须为ENCRYPT_BLOCK_SIZE的整数倍
dwBlockLen = 1000 - 1000 % ENCRYPT_BLOCK_SIZE;
//如果使用块编码,则需要额外空间
if(ENCRYPT_BLOCK_SIZE > 1) {
dwBufferLen = dwBlockLen + ENCRYPT_BLOCK_SIZE;
} else
{
dwBufferLen = dwBlockLen;
}
//分配缓冲区
pbBuffer = malloc(dwBufferLen)；
//加密源文件并写入目标文件
do {
// 从源文件中读出dwBlockLen个字节
dwCount = fread(pbBuffer, 1, dwBlockLen, hSource);
eof = feof(hSource);
//加密数据
CryptEncrypt(hKey, 0, eof, 0, pbBuffer,
&amp;dwCount, dwBufferLen)；
// 将加密过的数据写入目标文件
fwrite(pbBuffer, 1, dwCount, hDestination);
} while(!feof(hSource));
printf(&quot;OK/n&quot;);
……//关闭文件、释放内存
}

②文件解密

void CAPIDecryptFile(PCHAR szSource, PCHAR
szDestination, PCHAR szPassword)
{
……//变量声明、文件操作同文件加密程序

CryptAcquireContext(&amp;hProv, NULL, NULL, PROV_RSA_FULL, 0);
if(szPassword == NULL) {
// 口令为空,使用存储在加密文件中的会话密钥解密
// 读隐码的长度并分配内存
fread(&amp;dwKeyBlobLen, sizeof(DWORD), 1, hSource);
pbKeyBlob = malloc(dwKeyBlobLen)) == NULL)；
// 从源文件中读隐码.
fread(pbKeyBlob, 1, dwKeyBlobLen, hSource);
// 将隐码输入CSP
CryptImportKey(hProv, pbKeyBlob,
dwKeyBlobLen, 0, 0, &amp;hKey)；
} else
{
// 口令不为空,使用从口令派生出的密钥解密文件
CryptCreateHash(hProv, CALG_MD5, 0, 0, &amp;hHash)；
CryptHashData(hHash, szPassword, strlen(szPassword), 0)；
CryptDeriveKey(hProv, ENCRYPT_ALGORITHM,
hHash, 0, &amp;hKey)；
CryptDestroyHash(hHash);
hHash = 0;
}

dwBlockLen = 1000 - 1000 % ENCRYPT_BLOCK_SIZE;
if(ENCRYPT_BLOCK_SIZE > 1) {
dwBufferLen = dwBlockLen + ENCRYPT_BLOCK_SIZE;
} else
{
dwBufferLen = dwBlockLen;
}
pbBuffer = malloc(dwBufferLen)；

//解密源文件并写入目标文件
do {
dwCount = fread(pbBuffer, 1, dwBlockLen, hSource);
eof = feof(hSource);
// 解密数据
CryptDecrypt(hKey, 0, eof, 0, pbBuffer, &amp;dwCount)；
// 将解密过的数据写入目标文件
fwrite(pbBuffer, 1, dwCount, hDestination);
} while(!feof(hSource));
printf(&quot;OK/n&quot;);
……//关闭文件、释放内存
}
 
雪

雪狐狸

Unregistered / Unconfirmed
GUEST, unregistred user!
我来看帖了，但我也不太懂C
你可以直接说出来你想做什么，或想达到如何效果
让富翁们帮你出出主意啊
不用非得照C的扒...
你的另一个问题参看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3161731
 
W

wsf741

Unregistered / Unconfirmed
GUEST, unregistred user!
我就是想用API 加密解密
 
W

wsf741

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么没有人帮我译一下呢?
你们不会也不懂C ?????????????
还是说分少呀?!!!!!!!!!
 
E

eGust

Unregistered / Unconfirmed
GUEST, unregistred user!
直接编译，链接.obj，或者做成dll，再用delphi调用
 
C

chenybin

Unregistered / Unconfirmed
GUEST, unregistred user!
不光是翻译这个代码，还需要翻译#include < wincrypt.h >里面的东西
所以还是按楼上的说法，连接DLL或者obj
连接obj可以用{$L xxxxx.OBJ}的方式，和DLL差别不大
 
Z

zhoen889

Unregistered / Unconfirmed
GUEST, unregistred user!
楼主学过数据加密吗？
如果没有学过,那估计其中的东西要说好多的.
如果学过的话,那可以不讨论具体的加密过程,而只说c中文件的操作过程.
 
您必须登录或注册才可回复。

Similar threads

I
EXE加密
回复
0
查看
666
import
I
P
加密狗与pdf文件加密问题 ( 积分: 50 )
回复
3
查看
361
plalzh
P
Y
文件加密，用异或实现 ( 积分: 50 )
回复
3
查看
328
YZY1984SN
Y
L
请高手，将这个ASP代码翻译成PASCAL代码，或者写一个ASP和PASCAL产生结果相同的DES加解密代码。在线等，特急 300分！ ( 积分: 300 )
回复
3
查看
516
linchhero
L
Y
￥￥￥￥￥￥￥￥高分求写一个加密解密算法。￥￥￥￥￥￥￥￥￥ ( 积分: 200 )
回复
0
查看
361
yjtjhyygy
Y
顶部