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

jimiking · 2003-07-24

下面是我对crpytoapi加密方法的理解，不知道是否正确。在你的加密解密函数中的key参数只是一个口令，而不是实际完成加密的密匙。如果我想实现对称加密的话，使用CryptDeriveKey 函数即可，返回的是指向密匙的句柄。 下面是我对你的函数的修改，实现了对称加密，好像觉得调用Ecrypt时对key 并没有限制 甚至为空也可以，可能把为空的情况夜作为一个字符串处理，我们可以一起讨论一下 不需要在MakeKeyFromStr过程中使用导出密匙CryptGetUserKey，CryptExportKey 修改如下： Function  TForm1.Encrypt(const Data,Key :string):string; var     hProv : HCRYPTPROV;  //指向csp提供者的句柄     hKey  : HCRYPTKEY ;   //指向密匙的句柄     hHash :HCRYPTHASH;     //指向散列表的句柄，用于创建散列表     Buffer,Temp :string;     Index : integer;     dwCount

WORD;     Endof : Boolean;     BufferLen

WORD; procedure Init ; begin     hProv:=0;     hKey :=0;     hHash:=0;     Endof:=False; end; procedure clear; begin         if boolean(hKey)  then            CryptDestroyKey(hKey); //先销毁指向key的句柄         if boolean(hHash) then            CryptDestroyHash(hHash); //销毁指向散列的句柄         if boolean(hProv) then            CryptReleaseContext(hProv,0); //销毁指向提供者的句柄 end; Function Encrypt53(Data53 :string):string; begin         Init;        if not   CryptAcquireContext(@hProv, nil, nil,PROV_RSA_FULL, 0) then      //连接缺省的csp             begin                windows.MessageBox(0,'Erro during CryptAcquireContext','error..',MB_OK);                clear;                exit;             end;        //Key 为加密口令，用口令派生出的密匙加密        //建立散列表       if not  CryptCreateHash(hProv,CALG_MD5,0,0,@hHash)  then             begin                clear;                raise Exception.Create('Error during CryptCreateHash');             end;         //散列口令       if  not  CryptHashData(hHash,PBYTE(Pchar(Key)),Length(Key),0)  then   //PBYTE(pchar(Key))           begin              windows.MessageBox(0,'Error during CryptHashData','Error..,',MB_OK);              clear;              exit;           end;       //从散列口令中派生出密匙        if not CryptDeriveKey(hProv,CALG_RC2 ,hHash,0,@hKey)  then           begin              windows.MessageBox(0,'Erroe during CryptDeriveKey','Error..',MB_OK);              clear;              exit;           end;        CryptDestroyHash(hHash);        hHash := 0;        Index:=1;        Result:='';        BufferLen:=BlockLen+8;   //使用块编码，则需要额外空间        repeat          Buffer:=Copy(Data53,Index,BlockLen);  //为Buffer赋值          dwCount:=Length(Buffer);  //buffer的长度          Inc(Index,dwCount);   //Index:=Index+dwCount          Endof:=Index>Length(Data53);   //Index是否大于需要加密的数据的长度          SetLength(Buffer,BufferLen);   // 为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);  //为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; 对解密过程做相应的改动即可。

jimiking · 2003-07-24

1.密钥不是任意的字符串，是要满足一定格式的，要得到满足条件的字符串，参见我以下的过程) >>我的key取的是类似与‘11111111111’的数字字符串,那请问字符串要满足的格式是什么 2。在我的程序里 EncryptLen取的是1 3。1。能否解释一下为什么  if Ord(Key[1]) = 1   则是  对称密钥解密： 》》对称密钥加密的密钥第一个字节是1 》》》我还是不是很理解，key[1]是字符串key的第一个字符，ord是获得字符的ascii 码，是否 是说对称加密中密匙的第一个字节ascii码必须是一。 4。按照你的理解  key参数即为加密的密匙，但是我认为key是口令，密匙是根据key由CryptDeriveKey 和CryptGenKey 得到  不知道是不是正确？应该怎样理解，如果你比较清楚的话，能否将原理解释一下 另外是否可以留下你的邮箱进行联系 jimiking@163.com

devil-li · 2003-07-25

1。直接用纯文本字符串是无法加密的：因为需要一个密钥句柄hkey。因此要用纯文本加密必需要将纯文本变成key结构。我之所以用MakeKeyFromStr是考虑了公开密钥加密的情况：公开密钥加密是不可能由你自己指定纯文本字符串的密钥的。如果你只需要对称密钥加密，就用你的方法也可以：CryptDeriveKey以后直接用hkey而不用导出。我只不过是CryptDeriveKey然后导出，Encrypt再导入。结果都是一样的。 2。密钥不是任意的字符串。我指的密钥不是纯文本的密钥，而是hkey的密钥。（就是CryptDeriveKey之后的结果）对称密钥加密的密钥第一个字节是1,这里的密钥也是指的hkey指向的密钥。 3。按照你的理解  key参数即为加密的密匙，但是我认为key是口令，密匙是根据key由CryptDeriveKey和CryptGenKey 得到  不知道是不是正确？ 》》在我的函数中，key参数即为加密的密匙。key就是从CryptDeriveKey和CryptGenKey得到的，因此你的理解和我的意思是一样的。 4。我的纯文本的密钥加密的过程：1.有一个纯文本[red]密码[/red]，通过MakeKeyFromStr得到密码对应的密钥(key)。调用Encrypt,key参数就是MakeKeyFromStr的结果。在Encrypt里面会调用CryptImportKey导入key而得到hkey。然后加密。 5。我的EMail:blacwet@163.com

jimiking · 2003-08-02

你好  ：我的对称加密在2000 下可以通过，为什么到98下总是连接不到CSP 现在我参照你的代码改为对称加密后，在2000环境下可以通过，但是在98下时候，总是连接不到CSP， Function Encrypt53(Data53 :string):string; begin         Init;        if not   CryptAcquireContext(@hProv, nil, nil,PROV_RSA_FULL, 0) then      //连接缺省的csp             begin                windows.MessageBox(0,'Erro during CryptAcquireContext','error..',MB_OK);                clear;                exit;             end; CryptAcquireContext(@hProv, nil, nil,PROV_RSA_FULL, 0)执行会有错误，请你指教。我做的对称加密在2000下通过，到98下调试的时候需要注意些什么问题呢   谢谢

devil-li · 2003-08-05

因为你的98没有container。 你可以这样写： class procedure TPvtCAPICrypto.CryptAcquireContextEx(var hProv: HCRYPTPROV); begin   if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then     if not CryptAcquireContext(@hProv, 'PvtContainer', nil,       PROV_RSA_FULL, CRYPT_NEWKEYSET) then       raise Exception.Create('Error during CryptAcquireContext'); end; 其中'PvtContainer'这个名字是随便起的。

jimiking · 2003-08-05

那之后的调用方法还一样么    PvtContainer参数在后面怎么引用 我后来改为  CryptAcquireContext(@hProv, nil, nil,      PROV_RSA_FULL, CRYPT_NEWKEYSET)  也不行的

devil-li · 2003-08-05

'PvtContainer'这个是Container的名字，一定要指定的。随便什么名字都可以。 以后访问直接用 if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then 所以直接像我那样封装就行了，使用时直接调用CryptAcquireContextEx

jimiking · 2003-08-06

下面是我进行调试时候发现的一些问题，和你讨论一下： 1。不能有两个相同的container 名字。如   if  not CryptAcquireContext(@hProv, 'wer', nil,PROV_RSA_FULL,CRYPT_NEWKEYSET)then    在第一次执行时，跳出Exception处理。当第二次执行时就会执行Exception。 （这是只有这一句的情况） 2.如果有上一句代码的话就必须要有 if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then 即像你上面所写： if not CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) then   //（1）    if not CryptAcquireContext(@hProv, 'PvtContainer', nil,      PROV_RSA_FULL, CRYPT_NEWKEYSET) then                      //（2）      raise Exception.Create('Error during CryptAcquireContext'); end; 当第一次执行时，执行的是（2），而再一次调用Encrypt53时，执行到（1）的时，就执行完毕，这时候CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, 0) 中的第二个参数应理解为缺省值，即是我们刚刚创建的container 的名字'PvtContainer' 不知道我的理解是否正确   谢谢

jimiking · 2003-08-07

另外创建的这个container的名字，有没有存在生命期的问题，即我运行了第一句代码后 是不是在系统里永远的建立了这个container，或者机器重启后  就销毁，再进行建立

devil-li · 2003-08-08

应该是不重装系统就永远存在

jnbutian · 2003-12-10

to devil-li 请把你的程序给我发一份吧，我现在也在做这样一个东西．非常感谢． jnbutian@sohu.com

devil-li · 2003-12-11

对不起，这个是商业程序，不能发给你。通过上面的讨论，所有的关键源代码都有了。你自己研究一下吧

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

jimiking

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

jimiking

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

jnbutian

Unregistered / Unconfirmed

devil-li

Unregistered / Unconfirmed

Similar threads