引言: http://delphi.ktop.com.tw/topic.php?topic_id=29414 以 Windows CryptoAPI 實做 BCB_Delphi 檔案字串加解密 發表人：bruce0211 http://delphi.ktop.com.tw/topic.php?topic_id=46688 【BCB】【問題】字串加密傳送 答題得分者為:RaynorPao http://delphi.ktop.com.tw/topic.php?topic_id=46348 【BCB】【問題】有關CryptoAPI中的加解密方式～～ 答題得分者為:RaynorPao http://delphi.ktop.com.tw/topic.php?topic_id=42038 【BCB】【問題】加密問題... 答題得分者為:RaynorPao http://delphi.ktop.com.tw/topic.php?topic_id=30028 【BCB】【問題】如何為 XML 文件加密 答題得分者為:taishyang http://delphi.ktop.com.tw/topic.php?topic_id=25183 【BCB】【問題】加解密API 答題得分者為:RaynorPao 以上為BCB本園地搜尋所得到結果 請參考 Andy Chang

andychang1690您好： 感謝您的回應，您的指引讓小弟在目前的傳輸加解密上有很大的幫助！ 可是小弟在這裡是希望能將憑證 > **我很想學，但又很不懂，所以一直問蠢問題，希望不要不屑我的問題，嘻嘻嘻**

dean：
http://delphi.ktop.com.tw/topic.php?topic_id=29414
以 Windows CryptoAPI 實做 BCB_Delphi 檔案字串加解密
發表人：bruce0211 
中範例非常清楚簡單
http://delphi.ktop.com.tw/loadfile.php?TOPICID=9364660&CC=209440
下載的檔案CryptSample.zip中
// 字串加密
bool __fastcall TForm1::EnCryptStr(char *SourStr,char *DestStr,char *StrPassword)
// 字串解密
bool __fastcall TForm1::DeCryptStr(char *SourStr,char *DestStr,char *StrPassword)
其中bruce0211聲明導入密碼會影響大小，所以
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  char tmp_buf[65535];
  AnsiString a="123"; // 加密時導入密碼
  EnCryptStr(Memo1->Text.c_str(),tmp_buf,a.c_str());
  Memo2->Text=tmp_buf;    }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  char tmp_buf[65535];
  AnsiString a="123"; // 解密時導入密碼
  DeCryptStr(Memo2->Text.c_str(),tmp_buf,a.c_str());
  Memo3->Text=tmp_buf;
}
好！現在你要引用
序號、姓名、EMAIL、...等)轉成明文顯示在螢幕上！如同你建立一個INI檔
[A]
SN=
NAME=
EMAIL=
你只需要經過上述EnCryptStr()將加密字串存入即可。
如原本SN=1111，NAME=Andy Chang，EMAIL=andychang@3388.com
經過EnCryptStr()成為
SN=5036B4CE，NAME=2069E1868E7E07BCF5CA，EMAIL=0069E186CD550EB3FCED9C7D51E575F2CF80
讀出INI再經過DeCryptStr()解密即可，INI檔的檔名不限一定是.ini
請參考！    

引言: 上面兩位先進似乎有點誤會dean兄想要問的問題了^^; dean兄只是很簡單的想把在csertificate store裡面的 憑證open然後把憑證主旨裡面的東西(X.509 V3格式的 話應該就是最後面的ext部分)show出來而已:) 只是在下不清楚dean兄的憑證是從何處讀取出來? 若是想如同IE那樣有UI介面可以選擇而且還是使用Crypto API 的話就有許多限制(例如:OS限定XP以上,2k不行...) 流程的話: 1.使用CertOpenStore()開啟憑證(簡單的CertOpenSystemStore()也行) 2.使用CertFindCertificateInStore()取出想要的那張憑證 3.使用CertGetXXXXXXX()取出憑證裡面各項資料(有很多查一下就有了:p) 基本上這樣就可以read出憑證裡面的資料. 但是這樣作不僅不方便而且想要用OS內建的UI介面還備 受限制,在下雖然之前也是這樣作,但是現在是想改用CAPICOM 的ActiveX元件來作,流程和做法都簡單許多,只是因為 在下功力不足...在BCB上面把capicom.dll當成type libary import 之後呼叫get_Item()都會發生型態錯誤,暫時卡在那裡了^^; 上面一點點心得供您參考!???

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   HCERTSTORE hCertStore;
   PCCERT_CONTEXT     pCertContext = NULL;
   char pszNameString[256];       if(hCertStore = CertOpenStore(CERT_STORE_PROV_SYSTEM, 0, NULL, CERT_SYSTEM_STORE_CURRENT_USER, L"MY"))
      ShowMessage("The MY store is open.\n");
   else{
      ShowMessage("The MY store can't be open.\n");
      return;
   }
   //"081902"是要開啟憑證的CommonName
   pCertContext = CertFindCertificateInStore(hCertStore, PKCS_7_ASN_ENCODING | X509_ASN_ENCODING, 0, CERT_FIND_SUBJECT_STR, L"081902", pCertContext);
   if (!pCertContext)
      ShowMessage("Can't get Certificate context!");
   if(CertGetNameString(pCertContext,CERT_NAME_SIMPLE_DISPLAY_TYPE,0,NULL,pszNameString,128))
      ShowMessage(AnsiString(pszNameString)); //Show CN
   else
      ShowMessage("CertGetName failed.");
   if(CertGetNameString(pCertContext,CERT_NAME_EMAIL_TYPE,0,NULL,pszNameString,128))
      ShowMessage(AnsiString(pszNameString)); //Show e-amil
   else
      ShowMessage("CertGetName failed.");       CertFreeCertificateContext(pCertContext);
   CertCloseStore(hCertStore,0);
}
 

if(hFileStore = CertOpenStore(
        CERT_STORE_PROV_FILE,     // Load certificates from a file
        0,                        // Encoding type not used
        NULL,                     // Use the default HCRYPTPROV
        CERT_STORE_READONLY_FLAG, // Read-only store
        hFile                     // The handle for the open file 
                                  // that is the source of the 
                                  // certificates
        ))
{
 

引言: To dean: 不知道您是用什麼方法來做!?^^; 就算是把憑證放在檔案中依然可以使用在下所提供的流程 把憑證中的資料取出... 下面是由IE系統中的Sotre取出憑證資料的範例:

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   HCERTSTORE hCertStore;
   PCCERT_CONTEXT     pCertContext = NULL;
   char pszNameString[256];       if(hCertStore = CertOpenStore(CERT_STORE_PROV_SYSTEM, 0, NULL, CERT_SYSTEM_STORE_CURRENT_USER, L"MY"))
      ShowMessage("The MY store is open.\n");
   else{
      ShowMessage("The MY store can't be open.\n");
      return;
   }
   //"081902"是要開啟憑證的CommonName
   pCertContext = CertFindCertificateInStore(hCertStore, PKCS_7_ASN_ENCODING | X509_ASN_ENCODING, 0, CERT_FIND_SUBJECT_STR, L"081902", pCertContext);
   if (!pCertContext)
      ShowMessage("Can't get Certificate context!");
   if(CertGetNameString(pCertContext,CERT_NAME_SIMPLE_DISPLAY_TYPE,0,NULL,pszNameString,128))
      ShowMessage(AnsiString(pszNameString)); //Show CN
   else
      ShowMessage("CertGetName failed.");
   if(CertGetNameString(pCertContext,CERT_NAME_EMAIL_TYPE,0,NULL,pszNameString,128))
      ShowMessage(AnsiString(pszNameString)); //Show e-amil
   else
      ShowMessage("CertGetName failed.");       CertFreeCertificateContext(pCertContext);
   CertCloseStore(hCertStore,0);
}
 

您要的是由檔案中取出其實CertOpenSotre()一樣可以做到, 麻煩您參考MSDN中的範例,因為只是把檔案的handle傳進函式 當中而已...在下認為應該難不倒您才是:)

if(hFileStore = CertOpenStore(
        CERT_STORE_PROV_FILE,     // Load certificates from a file
        0,                        // Encoding type not used
        NULL,                     // Use the default HCRYPTPROV
        CERT_STORE_READONLY_FLAG, // Read-only store
        hFile                     // The handle for the open file 
                                  // that is the source of the 
                                  // certificates
        ))
{
 

???

引言: 小弟查了MSDN的範例，但覺得好像少了點什麼？想請問，是不是需要include 什麼檔案才可以使用CertOpenStore，CertGetNameString，CertFindCertificateInStore，CertFreeCertificateContext，CertCloseStore這些function呢？因為我直接COPY您的button4程式至我的button中，但他卻說上面這些function都link error，這是不是代表要include something呢？還是？

引言: [Linker Error] Unresolved external 'CertOpenStore' referenced from C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\桌面\轉憑證\NEW2\UNIT1.OBJ

引言: 我的憑證是用MS提供的CERTSRV那個網頁所做出來的，在產生的過程中，為了把它用成是一個檔案，就選擇了~web瀏覽器憑證~其他選項~進階憑證要求~將金鑰標示成可匯出 ~將金鑰匯出到檔案 ~在產生憑證後可以下載憑證，並選擇了~DER 編碼~然後存成c:\face\abc.cer

PCCERT_CONTEXT  pCertContext = NULL;  //Certificate context for Crypto API
unsigned char   *Cert; //Certificate's content read from Certificate's file
unsigned long   szCert; //length of certificate's content     pCertContext = CertCreateCertificateContext(PKCS_7_ASN_ENCODING | X509_ASN_ENCODING,// The encoding type
                                            Cert,   // The encoded data from the certificate retrieved
                                            szCert); // The length of the encoded data     

引言: 如何由檔案中讀取資料相信難不倒您。

 
HANDLE hFile=CreateFile("C:\\Face\\abc.cer",GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_READONLY,NULL); 
char buf[1024];
DWORD bytesread,nBytes=1024;
bool bReadFile;
bReadFile =ReadFile(hFile,buf,nBytes,&bytesread,NULL);
if(bytesread != nBytes){
   ShowMessage("Can't read all data that you want to read...");
   return;
}
PCCERT_CONTEXT pCertContext = NULL;
pCertContext = CertCreateCertificateContext(PKCS_7_ASN_ENCODING | X509_ASN_ENCODING,buf,bytesread);
if (!pCertContext)
   ShowMessage("Can't get Certificate context!");
else
   ShowMessage("Success.");