Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-02-2009
yelian yelian is offline
No confirmado
 
Registrado: nov 2007
Ubicación: Cuba
Posts: 81
Poder: 0
yelian Va por buen camino
Thumbs up

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...
Responder Con Cita
  #2  
Antiguo 20-02-2009
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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.

Última edición por escafandra fecha: 20-02-2009 a las 23:46:55.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ayuda con recibir fichero texto por RS-232 rusadir Varios 3 17-09-2006 20:42:12
Ayuda con Archivos de Texto!! Ariatna Varios 8 03-02-2005 00:21:04
Ayuda con fichero de texto jadelphi Varios 4 07-10-2004 09:43:14
Ayuda con db y archivo de texto carlospcs Varios 1 11-08-2004 00:13:50
Ayuda. Imagen en un Texto similar Fonso_esp Gráficos 2 24-04-2004 10:49:25


La franja horaria es GMT +2. Ahora son las 15:17:46.


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
Copyright 1996-2007 Club Delphi