problema logico su tipo variabile

[ThePenguin]

allora la premessa è la seguente se non ricordo male esistono due comandi che trasformano un valore numerico in carattere e vice versa e questi due comandi dovrebbero essere ord e chr.
Ord per riportare un carattere a valore numerico e chr per fare l'inverso giusto?

perfetto!
Ora io ho una stringa che sono andato a recuperare da un form e questa stringa nel form mi viene rappresentata da un textarea.
io dovrei recuperare la lunghezza del testo, facile attraverso il comando lenght se non ricordo male, e poi operare su ogni singolo carattere della striunga la conversione da carattere a numero
il problema e che dovrei trattare la stringa come un vettore dove ogni clla mi corrisponderebbe ad un carattere della stringa...

è possibile fare una cosa del benere e se si come potrei farla?

a logica mi verrebbe da dire un bel ciclo while in cui incrementare di +1 i e j come contatori e poi dire per esempio

vettore[i] = stringa[j]

possibile e il vettore come lo imposto non sapendo a prescindere la dimensione dalla stringa?
Mi potreste dare un aiutino..?


Grazie

[ThePenguin]

<%

Object = Request ("oggetto")
Messaggio = Request("Messaggio")

'Creo la chiave di codifica
Randomize 
Chiave = int(255 * Rnd)
Lunghezzastrina = lenght(messaggio)

Dim Vettore1, Vettore2

I=0
J=0
While (I<Lunghezzastrina) and (J<lunghezzastringa) do
  I=i+1
  J=J+1
  Vettore1[I] = Asc(Stringa[J])+Chiave
  Vettore2[I] = Chr(Vettore1[J])
Loop

'response.write(Object)
'response.write(Messaggio)
'response.end()


%>

diciamo che questa potrebbe essere la forma iniziale di suddivisione e conversione del carattere in numero modificato.
ma per quanto riguarda il vettore come lo imposto e sopratutto una volta introdotto in ogni cella del vettore il corrispettivo numero e reinvertito in un carattere alterato come ricostituisco la stringa di solo testo?

Grazie

[ThePenguin]

ok... fatta un po' di pulizia e di riordino nel codice che ora risulta:

<%

Object=""
Messaggio=""
OggettoConvertito=""

Object = Request ("oggetto")
Messaggio = Request("Messaggio")

'determino la lunghezza delle due variabili
LunghezzaOggetto = len(Object)
LunghezzaMessaggio = len(Messaggio) 

'Creo la chiave di codifica
Randomize 
Chiave = Int(255 * Rnd)

Dim Vettore1, Vettore2

I=0
J=0
While (I<LunghezzaOggetto) and (J<lunghezzaOggetto) do
  I=i+1
  J=J+1
  Vettore1[I] = Asc(Stringa[J])+Chiave
  Vettore2[I] = Chr(Vettore1[J])
  OggettoConvertito = OggettoConvertito & Vettore2[I]
Loop

%>

cosa ne pensate della soluzione che ho trovato?
c'è qualche falla di funzionamento o di logica?
e soprattutto come risolvo il problema dei vettori che non mi permettono di dare una lunghezza massima non sapendo a prescindere la lunghezza delle stringhe?

Grazie

[ThePenguin]

ragazzi messo on-line il tutto mi da il classico errore http500 impossibile visualizzare la pagina... ma non riesco a spiuegarmi il perchè

che accidenti sto sbagliando?

<%

Object=""
Message=""
Chiave=0
OggettoConvertito=""
LungOggetto = 0
LungMessaggio = 0

Object = Request("oggetto")
Message = Request("Messaggio")

'determino la lunghezza delle due variabili
LungOggetto = len(Object)
LungMessaggio = len(Messaggio) 

If (lungOggetto <> 0) and (lungMessaggio <> 0) Then
	'Creo la chiave di codifica
	Randomize 
	Chiave = (Int(2 * Rnd)+1)
	
	Dim Vettore1(200), Vettore2(200)
	I=0
	J=0
	do while (I<=LunghezzaOggetto) and (J<=lunghezzaOggetto)
	  I=i+1
	  J=J+1
	  Vettore1[I] = Asc(Object[J])+Chiave
	  Vettore2[I] = Chr(Vettore1[J])
	  OggettoConvertito = OggettoConvertito & Vettore2[I]
	Loop
else
  flag=1
end if   

response.write(Object) 
response.write(Message) 
response.write(LungOggetto) 
response.write(LungMessaggio) 
response.write(chiave) & "
"
response.write(OggettoConvertito) 
response.End()
%>

[elfa]

A che ti servono due indici che vanno in parallelo? Potresti usarne solo 1
Ma soprattutto, come torni indietro al valore originale?

[ThePenguin]

tornare al valore oribinale in che senso?

[ThePenguin]

ok diciamo che io lo modifico così:

<%

Object = Request("Oggetto")
Message = Request("Messaggio")

response.write(Object) 
response.write(Message) 
response.End()

'determino la lunghezza delle due variabili
LungOggetto=0
LungMessaggio=0
LungOggetto = len(Object)
LungMessaggio = len(Messaggio) 

'response.write(LungOggetto) 
'response.write(LungMessaggio) 
'response.End()


If (lungOggetto <> 0) and (lungMessaggio <> 0) Then
  'Creo la chiave di codifica
  Chiave=0
  Randomize 
  Chiave = (Int(2 * Rnd)+1)
	
  Dim Vettore1(200), Vettore2(200)
  I=0
  OggettoConvertito=""  
  do while (I<=LungOggetto)
    I=i+1
	Vettore1[I] = Asc(Object[I])+Chiave
	Vettore2[I] = Chr(Vettore1[I])
	OggettoConvertito = OggettoConvertito & Vettore2[I]
  Loop
else
  flag=1
end if   

%>

ma l'errore me lo da lo stesso....

[pictor]

Sintatticamente è corretto?

L'errore su che cosa te lo da? A quale riga? (e dicci cosa c'è scritto nella riga)

[ThePenguin]

Originariamente inviato da pictor
Sintatticamente è corretto?

L'errore su che cosa te lo da? A quale riga? (e dicci cosa c'è scritto nella riga)

onestamente mi piacerebbe saperlo l'errore su cosa me lo da... ma mi pianta una bella pagina bianca con scritto impossibile visualizzare la pagina errore http500

e ciò mi sa di molto complicato x capire che c'è che non va...

[ThePenguin]

onestamente non so più a che santo votarmi... il codice mi sembra più che corretto ma qui non va nulla e continua con sto errore http 500..

<%

Dim Vettore1(200), Vettore2(200), Vettore3(200), Vettore4(200)

Object = Request("Oggetto")
Message = Request("Messaggio")

'determino la lunghezza delle due variabili
LungOggetto=0
LungMessaggio=0
LungOggetto = len(Object)
LungMessaggio = len(Message) 

'Creo la chiave di codifica
Valore=""
Randomize 
Valore= int((2 * Rnd)+1)

flag=0
if (lungOggetto <> 0) and (lungMessaggio <> 0) then
  i=0
  do while (i <= LungOggetto)
    i=i+1
	Vettore1[I] = asc(Object[I])+Valore
	Vettore2[I] = chr(Vettore1[I])
	OggettoConvertito = OggettoConvertito & Vettore2[I]
  loop
  j=0
  do while (i <= LungNessaggio)
    j=j+1
	Vettore3[j] = asc(Message[j])+Valore
	Vettore4[j] = chr(Vettore3[j])
	MessaggioConvertito = MessaggioConvertito & Vettore4[j]
  loop
else
  flag=1
end if   


%>

ma da che accidenti dipende...