关于微软CryptoAPI用PKI加解密的问题 (200分)

devil-li · 2002-05-25

我用微软CryptoAPI用PKI加解密，产生两个问题： 1。用公钥加密的数据，公钥也可以解密。 2。只能够加密大约53个字符的数据，超过长度CryptEncrypt会出错。CryptEncrypt到底能不能实现PKI加密呀？ 请教大家是什么原因。下面是我的源代码： procedure TForm1.Button1Click(Sender: TObject); begin   Str1 := Memo1.Text;   Str2 := PvtSignature.Encrypt(Str1, LoadPublicKey);//加密   Memo2.Text := Str2; end; procedure TForm1.Button2Click(Sender: TObject); begin   Str1 := PvtSignature.Decrypt(Str2, LoadPrivateKey);//解密   Memo1.Text := Str1;   end; procedure TForm1.Button3Click(Sender: TObject); var   KeyPair: TKeyPair; begin   KeyPair := PvtSignature.GetGenKey(PVT_KEYEXCHANGE);//产生随机密钥对   SavePrivateKey(KeyPair.PrivateKey);   SavePublicKey(KeyPair.PublicKey); end; function TPvtSignature.Decrypt(Data, Key: string): string; var   hProv: HCRYPTPROV;   hKey: HCRYPTKEY;   Buffer, temp: string;   Index: Integer;   dwCount: DWORD;   Endof: Boolean;   BufferLen: DWORD;   procedure Init;   begin     hProv := 0;     hKey := 0;   end;   procedure Clear;   begin     if Boolean(hKey) then       CryptDestroyKey(hKey);     if Boolean(hProv) then       CryptReleaseContext(hProv, 0);   end; begin   Init;   if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then   begin     Clear;     raise Exception.Create('Error during CryptAcquireContext');   end;   if not CryptImportKey(hProv, PByte(PChar(Key)), Length(Key), 0, 0, @hKey) then   begin     Clear;     raise Exception.Create('Error during CryptImportKey');   end;   Index := 1;   Result := '';   BufferLen := BlockLen + 8;   repeat     Buffer := Copy(Data, Index, BlockLen);     dwCount := Length(Buffer);     Inc(Index, dwCount);     Endof := Index > Length(Data);     SetLength(Buffer, BufferLen);     if not CryptDecrypt(hKey, 0, Endof, 0, PByte(PChar(Buffer)), @dwCount) then     begin       Clear;       raise Exception.Create('Error during CryptDecrypt');     end;     SetLength(temp, dwCount);     Move(PChar(Buffer)^, Pointer(temp)^, dwCount);     Result := Result + temp;   until Endof;   Clear; end; function TPvtSignature.Encrypt(Data, Key: string): string; var   hProv: HCRYPTPROV;   hKey: HCRYPTKEY;   Buffer, temp: string;   Index: Integer;   dwCount: DWORD;   Endof: Boolean;   BufferLen: DWORD;   procedure Init;   begin     hProv := 0;     hKey := 0;     Endof := False;   end;   procedure Clear;   begin     if Boolean(hKey) then       CryptDestroyKey(hKey);     if Boolean(hProv) then       CryptReleaseContext(hProv, 0);   end; begin   Init;   if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then   begin     Clear;     raise Exception.Create('Error during CryptAcquireContext');   end;   if not CryptImportKey(hProv, PByte(PChar(Key)), Length(Key), 0, 0, @hKey) then   begin     Clear;     raise Exception.Create('Error during CryptImportKey');   end;   Index := 1;   Result := '';   BufferLen := BlockLen + 8;   repeat     Buffer := Copy(Data, Index, BlockLen);     dwCount := Length(Buffer);     Inc(Index, dwCount);     Endof := Index > Length(Data);     SetLength(Buffer, BufferLen);     if not CryptEncrypt(hKey, 0, Endof, 0, PByte(PChar(Buffer)), @dwCount, BufferLen) then     begin       Clear;       raise Exception.Create('Error during CryptEncrypt');     end;     SetLength(temp, dwCount);     Move(PChar(Buffer)^, Pointer(temp)^, dwCount);     Result := Result + temp;   until Endof;   Clear; end; function TPvtSignature.GetGenKey(KeyType: TKeyPairType): TKeyPair; var   hProv: HCRYPTPROV;   hKey: HCRYPTKEY;   pbPublicKeyBlob: PByte;   pbPrivateKeyBlob: PByte;   dwPublicBlobLen: DWORD;   dwPrivateBlobLen: DWORD;   VKeyType: Cardinal;   procedure Init;   begin     hProv := 0;     hKey := 0;     pbPublicKeyBlob := nil;     pbPrivateKeyBlob := nil;     dwPublicBlobLen := 0;     dwPrivateBlobLen := 0;   end;   procedure Clear;   begin     if dwPrivateBlobLen <> 0 then     begin       FillChar(pbPrivateKeyBlob^, dwPrivateBlobLen, 0);       FreeMem(pbPrivateKeyBlob);       FillChar(dwPrivateBlobLen, Sizeof(dwPrivateBlobLen), 0);     end;     if dwPublicBlobLen <> 0 then     begin       FillChar(pbPublicKeyBlob^, dwPublicBlobLen, 0);       FreeMem(pbPublicKeyBlob);       FillChar(dwPublicBlobLen, Sizeof(dwPublicBlobLen), 0);     end;     if Boolean(hKey) then       CryptDestroyKey(hKey);     if Boolean(hProv) then       CryptReleaseContext(hProv, 0);   end; begin   Init;   if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then //取得CSP   begin     Clear;     raise Exception.Create('CryptAcquireContext Failed!');   end;   if KeyType = PVT_SIGNATURE then     VKeyType := AT_SIGNATURE   else     VKeyType := AT_KEYEXCHANGE;   if not CryptGenKey(hProv, VKeyType, CRYPT_EXPORTABLE, @hKey) then   begin     Clear;     raise Exception.Create('CryptGenKey Failed!');   end; //===============================================================================   if not CryptExportKey(hKey, 0, PUBLICKEYBLOB, 0, nil,     @dwPublicBlobLen) then //得到从密钥盒中导出公共密钥所需空间大小   begin     Clear;     raise Exception.Create('CryptExportKey Failed!');   end;   try     GetMem(pbPublicKeyBlob, dwPublicBlobLen);   except     on EOutOfMemory do     begin       Clear;       raise Exception.Create('OutOfMemory!');     end;   end;   if not CryptExportKey(hKey, 0, PUBLICKEYBLOB, 0, pbPublicKeyBlob,     @dwPublicBlobLen) then //从密钥盒中导出公共密钥   begin     Clear;     raise Exception.Create('CryptExportKey Failed!');   end; //===============================================================================   if not CryptExportKey(hKey, 0, PRIVATEKEYBLOB, 0, nil,     @dwPrivateBlobLen) then //得到从密钥盒中导出私有密钥所需空间大小   begin     Clear;     raise Exception.Create('CryptExportKey Failed!');   end;   try     GetMem(pbPrivateKeyBlob, dwPrivateBlobLen);   except     on EOutOfMemory do     begin       Clear;       raise Exception.Create('OutOfMemory!');     end;   end;   if not CryptExportKey(hKey, 0, PRIVATEKEYBLOB, 0, pbPrivateKeyBlob,     @dwPrivateBlobLen) then //从密钥盒中导出私有密钥   begin     Clear;     raise Exception.Create('CryptExportKey Failed!');   end; //===============================================================================   SetLength(Result.PublicKey, dwPublicBlobLen);   SetLength(Result.PrivateKey, dwPrivateBlobLen);   Move(pbPublicKeyBlob^, Pointer(Result.PublicKey)^, dwPublicBlobLen);   Move(pbPrivateKeyBlob^, Pointer(Result.PrivateKey)^, dwPrivateBlobLen);   Clear; end;

bingjian · 2002-05-25

以下是我找的一组C语言的代码，自己看看， ---- 下面以两个文件加密与解密的C程序片断为例，演示一下CryptoAPI的强大功能。这两个程序均为Win32控制台应用，程序省略了出错处理，实际运行时请加入。 ---- ①文件加密 #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 && argc != 4) { printf("USAGE: decrypt < source file >  < dest file > [ < password > ]/n"); 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,"rb"))；// 打开源文件. hDestination = fopen(szDestination,"wb") ; //.打开目标文件    // 连接缺省的CSP CryptAcquireContext(&hProv, NULL, NULL, PROV_RSA_FULL, 0))； if(szPassword == NULL) ｛ //口令为空，使用随机产生的会话密钥加密 // 产生随机会话密钥. CryptGenKey(hProv, ENCRYPT_ALGORITHM, CRYPT_EXPORTABLE, &hKey) // 取得密钥交换对的公共密钥 CryptGetUserKey(hProv, AT_KEYEXCHANGE, &hXchgKey)； // 计算隐码长度并分配缓冲区 CryptExportKey(hKey, hXchgKey, SIMPLEBLOB, 0, NULL, &dwKeyBlobLen)； pbKeyBlob = malloc(dwKeyBlobLen)) == NULL) ; // 将会话密钥输出至隐码 CryptExportKey(hKey, hXchgKey, SIMPLEBLOB, 0, pbKeyBlob, &dwKeyBlobLen))； // 释放密钥交换对的句柄 CryptDestroyKey(hXchgKey); hXchgKey = 0; // 将隐码长度写入目标文件 fwrite(&dwKeyBlobLen, sizeof(DWORD), 1, hDestination); //将隐码长度写入目标文件 fwrite(pbKeyBlob, 1, dwKeyBlobLen, hDestination); } else { //口令不为空，使用从口令派生出的密钥加密文件 CryptCreateHash(hProv, CALG_MD5, 0, 0, &hHash)； // 建立散列表 CryptHashData(hHash, szPassword, strlen(szPassword), 0)；  //散列口令 // 从散列表中派生密钥 CryptDeriveKey(hProv, ENCRYPT_ALGORITHM, hHash, 0, &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, &dwCount, dwBufferLen)； // 将加密过的数据写入目标文件 fwrite(pbBuffer, 1, dwCount, hDestination); } while(!feof(hSource)); printf("OK/n"); ……//关闭文件、释放内存    } ②文件解密 void CAPIDecryptFile(PCHAR szSource, PCHAR szDestination, PCHAR szPassword) { ……//变量声明、文件操作同文件加密程序 CryptAcquireContext(&hProv, NULL, NULL, PROV_RSA_FULL, 0);   if(szPassword == NULL) { // 口令为空，使用存储在加密文件中的会话密钥解密 // 读隐码的长度并分配内存 fread(&dwKeyBlobLen, sizeof(DWORD), 1, hSource); pbKeyBlob = malloc(dwKeyBlobLen)) == NULL)； // 从源文件中读隐码. fread(pbKeyBlob, 1, dwKeyBlobLen, hSource); // 将隐码输入CSP CryptImportKey(hProv, pbKeyBlob, dwKeyBlobLen, 0, 0, &hKey)； } else { // 口令不为空，使用从口令派生出的密钥解密文件 CryptCreateHash(hProv, CALG_MD5, 0, 0, &hHash)； CryptHashData(hHash, szPassword, strlen(szPassword), 0)； CryptDeriveKey(hProv, ENCRYPT_ALGORITHM, hHash, 0, &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, &dwCount)； // 将解密过的数据写入目标文件 fwrite(pbBuffer, 1, dwCount, hDestination); } while(!feof(hSource)); printf("OK/n"); ……//关闭文件、释放内存 } ---- 以上代码在Windows NT4.0、Visual C++6.0环境中编译通过。

devil-li · 2002-05-25

你的这段代码采用的对称密钥加密。MSDN上都有这段代码。 但是我要采用的是公开密钥加密（用公钥加密，私钥解密）。 请问如何实现。

devil-li · 2002-05-25

我的算法是： 调用CryptGenKey产生随机公/私密钥对；（对应Button3Click） 调用Encrypt对数据用公钥加密。（对应Button1Click） 调用Decrypt对数据用私钥解密。（对应Button2Click）

devil-li · 2002-05-29

我自己搞定了。 1。 CryptoAPI对公开密钥加密算法的支持需要Windows 2000 或以上版本。 Provider 需要MS_ENHANCED_PROV。 调用CryptAcquireContext(@hProv, nil, MS_ENHANCED_PROV, PROV_RSA_FULL, 0) 就支持公开密钥加密算法了。 2。好像是有这样的限制，只好用循环搞定了。 能不能收回积分呀？

flanker · 2003-06-06

to devil-li： 我正在研究 PKI的算法，我要实现 3DES对称加密和RSA非对称加密 能不能把你修改过可用的代码发一份给我，flanker@fj163.com 非常感谢，要分的话我就给分！ 关于pki 我们可以讨论一下

WorldCreater · 2003-06-06

导入这些函数的头文件delphi7里有吗？ 你自个导入的？

devil_li · 2003-06-07

flanker:你的email有问题，发不过去 WorldCreater：头文件Delphi没有，但是网上很多地方有下载

pwxwabcd · 2003-06-09

devil_li,请给我发一个pwxwabcd@371.com

pwxwabcd · 2003-06-11

请提供CryptoAPI的详细例子

devil_li · 2003-06-11

既然大家需要，我就给大家帖几段吧： //加密 class function TPvtCAPICrypto.Encrypt(const Data, Key: string): string; var   hProv: HCRYPTPROV;   hKey: HCRYPTKEY;   Buffer, temp: string;   Index: Integer;   dwCount: DWORD;   Endof: Boolean;   BufferLen: DWORD;   procedure Init;   begin     hProv := 0;     hKey := 0;     Endof := False;   end;   procedure Clear;   begin     if Boolean(hKey) then       CryptDestroyKey(hKey);     if Boolean(hProv) then       CryptReleaseContext(hProv, 0);   end;   function Encrypt53(Data53: string): string;   begin     Init;     CryptAcquireContextEx(hProv);     if not CryptImportKey(hProv, PByte(PChar(Key)), Length(Key), 0, 0, @hKey) then     begin       Clear;       raise Exception.Create('Error during CryptImportKey');     end;     Index := 1;     Result := '';     BufferLen := BlockLen + 8;     repeat       Buffer := Copy(Data53, Index, BlockLen);       dwCount := Length(Buffer);       Inc(Index, dwCount);       Endof := Index > Length(Data53);       SetLength(Buffer, BufferLen);       if not CryptEncrypt(hKey, 0, Endof, 0, PByte(PChar(Buffer)), @dwCount, BufferLen) then       begin         Clear;         raise Exception.Create('Error during CryptEncrypt');       end;       SetLength(temp, dwCount);       Move(PChar(Buffer)^, Pointer(temp)^, dwCount);       Result := Result + temp;     until Endof;     Clear;   end; var   I: Integer;   SegStr: string; begin   Result := '';   if Ord(Key[1]) = 1 then //对称密钥加密     Result := Encrypt53(Data)   else //                   公开密钥加密   begin     for I := 0 to Length(Data) div EncryptLen + 1 do     begin       SegStr := Copy(Data, I * EncryptLen + 1, EncryptLen);       SegStr := Encrypt53(SegStr);       Result := Result + Chr(Length(SegStr)) + SegStr;     end;   end; end; //解密 class function TPvtCAPICrypto.Decrypt(const Data, Key: string): string; var   hProv: HCRYPTPROV;   hKey: HCRYPTKEY;   Buffer, temp: string;   Index: Integer;   dwCount: DWORD;   Endof: Boolean;   BufferLen: DWORD;   procedure Init;   begin     hProv := 0;     hKey := 0;   end;   procedure Clear;   begin     if Boolean(hKey) then       CryptDestroyKey(hKey);     if Boolean(hProv) then       CryptReleaseContext(hProv, 0);   end;   function Decrypt53(Data53: string): string;   begin     Init;     CryptAcquireContextEx(hProv);     if not CryptImportKey(hProv, PByte(PChar(Key)), Length(Key), 0, 0, @hKey) then     begin       Clear;       raise Exception.Create('Error during CryptImportKey');     end;     Index := 1;     Result := '';     BufferLen := BlockLen + 8;     repeat       Buffer := Copy(Data53, Index, BlockLen);       dwCount := Length(Buffer);       Inc(Index, dwCount);       Endof := Index > Length(Data53);       SetLength(Buffer, BufferLen);       if not CryptDecrypt(hKey, 0, Endof, 0, PByte(PChar(Buffer)), @dwCount) then       begin         Clear;         raise Exception.Create('Error during CryptDecrypt');       end;       SetLength(temp, dwCount);       Move(PChar(Buffer)^, Pointer(temp)^, dwCount);       Result := Result + temp;     until Endof;     Clear;   end; var   SegPos, SegLen: Integer;   SegStr: string; begin   Result := '';   if Ord(Key[1]) = 1 then //对称密钥解密     Result := Decrypt53(Data)   else //                   公开密钥解密   begin     SegPos := 1;     while SegPos < Length(Data) do     begin       SegLen := Ord(Data[SegPos]);       SegStr := Copy(Data, SegPos + 1, SegLen);       Result := Result + Decrypt53(SegStr);       Inc(SegPos, SegLen + 1);     end;   end; end;

devil_li · 2003-06-11

至于头文件，由于太大了，2.0有7800多行，就不贴了，大家自己去网上下载

Anubis99 · 2003-06-11

微软CryptoAPI好像对密钥的长度和加密对象都有长度限制的，你最好查一下Windows SDK,那里面有非常详细的介绍。

pwxwabcd · 2003-06-11

请问devil_li,程序中BlockLen怎样取值.

pwxwabcd · 2003-06-17

我试了，用win2000也会出现公钥加密公钥也能解密的情况。

jimiking · 2003-07-19

to  devil_li ：  我刚刚开始学用CryptoAPI，如果仅仅实现对文件的加密的话不论是对称或者是不对称，在delphi 中如何调用CryptEncryp 和CryptDecrypt  呢，是否就是你所说的在网上下载的头文件Wcrypt2.pas?能否把它导入到delphi6中成为一个单元，是用new component 加入吗？在你的程序中TPvtSignature是否是你自己定义的类， 我在一个考试系统中对客户端的考生成绩文件进行加密，但是操作系统是98  是否就不能实现非对称的加密 另外你的程序能否让我参考一下  谢谢  jimiking@163.com 最后一段程序是自己写的吗  Decrypt53是什么意思

devil-li · 2003-07-21

pwxwabcd:BlockLen我取的1000 我又试了一下，果然用win2000也会出现公钥加密公钥也能解密的情况。明明以前可以的。。郁闷，盼望高手解答。 jimiking:Wcrypt2.pas应该是这个单元了。只需要把它加到工程里面就行了。TPvtSignature是我自己定义的类，98好像是不能实现非对称加密。Decrypt53是一次加密53个字节。源于我提的问题：只能够加密大约53个字符的数据，超过长度CryptEncrypt会出错。至今还未解决此问题，因此自己循环解决。

jimiking · 2003-07-23

能否解释一下为什么  if Ord(Key[1]) = 1   则是  对称密钥解密 另外EncryptLen 的取值和意义是什么？～如果我借用你的程序实现对称加密  就不需要调用GetGenKey 了吧？· 这时我应该如何获得加密和解密返回的string  呢

dreamstill · 2003-07-23

很有难度

devil-li · 2003-07-24

1。能否解释一下为什么  if Ord(Key[1]) = 1   则是  对称密钥解密： 》》对称密钥加密的密钥第一个字节是1(密钥不是任意的字符串，是要满足一定格式的，要得到满足条件的字符串，参见我以下的过程) 2。另外EncryptLen 的取值和意义是什么？ 》》EncryptLen = 53; //公私钥加密的最大字节长度 3.如果我借用你的程序实现对称加密  就不需要调用GetGenKey 了吧？ 》》你加密总是需要一个密钥的，但是在我的函数里面 class function TPvtCAPICrypto.Encrypt(const Data, Key: string): string; 中的key不是任意格式的字符串都可以的，如果想从一个普通字符串得到加密所需要的key，可以调用我的这个过程： class function TPvtCAPICrypto.MakeKeyFromStr(const AStr: string): string; var   hProv: HCRYPTPROV;   hHash: HCRYPTHASH;   hKey, hXchgKey: HCRYPTKEY;   pbKeyBlob: PByte;   dwBlobLen: DWORD;   procedure Init;   begin     hProv := 0;     hHash := 0;     hKey := 0;     pbKeyBlob := nil;     dwBlobLen := 0;   end;   procedure Clear;   begin     if (dwBlobLen <> 0) and (pbKeyBlob <> nil) then     begin       FillChar(pbKeyBlob^, dwBlobLen, 0);       FreeMem(pbKeyBlob);       FillChar(dwBlobLen, Sizeof(dwBlobLen), 0);     end;     if Boolean(hKey) then       CryptDestroyKey(hKey);     if Boolean(hHash) then       CryptDestroyHash(hHash);     if Boolean(hProv) then       CryptReleaseContext(hProv, 0);   end; begin   Init;   CryptAcquireContextEx(hProv);   if not CryptCreateHash(hProv, CALG_MD5, 0, 0, @hHash) then //创建哈西对象   begin     Clear;     raise Exception.Create('CryptCreateHash Failed!');   end;   if not CryptHashData(hHash, PByte(PChar(AStr)), Length(AStr), 0) then //创建字符串的哈西值   begin     Clear;     raise Exception.Create('CryptHashData Failed!');   end;   if not CryptDeriveKey(hProv, CALG_RC4, hHash, CRYPT_EXPORTABLE, @hKey) then //从hash对象中分离密钥   begin     Clear;     raise Exception.Create('CryptDeriveKey Failed!');   end;   //==============================导出密钥======================================   if not CryptGetUserKey(hProv, AT_KEYEXCHANGE, @hXchgKey) then   begin     Clear;     raise Exception.Create('CryptGetUserKey Failed!');   end;   if not CryptExportKey(hKey, hXchgKey, SIMPLEBLOB, 0, nil,     @dwBlobLen) then //得到从密钥盒中导出私有密钥所需空间大小   begin     Clear;     raise Exception.Create('CryptExportKey Failed!');   end;   try     GetMem(pbKeyBlob, dwBlobLen);   except     on EOutOfMemory do     begin       Clear;       raise Exception.Create('OutOfMemory!');     end;   end;   if not CryptExportKey(hKey, hXchgKey, SIMPLEBLOB, 0, pbKeyBlob,     @dwBlobLen) then //从密钥盒中导出私有密钥   begin     Clear;     raise Exception.Create('CryptExportKey Failed!');   end;   SetLength(Result, dwBlobLen);   Move(pbKeyBlob^, Pointer(Result)^, dwBlobLen);   Clear; end; 4.这时我应该如何获得加密和解密返回的string  呢   》》class function TPvtCAPICrypto.Encrypt(const Data, Key: string): string; 》》class function TPvtCAPICrypto.Decrypt(const Data, Key: string): string; 》》的返回值就是加密和解密返回的string

关于微软CryptoAPI用PKI加解密的问题 (200分)

devil-li

Unregistered / Unconfirmed

bingjian

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

flanker

Unregistered / Unconfirmed

WorldCreater

Unregistered / Unconfirmed

devil_li

Unregistered / Unconfirmed

pwxwabcd

Unregistered / Unconfirmed

pwxwabcd

Unregistered / Unconfirmed

devil_li

Unregistered / Unconfirmed

devil_li

Unregistered / Unconfirmed

Anubis99

Unregistered / Unconfirmed

pwxwabcd

Unregistered / Unconfirmed

pwxwabcd

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

dreamstill

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

Similar threads