PowerArchiver was decompiled
-
I have decompiled PowerArchiver 2004!!!
===========================
There is a part of unit main.pas:
============================
type
Tarcconvform=class(TForm)
imgLed: TImage;
Openbox: TOpenDialog;
ListBox1: TMemo;
btnOK: TButton;
CloseButton: TButton;
CorelButton3: TButton;
listview1: TdfsExtListView;
Browse: TButton;
CorelButton1: TButton;
Label4: TLabel;
CompressionBox: TComboBox;
CompMode: TRadioGroup;
RadioGroup1: TRadioGroup;
ProgressBar1: TProgressBar;
Label2: TLabel;
ProgressBar2: TProgressBar;
Button1: TButton;
edit1: TEdit;
Button2: TButton;
Label1: TLabel;
DropTarget: TPJFormDropFiles;
procedure ApplicationBusy(Sender : TObject);
procedure btnOKClick(Sender : TObject);
procedure EditChange(Sender : TObject);
procedure Arc2Arc1GetPassword(Sender : TObject);
procedure Arc2Arc1CompressBegin(Sender : TObject);
procedure Arc2Arc1ExtractBegin(Sender : TObject);
procedure Arc2Arc1ExtractEnd(Sender : TObject);
procedure Arc2Arc1CompressEnd(Sender : TObject);
procedure Arc2Arc1NextVolume(Sender : TObject);
procedure m(Sender : TObject);
procedure Arc2Arc1CompressDeactivate(Sender : TObject);
procedure Arc2Arc1ExtractActivate(Sender : TObject);
procedure Arc2Arc1ExtractDeactivate(Sender : TObject);
procedure Arc2Arc1Progress(Sender : TObject);
procedure Arc2Arc1RemoveTempfile(Sender : TObject);
procedure Open1Click(Sender : TObject);
procedure Arc2Arc1IntegrityBegin(Sender : TObject);
procedure Arc2Arc1IntegrityStatus(Sender : TObject);
procedure Arc2Arc1IntegrityActivate(Sender : TObject);
procedure Arc2Arc1IntegrityDeactivate(Sender : TObject);
procedure RadioGroup1Click(Sender : TObject);
procedure CloseButtonClick(Sender : TObject);
procedure CorelButton1Click(Sender : TObject);
procedure CorelButton2Click(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure Arc2Arc1FileExists(Sender : TObject);
procedure CorelButton3Click(Sender : TObject);
procedure BrowseClick(Sender : TObject);
procedure CorelButton4Click(Sender : TObject);
procedure CompModeClick(Sender : TObject);
procedure listview1ColumnClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Arc2Arc1Error(Sender : TObject);
procedure listview1KeyDown(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure DropFileTarget1Drop(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure DropTargetDropFiles(Sender : TObject); -
What will you do with PA source code?
-
Using DeDe to decompile delphi code isn’t really “decompiling” it…
sure you can see what controls are used and what they were named but you’re not seeing any actual code, you understand that, right?basically, this is a worthless topic…
-
I don’t get the meaning of this topic ???
-
Some people dont have anything better to do with their life? We preffer not to encrypt our code because it would mean that PowerArchiver would use more memory and would be fractionally slower…
In any case, closing it…