SHARE
TWEET

Criptografador

Automake Sep 11th, 2019 108 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, Encryp, Menus;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     TomEncryption1: TTomEncryption;
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     BitBtn1: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     MainMenu1: TMainMenu;
  18.     Abrir1: TMenuItem;
  19.     Sobreoprograma1: TMenuItem;
  20.     BitBtn3: TBitBtn;
  21.     procedure BitBtn1Click(Sender: TObject);
  22.     procedure BitBtn2Click(Sender: TObject);
  23.     procedure Sobreoprograma1Click(Sender: TObject);
  24.     procedure BitBtn3Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. uses About;
  37.  
  38. {$R *.dfm}
  39.  
  40. procedure TForm1.BitBtn1Click(Sender: TObject);
  41. begin
  42. TomEncryption1.Action:=atEncryption;
  43. TomEncryption1.Input:=Edit1.Text;
  44. TomEncryption1.Execute;
  45.  
  46. Edit2.Text:=TomEncryption1.Output;
  47. end;
  48.  
  49. procedure TForm1.BitBtn2Click(Sender: TObject);
  50. begin
  51. TomEncryption1.Action:=atDecryption;
  52. TomEncryption1.Input:=Edit2.Text;
  53. TomEncryption1.Execute;
  54.  
  55. Edit3.Text:=TomEncryption1.Output;
  56. end;
  57.  
  58. procedure TForm1.Sobreoprograma1Click(Sender: TObject);
  59. begin
  60. AboutBox.Show;
  61. end;
  62.  
  63. procedure TForm1.BitBtn3Click(Sender: TObject);
  64. begin
  65. Form1.Close;
  66. end;
  67.  
  68. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top