AES加密演算法Delphi程式範例 程式來源:http://www.eldos.org/ 這是一個FreeWare,有Source. 整理後分享給大家使用! 有關AES演算法的介紹請見: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28286    AES(進階加密標準Advanced Encryption Standard) 2000年10月，NIST（美國國家標準和技術協會）宣布通過從15種侯選算法中選出的一項新的密匙加密標準。新的標準將會代替密匙長度變的太短的舊的DES算法...  AES與目前使用廣泛的加密演算法─DES演算法的差別在於，如果一秒可以解DES，則仍需要花費1490000億年才可破解AES，由此可知AES的安全性。 在最近的報告中XL和XSL似乎可以破解AES，但是XSL還沒有被證明...    程式執行畫面: ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

附加檔案：28295_AESDemo.zip

對了這個程式, 可以在Delphi 5.0 /6.0上編譯,7.0應該也可以但沒試過! ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

引言: 對了這個程式, 可以在Delphi 5.0 /6.0上編譯,7.0應該也可以但沒試過! ～～～Delphi K.Top討論區站長～～～

7.0編譯、測試無誤^^ 程式不是寫來玩的 而是要有價值

引言:

引言: 對了這個程式, 可以在Delphi 5.0 /6.0上編譯,7.0應該也可以但沒試過! ～～～Delphi K.Top討論區站長～～～

7.0編譯、測試無誤^^ 程式不是寫來玩的 而是要有價值

請問各位版主高手 , 有無 FOR c 的 Source code 啊 !

引言: 請問各位版主高手 , 有無 FOR c 的 Source code 啊 !

8866 你好: 請參考以下的連結

引言:

引言: 請問各位版主高手 , 有無 FOR c 的 Source code 啊 !

8866 你好: 請參考以下的連結 >< face="Verdana, Arial, Helvetica"> 感謝你的幫助 !!!

檔案加密不會用可以教一下嗎? ^_^ 您就像個小孩子,世界上最遙遠的愛情就是我在你面前你卻不知道我愛你(小懷子)

庵也貼一個 哈哈 Development Tools:Delphi http://www.fileguru.com/delphi/delphi.asp ESBPCS for VCL - Trial - Shareware 06-04-2003 Version 2.3.2 11300KB More Information Huge collection of Components and Routines SecureBlackbox (Delphi) - Shareware 06-04-2003 Version 2.0 3043KB More Information Add SSL & TLS support to your application. VolgaDB Engine - Shareware 06-04-2003 Version 4.5 2776KB More Information Access to flat files, MS SQL, Jet without BDE EasyMap VCL - Shareware 06-04-2003 Version 1.1 1403KB More Information Component for creating GIS solutions MetaTree Component (for Delphi 5,6,7) - Shareware 06-04-2003 Version 1.2 569KB More Information Control to show hierarchical info- graph tree Net Investigation Suite - Shareware 06-04-2003 Version 1.13 1416KB More Information Delphi / BCB sniffing component. Nice MessageBox Component - Shareware 03-04-2003 Version 1.0 220KB More Information Nice MessageBox in your programs RBarcode for Delphi - Shareware 03-04-2003 Version 1.0 586KB More Information Delphi component for 1D and 2D Barcodes DBFViewer 2003 - Shareware 25-03-2003 Version 1.7 135KB More Information Powerful Viewer and Editor for DBF files ASEDAC - Shareware 17-03-2003 Version 1.3.6 675KB More Information Sybase ASE/Delphi Direct Access Components PrintDialogEx - Freeware 17-03-2003 Version 1.0.0 29KB More Information PrintDialogEx is an extended print dialogue. PostgresDAC - Shareware 15-03-2003 Version 1.7.1 1546KB More Information PostgreSQL BDE replacement. TxdsHTTPShareForm – component. - Shareware 02-03-2003 Version 1.0r6 60KB More Information TxdsHTTPShareForm – component. AfalinaSoft Flat Controls - Shareware 02-03-2003 Version 1.53 1046KB More Information MS Office style for all standard VCL controls Add-in Express - Demo 02-03-2003 Version 1.5 797KB More Information Delphi Office COM Add-in = Add-in Express AfalinaSoft XL Report for Delphi - Shareware 02-03-2003 Version 4.2 b 122 6506KB More Information EXCELlent reports with minimal coding. Speller - Freeware 19-02-2003 Version 3.0.1 159KB More Information Speller: Spell checker components. FlexGraphics Library - Shareware 19-02-2003 Version 1.2 1280KB More Information FlexGraphics - a vector graphics library TN BRIDGE Integration Pack for Delphi - Demo 16-02-2003 Version 2.0 6375KB More Information Components and tools for legacy extension. Delphi Component Help Builder - Shareware 08-02-2003 Version 2.0.4 4904KB More Information Creates help files for Delphi components. PTracer - Shareware 08-02-2003 Version 1.2 248KB More Information PTracer is for raster to vector conversion. NoteTab Light - Freeware 04-02-2003 Version 4.92 1759KB More Information One of the most popular Notepads on steroids NTSet - Shareware 04-02-2003 Version 1.13 1094KB More Information Access Windows NT/2000 features from Delphi/C ShellBrowser Components for Delphi - Demo 04-02-2003 Version 2.5 3340KB More Information Explorer components for Delphi MSADODAC - Shareware 04-02-2003 Version 1.3 736KB More Information MSSQL BDE replacement for Delphi/C Builder. ICQ Client ActiveX - Demoware 17-01-2003 Version 3.2 280KB More Information ICQ Client ActiveX module. PowerPack for FastReport2.47 - Freeware 08-01-2003 Version 2.47 507KB More Information Free! Additional components for FR Win Compare - Shareware 31-12-2002 Version 1 576KB More Information Compare,view or merge files from many folders Chilkat SMTP / POP3 ActiveX Email Component - Shareware 29-12-2002 Version 4.3.1 2000KB More Information ActiveX SMTP / POP3 Email Component Chilkat Zip ActiveX Compression Component - Shareware 29-12-2002 Version 9.3.0 2000KB More Information Zip ActiveX Compression Component / Control Chilkat AES & RSA Encryption Component - Shareware 29-12-2002 Version 2.2.0 2000KB More Information AES / RSA Encryption and Signature Component Chilkat Xml Parser Component - Freeware 29-12-2002 Version 2.2.1 1000KB More Information High-performance XML parsing. Chilkat Digital Certificates Component - Freeware 29-12-2002 Version 2.0.3 1000KB More Information Access and use digital certificates ElTree Lite - Freeware 24-12-2002 Version 3.20 1126KB More Information Unique replacement for TreeView and ListView MySQLDAC - Shareware 15-12-2002 Version 1.9.8 1704KB More Information MySQL BDE replacement for Delphi/C Builder. ASADAC - Shareware 15-12-2002 Version 2.5.1 1600KB More Information Sybase ASA BDE replacement for Delphi/BCB. Active XL Report - Shareware 11-12-2002 Version 4.2 build 2755KB More Information EXCELlent reports with minimal coding. ElPack - Shareware 11-12-2002 Version 3.20 6048KB More Information Cross-platform collection of over 80 controls Delphi Knowledge Base 1.0 - Adware 04-12-2002 Version 1.0 5232KB More Information Unique collection of Delphi tips and articles Parametric2D Components - Freeware 23-11-2002 Version 1.0 461KB More Information Drawing Components for Delphi/C Builder Source Code Scanners Standard for Delphi 6 - Shareware 21-11-2002 Version 3.1 631KB More Information SCS is the high performance VCL library. Alfa File Protector - Shareware 09-11-2002 Version 2003 550KB More Information The #1 file protection for developers Wave Player - Freeware 18-10-2002 Version 2.0 7KB More Information Class to play wave and mpeg1 audio files. AidAim ZipForge - Free! - Freeware 15-10-2002 Version 1.10 3435KB More Information Fast transacted ZIP compression library.Free! TMaskFtInch - Shareware 02-10-2002 Version 1.0.0.0 452KB More Information Delphi Comp. for Inputting Feet and Inches llPDFLib - Shareware 25-09-2002 Version 2.0 1322KB More Information Object Pascal library for create PDF document DB SCI Graph Component - Shareware 24-09-2002 Version 1.0 1.074KB More Information Delphi component for data visualization TPasScript component for Delphi - Shareware 31-08-2002 Version 6.54 308KB More Information TPasScript component for Delphi FreeReport 2.32 - Freeware 14-08-2002 Version 2.32 908KB More Information Reporting tool component for Delphi FlatAll for Delphi - Shareware 26-06-2002 Version 2.0 559KB More Information FlatAll - new face for your old applications Delphi Source formatting Wizard - Shareware 26-06-2002 Version 1.14 525KB More Information Customizable Delphi source code formatter Chilkat XML Messaging - Freeware 23-06-2002 Version 1.0.6 1000KB More Information Add XML messaging to your application DFMToSource - Demo 17-06-2002 Version 2.1 551KB More Information Converts Delphi or Bcb DFM to source code ESBDates - Freeware 14-06-2002 Version 3.0.0 596KB More Information Date/Time Routines for Borland Delphi ESBMaths - Freeware 14-06-2002 Version 3.2.1 148KB More Information Free Math Routines for Borland Delphi ESBRoutines - Freeware 14-06-2002 Version 3.0.0 309KB More Information Collection of Free Borland Delphi Routines VCL Pack 1 - Demo 08-06-2002 Version 1.0.0.0 3720KB More Information Delphi/C Builder VCL component library VizAcc Payroll - Shareware 31-05-2002 Version 1.0 3111KB More Information Delphi Payroll with source code. Background Music Component - Shareware 17-05-2002 Version 1.0 1256KB More Information It supplies your code with background music. EMS QuickLocalizer - Shareware 15-05-2002 Version 1.0 765KB More Information Multi-language support for your programs. PsQRFilters - Export Filters for QuickReport - Commercial 10-05-2002 Version 2.11 705KB More Information WYSIWYG QuickReport Export Filters Beginner Software's Delphi Tools - Shareware 02-05-2002 Version 1.02 400KB More Information Source code generator for Delphi. EMS QuickImport - Shareware 26-04-2002 Version 1.0 1881KB More Information A set of components to import your data. ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

AES加密演算法 參考資料：    http://www.univenture.ncku.edu.tw/egcom/page/display.asp?no=4    http://www.fortunecity.com/skyscraper/cairo/130/test/aes.htm    http://www.asn.com.tw/big5/support/tech.htm    http://www.csie.ncu.edu.tw/~yensm/recent-interests/recent-interests-c.html    Digital Matrix  密碼學 http://www.bohr.idv.tw/4_1_crypto.htm        因為你！再大的難題，更顯得容易！

BCB程式設計 http://www.bohr.idv.tw/3_2_c++.htm 資料加密標準（DES）: 使用最廣的資料加密標準（DES）在1997年被國家標準局（National Bureau of Standard）所採用。DES會使用一把56位元的鑰匙來對64位元的資料區段進行加密。這個演算法會透過一連串的步驟將64位元的輸入轉換成64位元的輸出。而同樣的步驟與鑰匙也會被用在解密上...詳全文( zip ); C++ Source code ( src ); Des 執行檔 ( exe ; zip )    因為你！再大的難題，更顯得容易！

引言: 檔案加密不會用可以教一下嗎? ^_^ 您就像個小孩子,世界上最遙遠的愛情就是我在你面前你卻不知道我愛你(小懷子)

再下傳一次檔案吧, 我針對檔案的加解密分開成兩個程序了! 用看看吧! ～～～Delphi K.Top討論區站長～～～

Dear all:    這真是個很好用的程式,但我有一個問題~~    範例中的加解密檔案分別為不同的兩個檔案,不知是否可以針對同一個檔案做加解密呢??    比如說: 把 A.DBF 加密, 當程式執行時便將 A.DBF 解密用來讀取資料呢 ??    

引言: Dear all: 這真是個很好用的程式,但我有一個問題~~ 範例中的加解密檔案分別為不同的兩個檔案,不知是否可以針對同一個檔案做加解密呢?? 比如說: 把 A.DBF 加密, 當程式執行時便將 A.DBF 解密用來讀取資料呢 ??

應該是不行吧 把A.DBF加密後存檔為A.AES 程式執行時將a.aes解開為a.dbf 讀完後就刪除a.dbf或將修改過的a.dbf再加密回a.aes以備下一次用 ～～～Delphi K.Top討論區站長～～～

如果我采用公钥秘密的的方法怎么用，也就是采用公钥加密，采用私钥解密？

引言: 如果我采用公钥秘密的的方法怎么用，也就是采用公钥加密，采用私钥解密？

可否用繁體再寫過,實在是看不懂, 謝謝! ～～～Delphi K.Top討論區站長～～～

引言: 如果我采用公钥秘密的的方法怎么用，也就是采用公钥加密，采用私钥解密？

AES 是對稱式加密, 只使用私鑰, 將來應會取代 DES. 公鑰加密私鑰解密的是非對稱式加密法, 如 RSA 等演算法. 這兩類演算法的差異性很大的...

在windows 2000 AS下，使用作者的範例解密一個250M的文件會發生溢出。結果死機了。這是怎麽囘事啊？

引言: 在windows 2000 AS下，使用作者的範例解密一個250M的文件會發生溢出。結果死機了。這是怎麽囘事啊？

這麼大的檔案,有可能超過這個程式的上限吧? ～～～Delphi K.Top討論區站長～～～

請問～～AES或其他方式的加密，有BCB的嗎？

請問各位高手,有沒有ANSI c 的 Source code 麻煩各位提供一下~謝謝!!

引言:

引言: 請問各位版主高手 , 有無 FOR c 的 Source code 啊 !

8866 你好: 請參考以下的連結 >< face="Verdana, Arial, Helvetica"> 抱歉...可否幫忙明確的指出c 的 Source code 的地方..... 因為看不太懂英文=.=~~拜託板主囉^^!!

我用這個範例程式加密的結果與用Visualsoftcrypt加密的結果不同? 範例程式加密的結果的前四個hex值好像有規則? 有人比對加密的結果嗎?

找到一個測試AES網頁 http://www.cs.ucsd.edu/~fritz/rijndael_test.html 但是結果好像跟範例的不同

請問各位高手 , 有無 FOR JAVA 的 Source code !

請問一下各位熟AES的大大 裡面的SBOX 要怎麼算出來阿? 我按照作者提供的方式去算只能算出 [0,0][0,1]的值是正確的 其他按照他所說的GF(2^8)去算都不正確 不知道有沒有哪位大大知道該怎麼算呢? 麻煩告知小弟 謝謝

請問各位高手 , 有無 FOR BCB 的 Source code !

經測試

可在

Delphi 2007 For Win32 正確編譯

無需修改任何程式碼

開啟後即可Compile

請問各位大大～有沒有AES的C CODE可以提供？謝謝！！

終於找到AES加密的範例, 先多謝大大的分享, 定要好好學習.

===================引 用 alexiih8087 文 章===================
終於找到AES加密的範例, 先多謝大大的分享, 定要好好學習.

DELPHI 2009 無法使用

可否請版主幫我看看，我執行這個Demo程式的檔案解密，會出現這個error message:
Invalid buffer size for decryption.

游標是停在下面這一個procedure

procedure DecryptAESStreamECB(Source: TStream; Count: cardinal;
const ExpandedKey: TAESExpandedKey128; Dest: TStream);
var
TempIn, TempOut: TAESBuffer;
Done: cardinal;
begin
if Count = 0 then
begin
Source.Position := 0;
Count := Source.Size;
end
else Count := Min(Count, Source.Size - Source.Position);
if Count = 0 then exit;
if (Count mod SizeOf(TAESBuffer)) > 0 then
raise EAESError.Create(SInvalidInBufSize);
while Count >= SizeOf(TAESBuffer) do
begin
Done := Source.Read(TempIn, SizeOf(TempIn));
if Done < SizeOf(TempIn) then
raise EStreamError.Create(SReadError);
DecryptAES(TempIn, ExpandedKey, TempOut);
Done := Dest.Write(TempOut, SizeOf(TempOut));
if Done < SizeOf(TempOut) then
raise EStreamError.Create(SWriteError);
Dec(Count, SizeOf(TAESBuffer));
end;
end;