begin process at 2013 05 23 07:49:18
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > CRYPTE/DECRYPTE

CRYPTE/DECRYPTE


 Information sur la source

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :crypter, décrypter Niveau :Débutant Date de création :25/03/2005 Vu :12 720
Auteur : FredArmoni

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

une fonction que j'utilise depuis des lustres...et peut être même avant.

Source

  • function crypte
  • parameters chaine
  • local l_crypt_lg,l_crypt_ch,l_crypt_tm,l_crypt_i
  • chaine = padr(chaine,20)
  • l_crypt_lg=len(chaine)
  • l_crypt_ch=""
  • for l_crypt_i=1 to l_crypt_lg
  • l_crypt_tm=asc(substr("WHATEVRYUXZY",mod(l_crypt_i,11),1))
  • l_crypt_tm=mod(asc(substr(chaine,l_crypt_i,1))+l_crypt_tm,255)
  • l_crypt_ch=l_crypt_ch+chr(255-l_crypt_tm)
  • endfor
  • return l_crypt_ch
  • endfunc
  • ? crypte(crypte("ceci est un test"))
function crypte
parameters chaine
local l_crypt_lg,l_crypt_ch,l_crypt_tm,l_crypt_i
chaine = padr(chaine,20)
l_crypt_lg=len(chaine)
l_crypt_ch=""
for l_crypt_i=1 to l_crypt_lg
  l_crypt_tm=asc(substr("WHATEVRYUXZY",mod(l_crypt_i,11),1))
  l_crypt_tm=mod(asc(substr(chaine,l_crypt_i,1))+l_crypt_tm,255)
  l_crypt_ch=l_crypt_ch+chr(255-l_crypt_tm)
endfor
return l_crypt_ch
endfunc

? crypte(crypte("ceci est un test"))

 Conclusion

biensur, la chaine "WHATEVRYUXZY" est arbitraire et peut se limiter à 10 caractères ;)


 Sources du même auteur

[VFP]CLASSE SYSTEMTIME
Source avec Zip SPLASHSCREEN TYPE ALERTE D'OUTLOOK2003
[VFP] UTILISER UN WEB SERVICE
Source avec Zip CLASSE EDITEUR HTML
Source avec Zip FSFTP - ZIP/UNZIP + GESTION FTP
Toutes les sources de FredArmoni

 Sources de la même categorie

RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER par mike_vk
COULEUR HEXADECIMAL par tmcuh
Source avec Zip ITERATION par DDU de AtoutFox
CONTRÔLE DU NUMÉRO DE TVA (BELGE) par johnmary
Source avec Zip IMPLÉMENTION EN VISUALFOXPRO DE L'ALGORITHME DE HACHAGE SHA1 par c_chenavier
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de econs le 23/11/2006 21:17:27 administrateur CS

Euh ... là, tu te contentes de crypter. L'algorithme de décryptage n'est pas inclus, et serait sûrement intéressant à trouver.

Commentaire de FredArmoni le 16/12/2006 17:42:26 administrateur CS

La même fonction crypte et décrypte, il suffit de lui passer la chaine cryptée pour récupérer la chaine originale

Commentaire de karim55 le 28/02/2013 13:42:16

Je veux que le résultat de cette fonction:
FUNCTION CRYPTE
PARAMETER CHAINE
LOCAL L_CRYPT_LG, L_CRYPT_CH, L_CRYPT_TM, L_CRYPT_I
CHAINE = ALLTRIM(PADR(CHAINE, 50))
L_CRYPT_LG = LEN(CHAINE)
L_CRYPT_CH = ""
FOR L_CRYPT_I = 1 TO L_CRYPT_LG
L_CRYPT_TM = ASC(SUBSTR("0123456789ABCDEF", MOD(L_CRYPT_I, 8), 1))
L_CRYPT_TM = MOD(ASC(SUBSTR(CHAINE, L_CRYPT_I, 1))+L_CRYPT_TM, 255)
L_CRYPT_CH = L_CRYPT_CH+CHR(255-L_CRYPT_TM)
ENDFOR
RETURN L_CRYPT_CH
ENDFUNC

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Crypter des tables [ par FLYeRNeT ] Bonjour, On me demande d'ajouter un cryptage des données contenues dans des tables sur une grosse application déjà en place. Est-ce possible ?Est-ce d


Nos sponsors


Sondage...

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

Photo KältePhoto Green world, abstract environmental backgrounds for your design
Photo Red cushion starfish in a coral reef 

Visiter la photothèque

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib [FR] AndroLib [US] FormidApps [FR] FormidApps [US]