Visual Basic 6 - Programma per criptare! HELP.

Forum - Visual Basic 6 - Programma per criptare! HELP.

fantasy89 (Normal User)
Rookie

Messaggi: 32
Iscritto: 05/12/2006

Postato alle 18:26
Venerdì, 28/12/2007

Salve a tutti! Bene espongo subito il mio problema, vorrei creare un programma che riesca a criptare le mie frasi, allora facciamo un esempio:

Nel form sono presenti due textbox e un commandbutton, la prima text (text1) è addibita all'inserimento di una frase da parte dell'utente (es "il sole è tramontato") quello che vorrei fare è associare ogni singola lettera ad un simbolo o un numero, questa operazione dovrà essere fatta dal command button e la seconda text (text2) dovrà contenere la frase "criptata"...

il mio problema è che non conosco come poter far analizzare ogni singola lettera presente in una frase o parola.... Qualcuno conosce un metodo??? Grazie a chiunque risponda

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 18:46
Venerdì, 28/12/2007

basta salvare ogni parola in un array:
per esempio

Codice sorgente - presumibilmente VB.NET

Private command1_click()
dim frase as string
dim parole(100) as string
frase = text1.text
for i = 0 to len(frase)-1
parole(i)=left(frase,1)
frase=right(frase,len(frase)-1)
next i 
End Sub

non l'ho testato ma credo che dovrebbe funzionare, cioè salvare ogni parole nell'array.
Ciao.

Ultima modifica effettuata da LuigiBiasi il 28/12/2007 alle 18:52

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:54
Venerdì, 28/12/2007

bè potresti fare che dopo che il pulsante x la criptazione è stato premuto, il contenuto della text1.text lo copi nella text2.text e poi cripti la text2.text con replace, cioè con replace sostituisci ad esempio la a con la k ecc. Guarda questo esempio:

command1 = cripta
command2 = decripta

In questo caso la frase base deve essere nella text2.text mentre nella text1.text ci sarà la frase criptata:

Codice sorgente - presumibilmente Visual Basic 6

Private Sub Command2_Click() 'Per criptare
text1.text = text2.text
Text1.Text = Replace(Text1.Text, "a", "*")
Text1.Text = Replace(Text1.Text, "b", "-")
Text1.Text = Replace(Text1.Text, "c", "_")
Text1.Text = Replace(Text1.Text, "d", "/")
Text1.Text = Replace(Text1.Text, "e", ".")
Text1.Text = Replace(Text1.Text, "f", "+")
Text1.Text = Replace(Text1.Text, "g", "°")
Text1.Text = Replace(Text1.Text, "h", "#")
Text1.Text = Replace(Text1.Text, "i", "ç")
Text1.Text = Replace(Text1.Text, "l", "@")
Text1.Text = Replace(Text1.Text, "m", "}")
Text1.Text = Replace(Text1.Text, "n", "{")
Text1.Text = Replace(Text1.Text, "o", "^")
Text1.Text = Replace(Text1.Text, "p", "$")
Text1.Text = Replace(Text1.Text, "q", "£")
Text1.Text = Replace(Text1.Text, "s", "|")
Text1.Text = Replace(Text1.Text, "t", "~")
Text1.Text = Replace(Text1.Text, "r", "[")
Text1.Text = Replace(Text1.Text, "u", "]")
Text1.Text = Replace(Text1.Text, " ", "§")
Text1.Text = Replace(Text1.Text, "w", "'")
Text1.Text = Replace(Text1.Text, "z", "?")
Text1.Text = Replace(Text1.Text, "x", "Ò")
Text1.Text = Replace(Text1.Text, "y", "¦")
Text1.Text = Replace(Text1.Text, "k", "=")
Text1.Text = Replace(Text1.Text, "j", "\")
Text1.Text = Replace(Text1.Text, "v", "©")
 
End Sub
 
Private Sub Command1_Click() 'Per decriptare
 
Text1.Text = Replace(Text1.Text, "*", "a")
Text1.Text = Replace(Text1.Text, "-", "b")
Text1.Text = Replace(Text1.Text, "_", "c")
Text1.Text = Replace(Text1.Text, "/", "d")
Text1.Text = Replace(Text1.Text, ".", "e")
Text1.Text = Replace(Text1.Text, "+", "f")
Text1.Text = Replace(Text1.Text, "°", "g")
Text1.Text = Replace(Text1.Text, "#", "h")
Text1.Text = Replace(Text1.Text, "ç", "i")
Text1.Text = Replace(Text1.Text, "@", "l")
Text1.Text = Replace(Text1.Text, "}", "m")
Text1.Text = Replace(Text1.Text, "{", "n")
Text1.Text = Replace(Text1.Text, "^", "o")
Text1.Text = Replace(Text1.Text, "$", "p")
Text1.Text = Replace(Text1.Text, "£", "q")
Text1.Text = Replace(Text1.Text, "|", "s")
Text1.Text = Replace(Text1.Text, "~", "t")
Text1.Text = Replace(Text1.Text, "[", "r")
Text1.Text = Replace(Text1.Text, "]", "u")
Text1.Text = Replace(Text1.Text, "§", " ")
Text1.Text = Replace(Text1.Text, "'", "w")
Text1.Text = Replace(Text1.Text, "?", "z")
Text1.Text = Replace(Text1.Text, "Ò", "x")
Text1.Text = Replace(Text1.Text, "¦", "y")
Text1.Text = Replace(Text1.Text, "=", "k")
Text1.Text = Replace(Text1.Text, "\", "j")
Text1.Text = Replace(Text1.Text, "©", "v")
 
End Sub

Se ci sono problemi postami :k:

fantasy89 (Normal User)
Rookie

Messaggi: 32
Iscritto: 05/12/2006

Postato alle 21:45
Venerdì, 28/12/2007

Anzitutto vi volevo ringraziare per le risposte, come metodi sono validi tutti e due... Però mi sembra più adatto al mio progetto l'ulitilizzo della funzione "Replace"... Vi ringrazio della disponibilità! Alla prossima :k:

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:09
Sabato, 29/12/2007

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 16:15
Sabato, 29/12/2007