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

 
 
Herramientas Buscar en Tema Desplegado
  #11  
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
 


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 17:11:10.


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