Putz valeu pelo soft o.O

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuQuoteunit encry;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button3: TButton;
Button4: TButton;
Edit1: TMemo;
Edit2: TMemo;
Image1: TImage;
Panel1: TPanel;
Panel2: TPanel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const Masc=15;
// <> --- Função de DeCrypt[] --- <>
function Decry(Texto: String):String; // <> ---- 1 ---- <>
var
w : string;
i : integer;
begin
FOR i := 1 TO Length(texto) do
w := w + chr( Ord(texto) - i - Masc);
result:= w;
end;
function Encryptar(Texto: String):String;
var
r : string;
i : integer;
begin
For i := 1 to Length(texto) do
r := r + chr(Ord(Texto) + i + Masc);
result:= r;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text := Encryptar(Edit1.Text);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit2.Text := Decry(Edit1.Text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.text := '';
end;
end.