程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi“流”實現文件加密器

Delphi“流”實現文件加密器

編輯:Delphi

  數據流是面向對象程序設計語言中面向對象思想的典型體現,它徹底地取代了早期的利用函數實現輸入輸出的功能,克服了用函數實現輸入輸出功能的諸多弊端。簡單來說,流就是建立在面向對象基礎上的一種抽象的處理數據的工具。在流中,可定義一些處理數據的基本操作,如讀取數據、寫入數據等,程序員是對流進行操作,而不用關心流的另一頭數據的真正流向。流不但可以處理文件,還可以處理動態內存、網絡數據等多種數據形式。掌握好對流的操作在並程序中充分利用流的方便性,不僅能使在編寫面向過程的程序時效率大大提高。本文以文件加密為例說明Delphi編程中流的概念及應用。

  一、流的基本概念

  在Delphi中,所有流對象的基類為TStream類,其中定義了所有流的共同屬性和方法。

  TStream類中定義的屬性介紹如下:

  (1)Size:此屬性以字節為單位返回流中數據大小。

  (2)Position:此屬性控制流中存取指針的位置。

  TStream類中定義的四個虛方法:

  (1)Read:此方法實現將數據從流中讀出。

  函數原形為:

  Function Read(var Buffer;Count:Longint):Longint;virtual;abstract;

  參數Buffer為數據讀出時放置的緩沖區,Count為需要讀出的數據的字節數,該方法返回值為實際讀出的字節數,它可以小於或等於Count中指定的值。

  (2)Write:此方法實現將數據寫入流中。

  函數原形為:

  Function Write(var Buffer;Count:Lonogint):Longint;virtual;abstract;

  參數Buffer為將要寫入流中的數據的緩沖區,Count為需要寫入數據的長度字節數,該方法返回值為實際寫入流中的字節數。

  (3)Seek:此方法實現流中指針的移動。函數原形如下:Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;參數Offset表示以Origint為基准指針移動的方向和字節數,為正表示指針從數據頭向數據尾移動,為負表示指針從數據尾向數據頭方向移動。參數Origint指出指針移動參照的基准,其可能的取值如下:a)soFrombeginning:Offset以數據開始處為基准移動,此時Offset必須大於或者等於零。b)soFromCurrent:Offset以指針的當前位置為基准。c)soFromEnd:Offset以數據結束的位置為基准。此時Offset必須小於或者等於零。該方法返回值為移動後指針的位置。

  (4)Setsize:此方法實現改變數據的大小。

  函數原形為:

  Function Setsize(NewSize:Longint);virtual;

  TStream類中定義的三個靜態方法:

  (1)ReadBuffer:此方法的作用是從流中當前位置讀取數據。函數原形為:Procedure ReadBuffer(var Buffer;Count:Longint);參數的定義跟上面的Read函數相同。需要注意的是,當讀取的數據字節數與需要讀取的字節數不相同時,該函數將產生EReadError異常。

  (2)WriteBuffer:此方法的作用是在當前位置向流寫入數據。函數原形為:Procedure WriteBuffer(var Buffer;Count:Longint);參數的定義跟上面的Write函數相同,同樣,當寫入的數據字節數與需要寫入的字節數不相同時,將產生EWriteError異常。

  (3)CopyFrom:此方法的作用是從其它流中拷貝數據流。函數原形為:Function CopyFrom(Source:TStream;Count:Longint):Longint;參數Source為源數據流,Count為拷貝的數據字節數。當Count大於0時,CopyFrom從Source參數的當前位置拷貝Count個字節的數據;當Count等於0時,CopyFrom設置Source參數的Position屬性為0,然後拷貝Source的所有數據。

  Tstream派生類中最常用的是TFileStream類,該類一般被用來存取文件。建立一個TFileStream類實例聲明如下:constructor Create(const Filename:string;mode:Word);其中Filename為文件名(包括路徑),參數Mode為找開文件的方式,它包括文件的打開模式和共享模式,其可能的取值和意義可以參考相關幫助。

  TStream還有一個叫內存流的派生類TMemoryStream,它在內存中建立一個流對象,其基本方法和函數跟TFileStream類相似。

  二、利用"流"實現exe文件的加密解密

  使用本方法加密exe文件時,要先建立兩個exe文件,一個用來添加資源到另外一個exe文件裡面,稱為添加程序。另一個被添加的exe文件稱為頭文件,該文件的功能是在解密時把添加到自己裡面的文件讀出來。加

[1] [2] [3] [4] 下一頁

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved