home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d3456 / KADAO72.ZIP / KADAOEncrypter.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-18  |  2.0 KB  |  86 lines
  1. unit KADAOEncrypter;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  7.  
  8. type
  9.   TKADAOEncrypter = class(TComponent)
  10.   private
  11.     { Private declarations }
  12.     F_EncodedString : String;
  13.     F_DecodedString : String;
  14.   protected
  15.     { Protected declarations }
  16.     Function  F_Get_EncodedString:String;
  17.     Procedure F_Set_EncodedString(Value:String);
  18.     Function  F_Get_DecodedString:String;
  19.     Procedure F_Set_DecodedString(Value:String);
  20.   public
  21.     { Public declarations }
  22.     Function EncodeString(Value:String):String;
  23.     Function DecodeString(Value:String):String;
  24.     Constructor  Create(AOwner: TComponent); override;
  25.     Destructor    Destroy; override;
  26.   published
  27.     { Published declarations }
  28.     Property EncodedString : String Read F_Get_EncodedString Write F_Set_EncodedString;
  29.     Property DecodedString : String Read F_Get_DecodedString Write F_Set_DecodedString;
  30.   end;
  31.  
  32. procedure Register;
  33.  
  34. implementation
  35.  
  36. Constructor TKADAOEncrypter.Create(AOwner: TComponent);
  37. Begin
  38.  Inherited Create(AOwner);
  39.  F_EncodedString := '';
  40.  F_DecodedString := '';
  41. End;
  42.  
  43. Destructor TKADAOEncrypter.Destroy;
  44. Begin
  45.  
  46.  Inherited Destroy;
  47. End;
  48.  
  49. Function  TKADAOEncrypter.EncodeString(Value:String):String;
  50. Begin                                                                     
  51.  Result := Value;
  52. End;
  53.  
  54. Function  TKADAOEncrypter.DecodeString(Value:String):String;
  55. Begin
  56.  Result := Value;
  57. End;
  58.  
  59. Function  TKADAOEncrypter.F_Get_EncodedString:String;
  60. Begin
  61.  Result := F_EncodedString;
  62. End;
  63.  
  64. Function  TKADAOEncrypter.F_Get_DecodedString:String;
  65. Begin
  66.   Result := F_DecodedString;
  67. End;
  68.  
  69. Procedure TKADAOEncrypter.F_Set_EncodedString(Value:String);
  70. Begin
  71.  F_DecodedString := DecodeString(Value);
  72. End;
  73.  
  74. Procedure TKADAOEncrypter.F_Set_DecodedString(Value:String);
  75. Begin
  76.  F_EncodedString := EncodeString(Value);
  77. End;
  78.  
  79.  
  80. procedure Register;
  81. begin
  82.   RegisterComponents('KA Dao', [TKADAOEncrypter]);
  83. end;
  84.  
  85. end.
  86.