Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao a tutti, stò realizzando un software per criptare tramite un algoritmo da me inventato, che rende il testo criptato in testo numerico.
Dov'è il problema?
il problema e che non riesco a fare l'inverso dell'algoritmo, quindi a decriptare.
Ecco l'algoritmo da me creato per criptare:
Dim chiave, a, b, c As Integer
Dim criptata, decriptata As String
Private Sub Command1_Click()
a = Asc(Text1) * 2
b = Val(Asc(Text1) * 2)
criptata = CDbl(a) * CDbl(b) / 2
Text2 = criptata
End Sub
Ciao a tutti, stò realizzando un software per criptare tramite un algoritmo da me inventato, che rende il testo criptato in testo numerico.
Dov'è il problema?
il problema e che non riesco a fare l'inverso dell'algoritmo, quindi a decriptare.
Ecco l'algoritmo da me creato per criptare:
Dim chiave, a, b, c As Integer
Dim criptata, decriptata As String
Private Sub Command1_Click()
a = Asc(Text1) * 2
b = Val(Asc(Text1) * 2)
criptata = CDbl(a) * CDbl(b) / 2
Text2 = criptata
End Sub
Qualcuno può aiutarmi a creare l'inverso?
premessa. è inutile e impossibile criptare l'intero messaggio. essendoci alcuni caratteri da 1 ,2 o 3 cifre anche risalendo alla serie numerica del asc(text1)non si saprebbe come dividere correttamente le parole.
una soluzione è fare lettera per lettera.