Ayuda con Encriptamiento de Texto

[donald shimoda]

Empezado por yelian

Hola donald shimoda

**Puedes colocar un botón que dispare el procedimiento de encriptado, pasandole como parámetro la propiedad Text del edit. O bien en el evento onexit del edit.**

-Como puedo hacer esto...

Usando el código que pasaste:

Código Delphi [-]
function Encriptar(aStrEncriptar: String): string; 
var   
  i : byte; 
begin   
  for i:=1 to strlen(aStrEncriptar) do   
  begin     
     result := aStrEncriptar[i]+3;   
  end; 
end;

En el onexit del botón suponiendo que se llame MyButton y que lo quieras guardar encriptado en aStrDestino

Código Delphi [-]
  aStrDestino := Encriptar(MyButton.Text);

enjoy!

[yelian]

Gracias donald shimoda

Pero como calturo lo escrito en un Edit para encriptarlo con el code que puse anteriolmente,

aaa si puedes ponerme los code para C++ me seria de mucha utilidad ya que paso mucho trabajo al llebar los codigos de Delphi a C++,
Si los sabes en Delphi y no los sabes en C++ no importa postealos igual ya encontrare la forma de llebarlos a c++...

y para los otros que me respondieron si tubiera acceso a todas las paguinas de Interned no los molestaria tanto con mis dudas, buscaria hasta encontrar mi duda, lo que pasa es que tengo muchas paguinas restringidas, dentro de ellas los linck que me pusieron anteriol...

Gracias a Todos y disculpen la molestia

[donald shimoda]

Empezado por yelian

Gracias donald shimoda
Pero como calturo lo escrito en un Edit para encriptarlo con el code que puse anteriolmente,

No acabo de explicarlo?

**Puedes colocar un botón que dispare el procedimiento de encriptado, pasandole como parámetro la propiedad Text del edit. O bien en el evento onexit del edit.**

Empezado por yelian

y para los otros que me respondieron si tubiera acceso a todas las paguinas de Interned no los molestaria tanto con mis dudas, buscaria hasta encontrar mi duda, lo que pasa es que tengo muchas paguinas restringidas, dentro de ellas los linck que me pusieron anteriol

Bendita revolución...

[yelian]

Bueno despues de tanto tiempo encontre una forma de encriptar un texto Tecleado en un Edit ..
.
Les agradesco por todo sus aporte que siempre son de mucha ayuda...

No se si lo que ise esta bien pero por lo menos me funciona bien, se que es un encriptamiento sencillo pero es lo que me hacia falta (algo no tan complicado y que sea facil de entender) e llegado a este code gracias a a la ayuda de todos ustedes,

Rectifiquenme si el code tiene algun error y si hay alguna forma de perfercionarlo...

Code:
------
int largo;
largo=Edit1->Text.Length();
char* testo=new char[largo];
strcpy(texto,Edit1->Text.c_str());
for (int i=0;i<largo;i++){
texto[i]=texto[i]+3;
}
Edit2->Text=texto;


Saludos...

[[escafandra]]

Te dejo un ejemplo algo mas complejo pero muy simple. No recuerdo si ya publiqué en el foro.

// Rutina de encriptación Xor. 
// La misma rutina encripta y desencripta. 
// Clave clave en modo texto que se tratará como de 8 caracteres, 64 bits 
// Mod es el módulo restante para encriptaciones parciales si no desea usarse,
// debe ser nulo.
// Si se encripta un buffer por partes, Mod = Size_encriptado%8 
// donde Size_encriptado es el tamaño total de lo encriptado hasta ese momento. 
// Mod corrige el punto de comienzo del nuevo bloque a encriptar. 
// BYTE es unsigned char 
 
void 
Crypt(void *Source, int Size, char* Clave, int Mod) 
{ 
   BYTE *source = (BYTE*)Source; 
   BYTE clave[8]; 
   int lClave = strlen(Clave); 
   for(int n=0; n<8; n++) 
     clave[n] = Clave[n%lClave]; 
 
   for(int n=0; n<Size; n++, Mod++){ 
      source[n] ^= clave[Mod%8]; 
   } 
}

Puedes encriptar cualquier cosa.

Saludos.