La cryptographie

La cryptographie

La cryptographie : Plusieurs milliers de conseils pour vous faciliter la vie.

Chiffrer / dechiffrer le code
Contributeur: ANATOLY PODGORETSKY
unite de Crypt32
{
*************************************************************************
* Nom:Crypt32.Pas *
* Description:32 bits de codage/decodage module *
* 2^96 variantes il est tres eleve pour essayer de pirater*
* Objet: Bon pour le cryptage des passwors et le texte*
* Securite: eviter l'utilisation StartKey moins de 256*
*en cas d'utilisation uniquement pour usage interne, vous pouvez utiliser la valeur par defaut *
*la cle, mais de MODIFIER l'unite avant la compilation*
* Appel Chiffre := Encrypt(InString,StartKey,MultKey,AddKey)*
*Decrypte := Decrypter(InString,StartKey) *
* Parametres:InString = chaîne longue (max 2 GO) qui ont besoin de crypter*
*decrypter *
*MultKey= MultKey cles*
*AddKey= Deuxieme cle *
*StartKey= Troisieme cle*
*(possible d'utiliser les valeurs par defaut de l'interface)*
* Retour:OutString= chaîne de resultat*
* Editeur:Besr vu avec des taquets de Tabulation = 2, Courier new*
* qui a Commence:01.08.1996*
* Revision:22.05.1997 - ver.2.01 converti a partir de Delphi 1*
*et fait toutes les cles en tant que parametres, avant de ne commencer a cle*
* Plate-forme:Delphi 2.0, 3.0 *
* travail en Delphi 1.0, 2^48 variantes, 0..255 chaînes*
* Auteur:Anatoly Podgoretsky *
* Base alghoritm de Borland*
* Adresse:Vahe 4-31, Johvi, espagne, Estonie, EE2045, tel. 61-142 *
*[email protected] *
* Statut:Freeware, mais l'un des parrains de l'aide sera appreciee ici*
*besoin d'acheter des livres, des sharewares, des outils, etc*
*************************************************************************
* mise a jour: Supporte Delphi 1.0 & 2.0 *
* verification de Depassement supprime *
* Par: Martin Djernæs *

* e-mail: [email protected] *
* site web: einstein.ot.dk/'djernaes *
*************************************************************************
}
interface
const
& nbsp & nbsp StartKey= 981 {Start cle par defaut}
& nbsp & nbsp MultKey = 12674 {Mult cle par defaut}
& nbsp & nbsp AddKey = 35891 {Ajouter de la cle par defaut}
la fonction Encrypt(const InString:string StartKey,MultKey,AddKey:Integer): string
fonction Decrypt(const InString:string StartKey,MultKey,AddKey:Integer): string
application
{$R-}
{$Q}
{*******************************************************
& nbsp * Standard de l'algorithme de Chiffrement - Copie a partir de Borland *
& nbsp *******************************************************}
la fonction Encrypt(const InString:string StartKey,MultKey,AddKey:Integer): string
var
& nbsp & nbsp I : Byte
begin
& nbsp & nbsp Resultat := '
& nbsp & nbsp for I := 1 to Length(InString) ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Result := Result CHAR(Octet(InString[I]) xor (StartKey shr 8))
& ! & ! & ! & nbsp StartKey := (Byte(resultat[I]) StartKey) * MultKey AddKey
& nbsp & nbsp fin
fin
{*******************************************************
& nbsp * Standard de l'algorithme de Dechiffrement - Copie a partir de Borland *
& nbsp *******************************************************}
la fonction Decrypt(const InString:string StartKey,MultKey,AddKey:Integer): string
var
& nbsp & nbsp I : Byte
begin
& nbsp & nbsp Resultat := '
& nbsp & nbsp for I := 1 to Length(InString) ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Result := Result CHAR(Octet(InString[I]) xor (StartKey shr 8))
& ! & ! & ! & nbsp StartKey := (Byte(InString[I]) StartKey) * MultKey AddKey
& nbsp & nbsp fin
fin
{$R }
{$Q }
a la fin.