La criptografía

La criptografia

La criptografia : Multi-millones de consejos para hacer su vida mas facil.

Cifrar / descifrar el codigo
Colaborador: ANATOLY PODGORETSKY
unidad de Crypt32
{
*************************************************************************
* Nombre:Crypt32.Pas *
* Descripcion:32 bits de codificacion/decodificacion de modulo *
* 2^96 variantes es muy alto para tratar de hackear*
* Proposito: para cifrar passwors y texto*
* Seguridad: evitar el uso StartKey menos de 256*
*si lo uso solo para uso interno puede usar por defecto *
*la clave, pero MODIFICAR la unidad antes de compilar*
* Llamada:Cifrado := Cifrar(InString,StartKey,MultKey,AddKey)*
*Descifrado := Descifrar(InString,StartKey) *
* Parametros:InString = largo de la cadena (max 2 GB) que necesitan para cifrar*
*descifrar *
*MultKey= MultKey clave*
*AddKey= Segunda clave *
*StartKey= Tercera clave*
*(posible utilizar los valores predeterminados de la interfaz)*
* Regreso:OutString= cadena de resultado*
* Editor:Besr ver con tabulaciones = 2, Courier new*
* Iniciado:01.08.1996*
* Revision:22.05.1997 - ver.2.01 convertido desde Delphi 1*
*y de hecho todas las teclas como parametros, antes solo tecla de inicio*
* Plataforma:Delphi 2.0, 3.0 *
* trabajo en Delphi 1.0, 2^48 variantes, 0..255 cadenas*
* Autor:Anatoly Podgoretsky *
* Base alghoritm de Borland*
* Direccion:Vahe 4-31, Johvi, Estonia, EE2045, tel. 61-142 *
*[email protected] *
* Estado:Freeware, pero cualquier patrocinador de la ayuda sera apreciada aqui*
*la necesidad de comprar los libros, shareware productos, herramientas, etc*
*************************************************************************
* Modificado: Compatible con Delphi 1.0 & 2.0 *
* la comprobacion de Desbordamiento eliminado *
* Por: Martin Djernæs *

* e-mail: [email protected] *
* web: einstein.ot.ns/'djernaes *
*************************************************************************
}
interfaz
const
& nbsp & nbsp StartKey= 981 {Inicio predeterminado de la tecla}
& nbsp & nbsp MultKey = 12674 {Mult clave predeterminada}
& nbsp & nbsp AddKey = 35891 {Add default key}
la funcion Encrypt(const InString:string StartKey,MultKey,AddKey:Integer): string
la funcion de Descifrar(const InString:string StartKey,MultKey,AddKey:Integer): cadena
aplicacion
{$I-}
{$Q-}
{*******************************************************
& nbsp del * Standard algoritmo de Cifrado de Copia de Borland *
& nbsp *******************************************************}
la funcion Encrypt(const InString:string StartKey,MultKey,AddKey:Integer): cadena
var
& nbsp & nbsp I : Byte
begin
& nbsp & nbsp Resultado := '
& nbsp & nbsp for I := 1 to Length(InString)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Resultado := Resultado CHAR(Byte(InString[I]) xor (StartKey shr 8))
& nbsp & nbsp & nbsp & nbsp StartKey := (Byte(Resultado[I]) StartKey) * MultKey AddKey
& nbsp & nbsp final
fin
{*******************************************************
& nbsp del * Standard algoritmo de cifrado de Copia de Borland *
& nbsp *******************************************************}
la funcion de Descifrar(const InString:string StartKey,MultKey,AddKey:Integer): cadena
var
& nbsp & nbsp I : Byte
begin
& nbsp & nbsp Resultado := '
& nbsp & nbsp for I := 1 to Length(InString)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Resultado := Resultado CHAR(Byte(InString[I]) xor (StartKey shr 8))
& nbsp & nbsp & nbsp & nbsp StartKey := (Byte(InString[I]) StartKey) * MultKey AddKey
& nbsp & nbsp final
fin
{$R }
{$Q }
final.