- <%
-
- '*********************************
- '** 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
-
- %>
<%
'*********************************
'** 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
%>