Ragazzi, non sapendo che fare qualche mezz'ora fa, ho fatto una funzione che cripta
una stringa di testo con un semplice sfasamento delle lettere di 1...
ecco a voi il codice, ho messo qualche commento così dovrebbe essere più semplice da capire ... xD
ps: sono ben accetti +1 xD
una stringa di testo con un semplice sfasamento delle lettere di 1...
ecco a voi il codice, ho messo qualche commento così dovrebbe essere più semplice da capire ... xD
Codice:
Public Function car(ByVal s1 As String) As String
Dim i As Integer
car = ""
'uso la try per gestire i vari errori
Try
Dim sInt(s1.Length - 1) As Integer
Dim s() As Char = s1.ToCharArray
For i = 0 To s1.Length - 1
' converto il carattere stringa in un carattere
' ASCII
sInt(i) = Asc(s(i))
'aggiungo 1 al valore ASCII del carattere
sInt(i) = sInt(i) + 1
'se s(i) > 117 va a 65
If sInt(i) + 1 > 117 Then
sInt(i) = 65
End If
' il carattere ASCII modificato
' torna carattere stringa
car = car & Chr(sInt(i))
Next
Catch ex As Exception
'riferisco un messaggio di errore per non
'far si che il programma si blocchi
MsgBox("Riferimento a un oggetto non impostato su un'istanza di oggetto.", MsgBoxStyle.Critical, "Errore")
End Try
End Function
ps: sono ben accetti +1 xD