VB [prg x CRYPTARE LENTO]

[jabjoint]

Ragazzi io ho fatto una funzione che mi cripta un determinato testo.
Nella funzione vi è un ciclo che legge e cripta ogni singolo carattere.
'+ o - il programma lavora cosi'...

function crypt(t_decrypt as string) as string

dim t as string
dim k as long

for k = 1 to 10
t = mid(t_decrypt,k,1)
crypt = crypt & t
doevents
next

end function

'Quindi la variabile "crypt" contiene il testo criptato.

I MIEI 2 PROBLEMI SONO:

1) Il programma è lento; per criptarmi 1000 caratteri ci impiega circa 30 decondi se non di +.

2) Il programma per i primi 200/300 caratteri viaggia + veloce che nei successivi.

[optime]

non ho ben capito la logica, cmq

function crypt(t_decrypt as string) as string 

dim t as string 
dim k as long 
dim x as string

for k = 1 to 10 
   t = mid(t_decrypt,k,1) 
   x = x & t 
next 
doevents 

crypt = x

end function