|
Attribute VB_Name = "modulo" Public Sub codifica_testo(inputx As String, chiave As Single, separatore As String, level As Integer, progress_bar As Control, status_bar As Control, outputx As Control) 'Assegna ad una variabile il valore originale della stringa Dim original As String original = inputx 'Definisce l'array per la codificazione numbers = Array(17, 9, 21, 26, 14, 1, 16, 22, 24, 11, 8, 25, 4, 2, 20, 6, 13, 19, 3, 23, 7, 18, 12, 5, 10, 15, 27, 28, 29, 30, 31, 32, 33, 34, 44, 45, 36, 41, 46, 37, 43, 39, 47, 40, 38, 42, 35, 48, 49) chars = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "z", "j", "w", "y", "k", "x", " ", "!", "?", "è", "ò", "à", "ù", "ì", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ",", ".", ":", "-", "") 'Definisce l'array per i colori della progress_bar colors = Array("&HFFFFC0", "&HC0E0FF", "&HC0C0FF") 'Dichiara la stringa totale Dim totalcode As String 'Definisce la lunghezza dell'array Dim len_chars As Double len_chars = UBound(chars) 'Ripete il ciclo per ogni livello... Dim countlevel As Single For countlevel = 1 To level DoEvents progress_bar.BackColor = colors(countlevel - 1) totalcode = "" 'La lunghezza dell'input Dim len_input As Double len_input = Len(inputx) 'Prende ogni carattere dell'input Dim count As Double For count = 1 To len_input DoEvents 'Mostra la percentuale rimanente sulla "finta" progress-bar Dim difflen, numeroper As Single difflen = len_input - count numeroper = len_input / 100 Dim percentuale As Single percentuale = 100 - (difflen / numeroper) 'Definisce le variabili per la progress-bar Dim maxwidth As Single maxwidth = 6135 progress_bar.Width = (percentuale * 120) / (100 / (maxwidth / 120)) progress_bar.Caption = Left(CStr(percentuale), 4) & "%" progress_bar.Refresh 'Definisce la variabile per il carattere da prendere in considerazione Dim charx As String charx = Mid(inputx, count, 1) 'Dichiara il numero X Dim numberx As Currency 'Confronta il carattere con gli elementi della matrice per trovare il numero da applicare... For x = 0 To len_chars DoEvents If chars(x) = charx Then numberx = numbers(x) Exit For End If 'Se il carattere non è presente nell'array... If x = len_chars Then numberx = numbers(len_chars) Next x 'Codifica il numero in base alla chiave immessa numberx = numberx * chiave 'Mostra il messaggio nella status bar status_bar.Caption = "Sto criptando " & charx & " in " & numberx status_bar.Refresh 'Assegna il valore alla variabile totalcode totalcode = totalcode & numberx & separatore Next count inputx = totalcode outputx = totalcode outputx.Refresh Next countlevel 'Inserisce il primo numero che identifica il livello di codificazione totalcode = level & separatore & totalcode 'Scrive i messaggi sulla progress e status bar progress_bar.Caption = "100%" status_bar.Caption = "Pronto..." 'Restituisce l'Output outputx = totalcode End Sub Public Sub riporta_testo(inputx As String, chiave As Single, separatore As String, progress_bar As Control, status_bar As Control, swap As Control, outputx As Control) 'Assegna ad una variabile il valore originale del codice Dim original As String original = inputx 'Guarda il livello di codificazione e tronca la stringa inutile... level = CSng(Mid(inputx, 1, 1)) inputx = Right(inputx, Len(inputx) - 2) 'Definisce l'array per la codificazione numbers = Array(17, 9, 21, 26, 14, 1, 16, 22, 24, 11, 8, 25, 4, 2, 20, 6, 13, 19, 3, 23, 7, 18, 12, 5, 10, 15, 27, 28, 29, 30, 31, 32, 33, 34, 44, 45, 36, 41, 46, 37, 43, 39, 47, 40, 38, 42, 35, 48, 49) chars = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "z", "j", "w", "y", "k", "x", " ", "!", "?", "è", "ò", "à", "ù", "ì", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ",", ".", ":", "-", "") 'Definisce l'array per i colori della progress_bar colors = Array("&HFFFFC0", "&HC0E0FF", "&HC0C0FF") 'Dichiara la stringa totale Dim totalstring As String 'Definisce la lunghezza dell'array Dim len_numbers As Double len_numbers = UBound(numbers) 'Ripete il ciclo per ogni livello... Dim countlevel As Single For countlevel = 1 To level DoEvents progress_bar.BackColor = colors(countlevel - 1) totalstring = "" 'La lunghezza dell'input Dim len_input As Double len_input = Len(inputx) 'Variabile per la progress_bar Dim counter As Double 'Prende ogni carattere dell'input Do DoEvents 'Mostra la percentuale rimanente sulla "finta" progress-bar Dim difflen, numeroper As Single numeroper = len_input / 100 difflen = len_input - counter Dim percentuale As Single percentuale = 100 - (difflen / numeroper) 'Definisce le variabili per la progress-bar Dim maxwidth As Single maxwidth = 6135 progress_bar.Width = (percentuale * 120) / (100 / (maxwidth / 120)) progress_bar.Caption = Left(CStr(percentuale), 4) & "%" progress_bar.Refresh 'Definisce la variabile per il codice da prendere in considerazione Dim posx As Single Dim numberx As String Dim codex As Currency posx = InStr(inputx, separatore) numberx = Left(inputx, posx - 1) 'Decripta il codice in base alla chiave usando lo spazio di swap swap = numberx codex = CSng(swap / chiave) 'Dichiara la stringax Dim stringax As String 'Confronta il codice con gli elementi della matrice per trovare la stringa da applicare... For x = 0 To len_numbers DoEvents If numbers(x) = codex Then stringax = chars(x) Exit For End If Next x 'Mostra il messaggio nella status bar status_bar.Caption = "Sto decriptando " & codex & " in " & stringax status_bar.Refresh 'Assegna il valore alla variabile totalcode totalstring = totalstring & stringax 'Tronca la stringa di input Dim pos_codex As Single pos_codex = InStr(inputx, codex) inputx = Right(inputx, Len(inputx) - (Len(swap) + 1)) 'Variabile per la progress_bar len_temp = Len(inputx) counter = len_input - len_temp Loop Until inputx = "" inputx = totalstring outputx = totalstring outputx.Refresh Next countlevel 'Scrive i messaggi sulla progress e status bar progress_bar.Caption = "100%" status_bar.Caption = "Pronto..." 'Metta la progressbar su 100 progress_bar.Width = maxwidth 'Restituisce l'Output outputx = totalstring End Sub
|
|
