ben comme le dis si bien le titre, ce source permet de coder et decoder en alpha numerique afin de pouvoir passer des paramètres crypter ou crypter des pages afin qu'elle ne soient lu que par certain utilisateur....voila KOA !
Source / Exemple :
<%
'*********************************
'** Codage d'une chaine **
'*********************************
if request("Envoyer")="Envoyer" then
code = request("code") ' ici c'est juste pour l'exemple
text = request("text")
visu = request("visu")
if request("code") <> "" then 'ici on affiche si vous avez mis un code
'code = "aspfrv.1" on peut mettre le code en dur
alphanum="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'liste alphanumerique
a = 1 'initailization de a à 1
bcl = 1 'initailization de bcl à 1
for codeboucle = 1 to len(code) 'ici on fait une boucle de la longeur du code
niveau = niveau + asc(mid(code,codeboucle,1)) ' et on va determiner les nb ki vont coder ou decoder le text
next ' en fonction du code et donner un nb ki s'ajoutera dans nos tableau
redim chaine (niveau) ' on créer un tableau de chaine
redim encode (niveau) ' on créer un tableau decodage
for niveauboucle = 1 to len(niveau) ' en suite on créer les paramètres du tableau
encode(bcl) = mid(niveau,niveauboucle,1) ' en fonction du code
bcl = bcl + 1 'cela donne : encode(1) = 3
next 'decode(2) = 6 etc
chaine(1) = text ' ici c'est la chaine que l'on va coder
for boucle = 1 to len(niveau) ' bon la on va commencer le codage alors suivez bien
chainecoder="" ' initialize notre chainecoder
for var = 1 to len(chaine(a)) 'donc ic on va traiter les caractère 1 par un pour les convertir en AlphaNum
chiffre = asc(mid(chaine(a),var,1)) ' donc on prends la 1 er valeur
chiffre2 = int(chiffre / 10) ' me donne le resultat avant la virgule
chiffre = chiffre mod 10 ' me donne le resultat apres la virgule
chainecoder =chainecoder + mid(alphanum,1+chiffre2+ encode(boucle),1) +mid(alphanum,1+chiffre+ encode(boucle),1) 'et ensuite on code en alphnumerique
next
if a >= niveau then exit for ' ici c'est juste pour sortir de la boucle
chaine(a+1) = chainecoder ' on recupère ce que l'on a deja coder et on le recode
a = a+1 ' encore et encore jusqu'a que le tableau soit terminer
next
end if
end if
%>
<%
'*********************************
'** Decodage d'une chaine **
'*********************************
code = request("code") 'ici on recupère les paramètres
text = request("text")
visu = request("visu")
'code = "aspfrv.1" on peut mettre le code en dur
alphanum="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'liste alphanumerique
a = 1 'initailization de a à 1
bcl = 1 'initailization de bcl à 1
for codeboucle = 1 to len(code) ' ici on fait une boucle de la longeur du code
niveau = niveau + asc(mid(code,codeboucle,1)) ' et on va determiner les nb ki vont coder ou decoder le text
next ' en fonction du code et donner un nb ki s'ajoutera dans nos tableau
redim chaine (niveau) ' on créer un tableau de chaine
redim decode (niveau) ' on créer un tableau decodage
for niveauboucle = 1 to len(niveau) ' en suite on créer les paramètres du tableau
decode(bcl) = -mid((right(niveau,niveauboucle) ),1,1) ' en fonction du code
bcl = bcl + 1 'cela donne : decode(1) = 3
next 'decode(2) = 6 etc
chaine(a) = text ' initialisation de la chaine a decoder
for decodage = 1 to len(niveau) ' bon la on va commencer le decodage alors suivez bien
chainedecoder="" ' initialize notre chainedecoder
for var = 1 to len(chaine(a)) step 2 'donc ic on va traiter les caractère 2 par deux
chiffre2 = mid(chaine(a),var,1) ' on recupère la première valeur et l'on transforme en
chiffre = mid(chaine(a),var+1,1) ' chiffre pour ensuite
chiffre2 = instr(alphanum,(chiffre2))+ decode(decodage)- 1 ' la remetre en Alphanum grace a notre chaine
chiffre = instr(alphanum,(chiffre))+ decode(decodage) - 1 ' ki se trouve tout au dessus
chainedecoder = chainedecoder + CHR(chiffre2*10+chiffre) ' on rassemble les deux caratères pour les retraiter dans la boucles
next
if a >= niveau then exit for ' ici c'est juste pour sortir de la boucle
chaine(a+1) = chainedecoder ' on recupère ce que l'on a deja decoder et on le redecode
a = a+1 ' encore et encore jusqu'a que le tableau soit terminer
next
%>
Conclusion :
bon ben si kkl un trouve un klkonk intéret a se code, il peut toujours me mailer à jecby@wanadoo.fr
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.