Encrypt a function in Delphi

Question

Is it possible to encrypt functions in Delphi ? Any type of encryption.... example, I need to encrypt this function:

  function REspacos(const str: String): string;
const
  cDouble = ' ';
   cOne = '';
begin
   result:=Str;
   while pos(cDouble,result) > 0 do
      result:=StringReplace(result,cDouble,cOne,[rfReplaceAll]);
end;

I would like to encrypt it to be unreadable for the final client, more clear, to work normal on Delphi.

Answer 1

Easy answer: You can’t.

---

Contour:

I don’t even want to get into the merits of why, so that the compiler "understand" what was written, the code must be readable.

One way around it would be to create a DLL containing the functions "hidden" and release it along with the sources.

It follows way of making withdrawal from here:

Go on File|New|Other|DLL Wizard;

Replace the source created by this:

library TestLibrary;

uses SysUtils, Classes, Dialogs;

procedure DllMessage; export;
begin
  ShowMessage('Olá Mundo') ;
end;

exports DllMessage;

begin
end. 

Create a new project (to test), include a button in the form (button1) and replace the source with the following:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject) ;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

 procedure DllMessage; external 'SimpleMessageDLL.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  DllMessage;
end;

end. 

By clicking the button, the system will call the function created in the DLL. Change the function by what you need and distribute the DLL to the source stating that it is needed.