E ai Galera descriptografar? alguem tem alguma funcao

Para desciptografar, voce deve fazer uma criptoanalise.
Vai depender do metodo usado para codificar.

Para desciptografar, voce deve fazer uma criptoanalise.
Vai depender do metodo usado para codificar.

Lady vc teria um metodo de criptografar e descriptografar?
Valeu

Entao, é praticamente impossivel descriptografar assim ao acaso.

Quando voce nao sabe como foi criptografado, voce tem que analisar os arquivos e tentar achar um jeito.
Alem disso, atualmente tem aqueles esquemas de chave que uma pessoa dificilmente consegue quebrar.

O que voce pode fazer eh me dizer em que programa o arquivo foi codificado porque pra alguns existe programinhas que descriptografam que ja estao prontos.

Agora, fazer uma funcao, so se voce souber como foi codificado.
Senão, uma criptoanalise de um metodo de criptografia complexo demora muito e nao eh qualquer um que consegue fazer.

Aê cara,,, eu tenho o seguinte codigo...

procedure TForm1.Button1Click(Sender: TObject);
var
Text1 : String; //Variável usada para armazenar o texto
Shift : Integer; //número de 02 à 225;
pos : Integer;
begin
//Criptografando...
text1 := Edit1.Text; //Campo onde está o texto que deseja criptografar.
Shift := 12;
For pos := 1 to Length(Text1) do
text1[pos] := Chr(ord(text1[pos]) + shift);
Edit2.Text:=text1; //Edit2.Text é o campo que ira receber o texto criptografado.
// Descriptografando...
text1 := Edit2.Text; //Edit2.Text é o campo onde esta o texto criptografado.
Shift := 12;
For pos := 1 to Length(Text1) do
text1[pos] := Chr(ord(text1[pos]) - shift);
edit3.Text:=text1; //Edit3.Text é o campo que irá receber o texto descriptografado.

/* Ai cara, não sou Landy não, mas se servir...... at+vr cara!
end;

É O SEGUINTE POR EXEMPLO EU QUERO LER O REGISTRO DO WINDOWS
E EM ALGUMS VALORES DO REGISTRO ELE TRAZ CODIFICÕES, SÃO ESSAS CODIFICAÇÕES QUE EU PRECISO, MAS VALEU LADY E MARCELO(ESSE CÓDIGO EU JÁ TINHA)
VALEU PESSOAL SORTE PRA VCS...

Lamento informar, mas dependendo de quem pôs os dados no registro, vai ficar muito dificil, pra nao dizer impossivel.

Bom, o Windows utiliza, não uma criptografia, mas sim uma inversão de strings (ou arrays) conhecido como mojo crack.

Não tenho nada aqui(pois estou na empresa), mas... procure na net...com certeza vc vai encontrar...

[]´s 8)

Ai esta função é bem simples e útil na área de segurança, não sei se ela vai desincriptar o que vc quer más pode ajudar futuramente.

Function TFrmPrincipal.Encriptar(StrValue : String; Chave: Word) : String;
var
I : Integer;
OutValue : String;

begin

OutValue := ´´;
For I := 1 to Length(StrValue) Do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;

end;

Ai valeu esquenta nao vou buscar na net aqui beleza...
Aí Lady, qual seu nome? acho que eu te conheço...(sem xaveco)