'Codificatore 2.00 by Piero Tofy © 2003 Revisione da Codificatore 1.05 |
'Creato in Visual Basic 6.0 |
'Sito: Http://www.pierotofy.too.it |
'----------------------------------------------------------------------|
Dim lunghezzatesto As Single
Dim original As String
Dim livellox As Integer
Private Sub cmdabout_Click()
MsgBox "Codificatore 2.00 Copyright © by Piero Tofy 2003", , "About"
End Sub
Private Sub cmdesci_Click()
End
End Sub
Private Sub cmdnormale_Click()
livellox = 1
cmdnormale.Checked = True
cmdalto.Checked = False
cmdestremo.Checked = False
End Sub
Private Sub cmdalto_Click()
livellox = 2
cmdnormale.Checked = False
cmdalto.Checked = True
cmdestremo.Checked = False
End Sub
Private Sub cmdestremo_Click()
livellox = 3
If Len(txtnormal.Text) > 800 Then
MsgBox "Attenzione: la criptazione a livello Estremo serve per codificare messaggi brevi. Un messaggio eccessivamente lungo potrebbe causare il crash del programma. Il messaggio che hai inserito risulta essere abbastanza lungo. Si consiglia di selezionare un livello di codificazione più basso.", , "Attenzione!"
End If
cmdnormale.Checked = False
cmdalto.Checked = False
cmdestremo.Checked = True
End Sub
Private Sub Form_Load()
livellox = 1
End Sub
Public Sub cmdriporta_Click()
On Error GoTo msgerr
'Scrive lo status sulla status bar
lblstatus.Caption = "In attesa della Chiave di criptazione..."
'Chiede la chiave di codifica
If txtkey.Text = "" Then
frmunlock.Show
Exit Sub
End If
Call riporta_testo(txtcode.Text, txtkey.Text, "-", cmdperc, lblstatus, txtswap, txtnormal)
'Chiude la chiave
txtkey.Text = ""
Call reset
Exit Sub
msgerr:
lock_error
Exit Sub
End Sub
Public Sub cmdcodifica_Click()
On Error GoTo msgerr
'Scrive lo status sulla status bar
lblstatus.Caption = "In attesa della Chiave di criptazione..."
'Chiede la chiave di codifica
If txtkey.Text = "" Then
frmkey.Show
Exit Sub
End If
'Mette tutte le lettere minuscole e chiama la funzione...
txtnormal.Text = LCase(txtnormal.Text)
Call codifica_testo(txtnormal.Text, txtkey.Text, "-", livellox, cmdperc, lblstatus, txtcode)
'Chiude la chiave
txtkey.Text = ""
Call reset
Exit Sub
msgerr:
lock_error
Exit Sub
End Sub
Public Sub lock_error()
'Questa routine gestisce gli errori
'Se è colpa della memoria insufficiente...
If Err.Number = 7 Then
MsgBox "E' avvenuto un errore nella fase di codificazione! L'errore è stato generato dalla mancata disponibilità di memoria necessaria per eseguire correttamente la codificazione. Per evitare questo errore, immetti una chiave di criptazione più bassa o un livello di codificazione più basso!", vbCritical, Err.Description
Call reset
Exit Sub
End If
'Altrimenti...
MsgBox "E' avvenuto un errore nella fase di codificazione! Controlla che i dati inseriti siano corretti. Se il problema non si risolve contatta il produttore.", vbCritical, Err.Description
Call reset
End Sub
Public Sub reset()
'Questa routine ripristina i valori predefiniti della chiave, progress e status bar...
cmdperc.Width = 6135
cmdperc.BackColor = &HFFFFC0
cmdperc.Caption = "Pronto..."
lblstatus.Caption = "Pronto..."
txtkey.Text = ""
End Sub