Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Aiuto non riesco a decriptare...................
Forum - Visual Basic 6 - Aiuto non riesco a decriptare...................

Avatar
Remix90 (Member)
Rookie


Messaggi: 39
Iscritto: 02/02/2007

Segnala al moderatore
Postato alle 12:31
Lunedì, 18/06/2007
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?:d

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 15:03
Lunedì, 18/06/2007
Testo quotato

Postato originariamente da Remix90:

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?:d


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.


criptata = cdbl(a*b)/2 = cdbl(2k*2k)/2=
=cdbl(2(k^2))

a logica (non testato)

letterainiziale = chr(int(sqr(criptata/2)))

PM Quote