E ai Galera descriptografar? alguem tem alguma funcao
11/03/2003
0
se souberem me deem uma força ai falow?
Anonymous
Posts
11/03/2003
Lady
Vai depender do metodo usado para codificar.
11/03/2003
Lady
Vai depender do metodo usado para codificar.
11/03/2003
Anonymous
Valeu
11/03/2003
Lady
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.
11/03/2003
Marcelo
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;
12/03/2003
Anonymous
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...
12/03/2003
Lady
12/03/2003
Anonymous
Não tenho nada aqui(pois estou na empresa), mas... procure na net...com certeza vc vai encontrar...
[]´s 8)
12/03/2003
Henry Lima
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;
13/03/2003
Anonymous
Aí Lady, qual seu nome? acho que eu te conheço...(sem xaveco)
Clique aqui para fazer login e interagir na Comunidade :)