Codificacion Alpha numerica!

[ghost]

<%
     
            '*********************************
            '** Codificar una cadena!                       **
            '*********************************
     
     
if request("Envoyer")="Envoyer" then
     
code = request("code") '
text = request("text")
visu = request("visu")
     
            if request("code") <> ""
                 
                        'code = "aspfrv.1"
                             
                        alphanum="0123456789ABCD EFGHIJKLMNOPQR STUVWXYZ"                       
                        a = 1                                                                                                                                               
                        bcl = 1                                                                                                                                               
                             
                        for codeboucle = 1 to len(code)                                                                             
                                    niveau = niveau + asc(mid(code,codeboucle,1))           
                        next                                                                                                                                               
                             
                        redim chaine (niveau)                                                                                               
                        redim encode (niveau)                                                                                                     
                             
                        for niveauboucle = 1 to len(niveau)                                                                                   
                                    encode(bcl) = mid(niveau,niveauboucle,1)                                               
                                    bcl = bcl + 1                                                                                                                                          encode(1) = 3
                        next                                                                                                                                                                                                                        'decode(2) = 6 etc
                             
                        chaine(1) = text                 
                             
                 for boucle = 1 to len(nivel)                                                                       
                 
                                    chainecoder=""                                                                                               
                                         
                                    for var = 1 to len(chaine(a))                                   
AlphaNum
                 
                                                chiffre = asc(mid(chaine(a),var,1))                                                     
                                                chiffre2 = int(chiffre / 10)                                                                 
                                                chiffre = chiffre mod 10                                                                       
                                                chainecoder =chainecoder + mid(alphanum,1+chiffre2+ encode(boucle),1) +mid(alphanum,1+chiffre+ encode(boucle),1)
                                         
                                    next
                                    if a >= nivel sale para..                                                                                                     
                        chaine(a+1) = chainecoder                                                                                                                                   
                        a = a+1                                                                                                                                                                                               
            next
            end if
end if
%>
     
     
     
<%
     
'*********************************
'** Decodificar una cadena **
'*********************************
     
code = request("code")
text = request("text")
visu = request("visu")
     
            'code = "aspfrv.1"
     
            alphanum="0123456789ABCD EFGHIJKLMNOPQR STUVWXYZ"
            a = 1                                                                                                                                   
            bcl = 1                                                                                                                                   
                 
            for codeboucle = 1 to len(code)                                                                 
                        niveau = niveau + asc(mid(code,codeboucle,1))           
            next                                                                                                                                               
                 
            redim chaine (niveau)                                                                                               
            redim decode (niveau)                                                                                                           
                 
            for niveauboucle = 1 to len(niveau)                                                                                   
                        decode(bcl) = -mid((right(niveau,niveauboucle) ),1,1)           
                        bcl = bcl + 1                                                                                                                                          decode(1) = 3
            next                                                                                                                                                                                                                        'decode(2) = 6 etc
                 
chaine(a) = text                                                     
     
 for decodage = 1 to len(niveau)                                                           
                 
                        chainedecoder=""                                               
                             
                        for var = 1 to len(chaine(a)) step 2                                   
     
                                    chiffre2 = mid(chaine(a),var,1)                                               
                                    chiffre =                 mid(chaine(a),var+1,1)                                   
                                    chiffre2 = instr(alphanum,(chiffre2))+ decode(decodage)- 1
                                    chiffre = instr(alphanum,(chiffre))+ decode(decodage) - 1
                                    chainedecoder = chainedecoder + CHR(chiffre2*10+chiffre)                 
                                         
                        next
                        if a >= niveau then exit for                                                                                                           
            chaine(a+1) = chainedecoder                                                                                                                                   
            a = a+1                                                                                                                                                                                               
next
     
%>

Autor Frances