Crypter soucer delph

[Redwolf]

gostaria de saber se tem algum programa que criptografa  o codigo fonte do delph  e  naum der pro na ora de compilar! se tiver passa ou manda  olink por favor !
valeu!

[anakim]

bom axu q se vc quer compilar um codigo em delphi criptografado nao e possivel, + se vc quer q dpois obtenha o codigo de seu programa criptografado sem ninguem saber informacoes internas sobre seu programa, entao aconselho a dpois de compilar o programa baixe um programa q criptografe executaveis.

[Redwolf]

anakim qual programa pra cripto ezecultaveis e que naum  anule a execultavel?
tem como camuflar o código fonte  de um soucer em delphi tipo ocutar o codigo , tipo a função do código esconder o que elá realmente faz?
alguem sabe fazer isso?/

[anakim]

bom no momento to meio sem tmp pra procurar um programa q criptografe executaveis + tenhu certeza q tem, + axu q o delphi tem opcoes para proteger as informacoes do programa, bom uma dica para tirar informacoes de debug para dificultar a engenharia reversa e desmarcar todas as opcoes de debug no delphi para issu va ate Project dpois options e Compiler e desmarque todas as opcoes de debug.

[dark_soldier]

unit 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.

A Unit principal e esta se quizer o source completo manda Mp vlw