delphi 程序做加密解密.docxVIP

unit dm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Db, ADODB,shellapi,inifiles,Registry, ExtDlgs, Buttons, Grids, DBGrids,nb30,Menus,ComCtrls; type Tdm1 = class(TForm) Function UncrypKey (Src:String; Key:String):string; Function EncrypKey (Src:String; Key:String):string; Function Tdm1.EncrypKey (Src:String; Key:String):string; var idx :integer; KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :string; SrcPos :Integer; SrcAsc :Integer; TmpSrcAsc :Integer; Range :Integer; begin KeyLen:=Length(Key); if KeyLen = 0 then key:=