Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Postato originariamente da c.ronaldo: Dim str, punt, chiave
Private Sub Command1_Click()
str = "AEB1CG7FH9I28NL4MO056RSP3QTZUV"
punt = Len(Text1.Text) * 2
chiave = Mid(str, punt, 6)
Text2.Text = chiave
End Sub
Questo non è un sistema di criptazione.
non fa che darti 6 lettere della stringa partendo dal doppio della lunghezza del testo.
cioè se scirvo "banana" o "sapone" da lo stesso risultato.
inoltre se metto un valore sopra al 12 (se non erro) la chiave non è neanche completa.
a 15 la lettera iniziale e addirittura fuori stringa!