High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Forum
Commentaires sur une source
Sujet Précédent
Sujet Suivant
CRYPTE/DECRYPTE
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
- 23 nov. 2006 à 21:17
cs_karim55
Messages postés
1
Date d'inscription
mercredi 27 février 2013
Statut
Membre
Dernière intervention
28 février 2013
-
28 févr. 2013 à 13:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30325-crypte-decrypte
cs_karim55
Messages postés
1
Date d'inscription
mercredi 27 février 2013
Statut
Membre
Dernière intervention
28 février 2013
28 févr. 2013 à 13:42
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
FredArmoni
Messages postés
153
Date d'inscription
vendredi 2 mai 2003
Statut
Modérateur
Dernière intervention
2 avril 2010
16 déc. 2006 à 17:42
La même fonction crypte et décrypte, il suffit de lui passer la chaine cryptée pour récupérer la chaine originale
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
23 nov. 2006 à 21:17
Euh ... là, tu te contentes de crypter. L'algorithme de décryptage n'est pas inclus, et serait sûrement intéressant à trouver.
Votre réponse
Discussions similaires
crypter/decrypter simplement une image
cool2source
-
24 nov. 2010 à 06:32
Pistol_Pete
-
25 nov. 2010 à 10:07
Cryptage de texte
cs_le_totophe
-
19 mars 2007 à 12:29
DARKSIDIOUS
-
19 mars 2007 à 16:34
cryptage d'image en C
cs_Maroi
-
31 mars 2012 à 14:56
CptPingu
-
1 avril 2012 à 18:59
cryptage d'images pixel par pixel
delrama
-
27 juil. 2008 à 00:43
Kesare01
-
12 janv. 2011 à 04:13
Source pour crypter et decrypter du md5...
cs_thekid06
-
19 août 2008 à 10:10
coucou747
-
21 août 2008 à 19:17
Rejoignez-nous
A voir également
Texte crypté
Cryptage des images avec matlab
Cryptage image en php?
Crypter un mot de passe
Crypté clé
28 févr. 2013 à 13:42
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
16 déc. 2006 à 17:42
23 nov. 2006 à 21:17