CRYPT [AVEC ALGO PERSONNEL]
cs_jeremyM
Messages postés
85
Date d'inscription
dimanche 10 mars 2002
Statut
Membre
Dernière intervention
17 novembre 2002
-
9 avril 2002 à 20:19
cs_NiFF Messages postés 92 Date d'inscription dimanche 2 juin 2002 Statut Membre Dernière intervention 24 juin 2004 - 17 sept. 2002 à 18:55
cs_NiFF Messages postés 92 Date d'inscription dimanche 2 juin 2002 Statut Membre Dernière intervention 24 juin 2004 - 17 sept. 2002 à 18:55
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/2994-crypt-avec-algo-personnel
https://codes-sources.commentcamarche.net/source/2994-crypt-avec-algo-personnel
17 sept. 2002 à 18:55
11 avril 2002 à 15:20
10 avril 2002 à 16:14
Public Function Crypt(Chaine As String) As String
Dim e, Longeur As Integer
Longeur = Len(Chaine)
For e = 1 To Longeur
Crypt = Crypt & Chr$(255 - Asc(Mid(Chaine, e, 1)))
Next e
End Function
mais le resultat n'est pas garanti ! Mwarf ! :-)
9 avril 2002 à 22:58
enfin bon, c bien d'essayer... c dur la crypto... rien ka penser a ce ke me disais mes profs de crypto j'en ai mal a la tete...
A+ bonne continuation !
$hîv@n
9 avril 2002 à 20:28
ya le prog ds le zip-pour decrypter cliquer sur ouvrir
pour decrypter c'est seulement linverse du cryptage par contre fo conaintre l'algo
6493342963966493342963966396 veut dire "coucou".
le truc qui est chiant c qui fo taper l'inverse de tout l'algo pour decrypter
9 avril 2002 à 20:19