Private Sub cmdinsertkey_Click()
On Error GoTo errmsg
'Inserisce la chiave nel form principale
'Controlla che i valori immessi siano corretti
If txtinsertkey.Text = "" Then
MsgBox "Nessuna chiave di criptazione verrà applicata!", , "No Key"
frmcodificatore.txtkey.Text = 1
Unload frmkey
Call frmcodificatore.cmdcodifica_Click
Exit Sub
End If
If Not IsNumeric(txtinsertkey.Text) Then
MsgBox "Inserire un valore numerico!", , "Invalid Key"
Exit Sub
End If
'Somma ogni numero all'interno della chiave per questioni di sicurezza...
Dim add_number As Single
Dim count As Single
For count = 1 To Len(txtinsertkey.Text)
add_number = add_number + (CSng(Mid(txtinsertkey.Text, count, 1)))
Next count
frmcodificatore.txtkey.Text = txtinsertkey.Text + add_number
Unload frmkey
Call frmcodificatore.cmdcodifica_Click
Exit Sub
errmsg:
MsgBox "E' avvenuto un errore! Controlla che i dati inseriti siano corretti.", vbCritical, Err.Description
Exit Sub
End Sub
