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!
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.
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?/
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.
Quoteunit 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