Source Code RSA Unit 2

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ComCtrls, StdCtrls, jpeg, ExtCtrls,registry;
type
Tmain3 = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Edit1: TEdit;
Button3: TButton;
Button2: TButton;
Panel2: TPanel;
Image1: TImage;
Panel3: TPanel;
procedure sh(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
main3: Tmain3;
t:integer;
implementation
uses EncForm,unit3;
{$R *.dfm}
procedure Tmain3.Button2Click(Sender: TObject);
var
creg:Tregistry;
twp:string;
begin
inc(t);
creg:=tregistry.Create;
creg.RootKey:=HKEY_LOCAL_MACHINE;
creg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\',true);
twp:=creg.readString('psid');
if ansicomparestr(twp,edit1.Text)=0 then
begin
if (ansicomparestr(twp,'')=0) then
begin
try
creg.WriteString('Psid','');
except
end;
main3.Hide;
form3.Show;
end
else
begin
main3.Hide;
form3.Show;
end;
twp:='';
end;
if t>=3 then
B-26
close;
creg.Free;
end;

procedure Tmain3.Button3Click(Sender: TObject);
begin
main1.Show;
main3.close;
end;

procedure Tmain3.sh(Sender: TObject);
begin
t:=0;
edit1.Text:='';
statusbar1.SimplePanel:=true;
statusbar1.SimpleText:='Demo Software Pengamanan DataV.1.0';
end;
end.