全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:6597
推到 Plurk!
推到 Facebook!

以 Windows CryptoAPI 實做 BCB_Delphi 檔案字串加解密

 
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-25 12:44:33 IP:210.208.xxx.xxx 未訂閱
Windows 2000 藉由 advapi32.dll 提供我們 CryptoAPI 函式庫,這個函式庫包裝了一些複雜的演算法,免除了我們自行實做上的困難;透過 CryptoAPI,我們可輕易的保護所需保護的資料;目前可使用CryptoAPI 函式庫的平台環境為 NT4.0(或更新的版本)、Win95 OSR2 版本或是安裝過 IE 3.02以上的版本,WinCE 尚不支援 厚達 64 頁的整理資料及 C Builder / Delphi 兩種版本的程式碼 主要介紹四個 Function 1.檔案加密 2.檔案解密 3.字串加密 4.字串解密 在蒐集資料的過程中參考過一些大陸的網路文章: 用 BCB 建立數位簽名 用CryptoAPI進行數據加密 用CryptoAPI進行數據加密-補充 用Delphi開發基於CryptoAPI的安全加密應用 使用 Visual C 創建 Crypto 加解密 與上不同的是,本文並非提供點到為止的程式片斷 而是完整並測試通過的程式碼 發表人 - bruce0211 於 2003/04/25 17:13:51
附加檔案:29414_CryptoAPI.pdf
ctx62
一般會員


發表:4
回覆:28
積分:6
註冊:2002-12-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-25 16:56:54 IP:210.82.xxx.xxx 未訂閱
不能下载
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-25 17:15:51 IP:210.208.xxx.xxx 未訂閱
引言: ぃ 3载 < face="Verdana, Arial, Helvetica"> what is "3载"?
GGL
資深會員


發表:104
回覆:600
積分:335
註冊:2006-11-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-05-04 16:48:46 IP:211.76.xxx.xxx 未訂閱
我什麼我執行這個程式後會有以下的訊息呢?謝謝 [Linker Error] Unresolved external '__fastcall TForm1::EnCryptFile(char *, char *, char *)' referenced from C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\桌面\crypt\UNIT1.OBJ [Linker Error] Unresolved external '__fastcall TForm1::DeCryptFile(char *, char *, char *)' referenced from C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\桌面\crypt\UNIT1.OBJ
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-05-05 08:47:09 IP:210.208.xxx.xxx 未訂閱
完整測試程式請下載(通過 bcb 5.0 & delphi 5.0 編譯) http://delphi.ktop.com.tw/loadfile.php?TOPICID=9364660&CC=209440
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-05-05 12:07:25 IP:218.19.xxx.xxx 未訂閱
例程怎麼都是繁體的呀, 不能看到按鈕上的字呀? 能不能必成英文的呀? IMPROVE FOREVER
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-05-05 16:17:01 IP:210.208.xxx.xxx 未訂閱
請自行發揮應用 sample code 只是證明 檔案加密(),檔案解密(),字串加密(),字串解密()四個 function 是可通過 BCB/Delphi 編譯而無問題的....
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-05-05 18:05:51 IP:210.208.xxx.xxx 未訂閱
Hash 的 Sample code 也放上來了 http://delphi.ktop.com.tw/loadfile.php?TOPICID=9376554&CC=209706    (Hash 相關文章請參考電子報 004 期 "以 CryptAPI 取得字串雜湊演算(Hash)值")    目前只做到字串取 Hash 檔案取 Hash 還沒研究出來
willchen
初階會員


發表:64
回覆:81
積分:29
註冊:2003-05-23

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-05-23 15:47:30 IP:163.28.xxx.xxx 未訂閱
這位先進請教一下,此Public/Secrect Key方法可以使用在很多台電腦上嗎?? 我的意思是...在此台電腦用本身的secret key加密之後...到別台電腦使用 Public key解密的功能,如果有那應該要怎麼作才好
a8960905
一般會員


發表:30
回覆:47
積分:20
註冊:2003-09-19

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-12-28 15:00:08 IP:67.138.xxx.xxx 未訂閱
引言: 我什麼我執行這個程式後會有以下的訊息呢?謝謝 [Linker Error] Unresolved external '__fastcall TForm1::EnCryptFile(char *, char *, char *)' referenced from C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\桌面\crypt\UNIT1.OBJ [Linker Error] Unresolved external '__fastcall TForm1::DeCryptFile(char *, char *, char *)' referenced from C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\桌面\crypt\UNIT1.OBJ
我用 BCB6 編譯也得到這個錯誤訊息耶
nlj859
資深會員


發表:139
回覆:375
積分:322
註冊:2004-03-20

發送簡訊給我
#11 引用回覆 回覆 發表時間:2005-03-02 17:46:32 IP:163.28.xxx.xxx 未訂閱
請問此此範例該如何取得它所加密的Key呢? 謝謝.
SENFO
一般會員


發表:13
回覆:22
積分:7
註冊:2006-07-10

發送簡訊給我
#12 引用回覆 回覆 發表時間:2007-03-05 17:50:52 IP:61.219.xxx.xxx 訂閱
請問一下如果我設定固定的KEY之後我要到別台電腦也能解密該怎麼修改?
系統時間:2024-04-25 9:08:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!