Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Ayuda con Encriptamiento de Texto (https://www.clubdelphi.com/foros/showthread.php?t=61735)

yelian 20-11-2008 01:51:29

Ayuda con Encriptamiento de Texto
 
Hola a todos de nuevo tengo una duada,
Lo que pasa es que no se como boy a hacer lo que quiero,
En otro Hilo de este Foro medieron estos codicos para encriptar un texto, lo cogi y lo puse a mi gusto,
Pero lo puedo utilizar nadamas que en Consola quisiera que me ayudaran para utilizarlo en Visual ...

Codigo que me dieron (modificado a mi gusto):

char frase[100];
int longitud,i;
cout<<"Teclee un tecto para encriptarlo"<<endl;
cin.getline(frase,100);
longitud=strlen(frase);
for (i=0;i<longitud;i++){
frase[i]=frase[i]+3;
}
cout<<"El texto encriptarlo es "<<endl;
cout<<frase<<endl;

El problema que tengo es que lo que quiero encriptar es lo que tecleen en un Edit pero no se como voy a hacerlo...

Si me pudieran ayudar se lo agradesceria mucho...

donald shimoda 20-11-2008 02:23:35

Cita:

Empezado por yelian (Mensaje 326919)
El problema que tengo es que lo que quiero encriptar es lo que tecleen en un Edit pero no se como voy a hacerlo...

Si me pudieran ayudar se lo agradesceria mucho...

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.

Por cierto si quieres encriptar de verdad, usa Dcrypt. ;)

Saludos

yelian 20-11-2008 14:37:41

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

**Por cierto si quieres encriptar de verdad, usa Dcrypt**


-Que es "Dcrypt" no tengo idea de que es, si me pudieras explicar un poco sobre el te lo agradeseria mucho

gracias por la ayuda

Lepe 20-11-2008 15:43:25

No me seas vago, usa google :p http://www.winsite.com/bin/Info?500000031320

Igual que tu tiempo es valioso... el nuestro también ;)

Saludos

slim_shaddy 20-11-2008 15:51:18

hay funciones encriptamiento incluso con sodigos irreversibles que son muy eficientes si lo que quieres hacer para encriptar es eso pues usa cualquier metodo de ordenamiento y varias la posicion del arreglo de caracteres hay cosas muy chulas en google
suerte

donald shimoda 20-11-2008 16:15:05

Cita:

Empezado por Lepe (Mensaje 326987)
No me seas vago, usa google :p http://www.winsite.com/bin/Info?500000031320

Igual que tu tiempo es valioso... el nuestro también ;)

Saludos

;)

Aun más directo, a la casa del proprio creador de la criatura.

Espero te sirva.

Saludos.

donald shimoda 20-11-2008 16:22:22

Cita:

Empezado por yelian (Mensaje 326976)
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 20-11-2008 16:51:09

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 20-11-2008 16:57:41

Cita:

Empezado por yelian (Mensaje 327002)
Gracias donald shimoda
Pero como calturo lo escrito en un Edit para encriptarlo con el code que puse anteriolmente,

No acabo de explicarlo? :confused::confused::confused:

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

Cita:

Empezado por yelian (Mensaje 327002)
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 19-02-2009 20:18:33

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 20-02-2009 22:34:59

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

Código:

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


La franja horaria es GMT +2. Ahora son las 09:27:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi