codice:
scala = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", vbCrLf, "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "è", "à", "ù", "&", "/", "(", ")", "?", "^", "!", "$", "%", "§", "#", "-", "@")
testo = Me.testo
chiave = Me.chiave
' troviamo la posizione dell testo
For i = 1 To Len(testo)
y = Mid(testo, i, 1)
For x = 0 To 52
If y = scala(x) Then
posizione_testo(i) = x
End If
Next x
Next i
' troviamo la posizione della chiave
For i = 1 To Len(chiave)
y = Mid(chiave, i, 1)
For x = 0 To 52
If y = scala(x) Then
posizione_chiave(i) = x
End If
Next x
Next i
' troviamo la posizione del testo in chiaro
For i = 1 To Len(chiave)
testo_chiaro(i) = CInt(posizione_chiave(i)) - CInt(posizione_testo(i))
If testo_chiaro(i) < 0 Then
testo_chiaro(i) = -testo_chiaro(i)
End If
Next
testo_definitivo = ""
For i = 1 To Len(chiave)
y = scala(testo_chiaro(i))
testo_definitivo = testo_definitivo + y
Next
Me.testo = testo_definitivo
