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 - funzione da modificare, un aiutino :)
Forum - Visual Basic 6 - funzione da modificare, un aiutino :)

Avatar
feddur (Normal User)
Pro


Messaggi: 200
Iscritto: 06/03/2008

Segnala al moderatore
Postato alle 23:04
Giovedì, 18/09/2008
Salve, ho trovato nel sito un programma per criptare una stringa, ma io vorrei adattare la funzione a un mio programma, chiedo aiuto a voi!

La funzione originale è questa:
Codice sorgente - presumibilmente VB.NET
  1. Private Sub cripta()
  2.     Cript = ""
  3.     key = Form1.Text3.Text
  4.     X = Trim(LCase(Form1.Text1.Text))
  5.     For i = 1 To Len(X)
  6.         If Mid(X, i, 1) <> " " Then
  7.             ris = Asc(Mid(X, i, 1)) + key
  8.             stringa(i) = Chr(ris)
  9.         End If
  10.         Cript = Cript & stringa(i)
  11.         Form1.Text2.Text = StrReverse(Cript)
  12.     Next i
  13. End Sub


vi chiedo come posso modificare la funzione in modo da poterla utilizzare su stringhe diverse?
come la posso chiamare nella main dando come parametro una stringa?
Grazie. :)

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 23:16
Giovedì, 18/09/2008
Testo quotato
Postato originariamente da feddur:

Salve, ho trovato nel sito un programma per criptare una stringa, ma io vorrei adattare la funzione a un mio programma, chiedo aiuto a voi!

La funzione originale è questa:
Codice sorgente - presumibilmente VB.NET
  1. Private Sub cripta()
  2.     Cript = ""
  3.     key = Form1.Text3.Text
  4.     X = Trim(LCase(Form1.Text1.Text))
  5.     For i = 1 To Len(X)
  6.         If Mid(X, i, 1) <> " " Then
  7.             ris = Asc(Mid(X, i, 1)) + key
  8.             stringa(i) = Chr(ris)
  9.         End If
  10.         Cript = Cript & stringa(i)
  11.         Form1.Text2.Text = StrReverse(Cript)
  12.     Next i
  13. End Sub


vi chiedo come posso modificare la funzione in modo da poterla utilizzare su stringhe diverse?
come la posso chiamare nella main dando come parametro una stringa?
Grazie. :)

Per richiamare la sub dando come parametro una stringa basta chiamarla Sub Cripta(Testo as string)...l'altro problema nn l'ho capito ^^


PM Quote
Avatar
feddur (Normal User)
Pro


Messaggi: 200
Iscritto: 06/03/2008

Segnala al moderatore
Postato alle 23:18
Giovedì, 18/09/2008
risolto, grazie!

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 23:19
Giovedì, 18/09/2008
posta la soluzione...potrebbe essere d'aiuto anche ad altri ;)

PM Quote
Avatar
feddur (Normal User)
Pro


Messaggi: 200
Iscritto: 06/03/2008

Segnala al moderatore
Postato alle 23:57
Giovedì, 18/09/2008
ho risolto in un altro modo, ora non necessito più di quella funzione.

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 22:39
Venerdì, 19/09/2008
per i posteri

Codice sorgente - presumibilmente VB.NET
  1. Private Function cripta(text as string,key as long) as string
  2.     dim X as String, i as long
  3.     X = Trim(LCase(text))
  4.     For i = 1 To Len(X)
  5.         If Mid(X, i, 1) <> " " Then
  6.             ris = (Asc(Mid(X, i, 1)) + key)mod 256
  7.             stringa(i) = Chr(ris)
  8.         End If
  9.         Cripta = Cripta & stringa(i)
  10.         text = StrReverse(Cripta)
  11.     Next i
  12. End Sub

dovrebbe funzionare.
ho solo tradotto il codice in function e corretto il bug del chr()

PM Quote