criptare

[pialla]

so che esistono sistemi già fatti per criptare delle stringhe, cmq quello che vorrei fare io è un form con una textarea dove io scivo un testo, quando passo i dati mi serve uno script asp che legga i valori della textarea e faccia un lavoro del genere:

mettiamo che ho scritto "ciao", quando arriva lo script deve prendere lettera per lettera e associargli un valore alfanumerico

come si fa?

[optime]

nella seconda pagina

sTesto = Request.Form("campo_testo")
For i = 1 To Len(sTesto)
   sCarattere = Mid(sTesto, i, 1)
   ' qui metti la routine di trattamento del carattere
Next

[maximum]

Devi fare tanti replace quante sono le lettere inserite.

testo = replace(testo, "a", "fab6c1")
testo = replace(testo, "b", "fab6c2")

ecc, ecc....

Non mi viene in mente altro...

[webhunter]

Avrei più o meno la stessa esigenza per criptare delle stringhe contenute in delel variabili. La tua soluzione mi pare piuttosto "macchinosa" in quanto dovremmo associare un insieme di caratteri alfanumerici per ogni lettera e numero (considerando tra l'altro il fatto che ogni lettera puo' essere sia maiuscola che minuscola). Non esiste uno scriptino asp che cripta e decripta automaticamente? A me interessa solamente che queste stringhe non siano in chiaro...

ad esempio

password="Ciccio32"
io verrei che nel codice fosse una cosa tipo password="alksbclKSAhkda"
e poi dal momento che l'applicazione me la legge riesca a ricostruire il "Ciccio32".
Nn so se mi spieco :-)

[maximum]

Io uso queste due funcion per criptare in fase d'inserimento e decriptare in fase di lettura (lato amministrazione):

<%
	' Parte Modificabile : Chiave INTERA di codifica e decodifica
	' ATTENZIONE: intKey deve esser compreso tra 0 e 64 
	'dim key
		key = 5
	' Fine Parte modificabile
	
	function cripta(strTesto,intKey)
		dim ctInd
		dim chrAnalisi
		dim strTesto2
        For ctInd = 1 To Len(strTesto)
			chrAnalisi = Mid(strTesto, ctInd, 1)
            chrAnalisi = Asc(chrAnalisi) + intKey
            chrAnalisi = chrAnalisi Mod 256
            strTesto2 = strTesto2 & Chr(chrAnalisi)
		Next
		cripta=strTesto2
	end function

	function decripta(strTesto, intKey)
		dim ctInd
		dim chrAnalisi
		dim IntValore
		dim intResto
		dim strTesto2
            For ctInd = 1 To Len(strTesto)
                chrAnalisi = Mid(strTesto, ctInd, 1)
                intValore = Asc(chrAnalisi)
                intResto = (intKey + intValore) Mod 256
                If (intValore + intKey < 256) Then
                    strTesto2 = strTesto2 & Chr(intValore - intKey)
                Else
                    strTesto2 = strTesto2 & Chr(256 - intKey + intResto)
                End If
            Next
			decripta=strTesto2
	end function	
%>

Poi la prima la usi così:

password=cripta(request.form("password"),Key)
sql = "INSERT INTO utenti([Password]) VALUES('" & password & "')" 
objConn.execute(sql)

E la seconda concettualmente al contrario:

-- Qui fai la query

-- password=decripta(objrs("password"),Key)