Oppure

Loading
21/04/07 14:07
c.ronaldo
Salve a tutti...

Ho fatto un prog in vb, che cripta un testo....

Ma non riesco(sò che è una cosa di logica) a decriptarla!!

Come posso fare:-?:-|

Vi posto il codice : 


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


Aiutatemi!
aaa
21/04/07 17:14
P4p3r0g4
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!
aaa
21/04/07 17:17
c.ronaldo
Vabbè dopo lo miglioro,ma come posso fare allora per fare l'inverso:-?:k:
aaa
21/04/07 18:59
P4p3r0g4
non puoi!
non si può invertire un processo del genere!!
aaa
21/04/07 22:47
motoboy
Postato originariamente da c.ronaldo:

Salve a tutti...

Ho fatto un prog in vb, che cripta un testo....

Ma non riesco(sò che è una cosa di logica) a decriptarla!!

Come posso fare:-?:-|

Vi posto il codice : 


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


Aiutatemi!


:-?:-?:-?

Descriptare :-? :-| ...
aaa
22/04/07 7:12
Hacker
non si può.
aaa
22/04/07 8:35
c.ronaldo
ok...

Ho implementato un altro algortmo!


Grazie lo stesso:k:;)
aaa