optime... chiedo non pretendo...


evidentemente dove ho trovato il codice non era chiaro o quantomeno non ho capito...

la tua proposta l'avevo valutata ma non funziona

mi riporta questa pagina e da li fa tutto.. ma è un casino, riuscite a capire come va gestito?
codice:
 <HTML>
<%
' This VBScript ASP file tests the accompanying rijndael.asp for
' encryption using the Rijndael AES block cipher algorithm
%>

<%
    Dim i
    Dim nb
    Dim nk
    Dim key(31)
    Dim block(31)
    Dim sTemp
    Dim sPlain
    Dim sPassword
    Dim bytIn()
    Dim bytPassword()
    Dim lCount
    
    gentables

    For i = 0 To 31
        key(i) = 0
    Next

    key(0) = 1

    For i = 0 To 31
        block(i) = i
    Next

    For nb = 4 To 8 Step 2
        For nk = 4 To 8 Step 2

            gkey nb, nk, key
            Response.Write "Block Size=" & nb * 32 & ",  Key size=" & nk * 32 & "
"

            Response.Write "Plain
"
            sTemp = ""
            For i = 0 To (nb * 4) - 1
                sTemp = sTemp & Right("0" & Hex(block(i)), 2)
            Next
            Response.Write sTemp & "
"

            encrypt block
            Response.Write "Encrypt
"
            sTemp = ""
            For i = 0 To (nb * 4) - 1
                sTemp = sTemp & Right("0" & Hex(block(i)), 2)
            Next
            Response.Write sTemp & "
"

            decrypt block
            sTemp = ""
            Response.Write "Decrypt
"
            For i = 0 To (nb * 4) - 1
                sTemp = sTemp & Right("0" & Hex(block(i)), 2)
            Next
            Response.Write sTemp & "
"
            Response.Write "
"
        Next
    Next

    Response.Write "
"
    Response.Write "
"

    sPlain = "Plain text"
    sPassword = "Key"

    Response.Write "Message=" & sPlain & "
"
    Response.Write "Key=" & sPassword & "
"

    lLength = Len(sPlain)
    ReDim bytIn(lLength-1)
    For lCount = 1 To lLength
        bytIn(lCount-1)=CByte(AscB(Mid(sPlain,lCount,1)))
    Next
    lLength = Len(sPassword)
    ReDim bytPassword(lLength-1)
    For lCount = 1 To lLength
        bytPassword(lCount-1)=CByte(AscB(Mid(sPassword,lCount,1)))
    Next
    
    bytOut = EncryptData(bytIn, bytPassword)
    
    sTemp = ""
    For lCount = 0 To UBound(bytOut)
        sTemp = sTemp & Right("0" & Hex(bytOut(lCount)), 2)
    Next
    Response.Write "Encrypted=" & sTemp & "
"
    
    bytClear = DecryptData(bytOut, bytPassword)

    lLength = UBound(bytClear) + 1
    sTemp = ""
    For lCount = 0 To lLength - 1
        sTemp = sTemp & Chr(bytClear(lCount))
    Next
    Response.Write "Decrypted=" & sTemp & "
"

    Response.Write "
"
%>
</HTML>