ci saranno pure le istruzioni!!!!

per criptare:
codice:
intkey = 60
function Cripta(strTesto)
   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
per decriptare:
codice:
function Decripta(strTesto)
   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