Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
13/12/07 21:25
gius
Vorrei un modo per criptare o decriptare delle stringhe:D:D:D
aaa
14/12/07 7:50
Roberto VB
Vedi se può aiutarti questo: p2pforum.it/forum/archive/index.php/…
aaa
14/12/07 19:16
gius
gia letto.allora nessun altro aiuto;);)
aaa
14/12/07 19:22
Roberto VB
Il modo che hai scritto tu nell'articolo non va bene?
aaa
14/12/07 19:25
gius
un modo per decriptare quel codice,ho fatto il post per rendere completo il mio articolo
aaa
14/12/07 20:43
Roberto VB
Vedi qui forum.ioprogrammo.it/…
aaa
15/12/07 13:43
gius
Ho trovato la soluzione:D:D:D:D

Ultima modifica effettuata da gius 16/12/07 6:32
aaa
16/12/07 6:33
gius
la soluzione che avevo trovato non funz ora vi posto il codice per criptare 
 Sub CriptaStringa( stringadacriptare As String) 
Dim STRINGA As String 
Dim LUNGHEZZA As Integer 
Dim CHIAVE As Long 
STRINGA = "!éè+*]-.,;:£$%&/()=?123456789qwertyuiopasdfghjklzxcvbnm" 
CHIAVE = Asc(Val(stringadacriptare)) & Mid(STRINGA,  8) 
MsgBox "CHIAVE"     
        End Sub
aaa