Imports Microsoft.VisualBasic.FileIO
Imports System.Text
Public Class Avanzate
Public filenamess As String
Private Sub Multipla_Cripta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Multipla_Cripta.Click
Dim numerocriptazioni As String
numerocriptazioni = InputBox("Inserisci il numero di criptazioni:" & Chr(10) & Chr(10) & "(Devono essere maggiori o uguali a 1)", "Bartsoft TextSecurity™ 2007", "1")
If numerocriptazioni <> String.Empty Then
If MessageBox.Show("Scegliendo di criptare un file, a meno che non si usi questo programma non sarà più possibile ripristinarlo nella sua forma originale." & Chr(10) & "Non è oltretutto consigliato l'utilizzo di file di grandi dimensioni, poichè questa funzione tende ad ingrandirlo enormemente." & Chr(10) & Chr(10) & "Continuare comunque?", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fileContents As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
If fileContents = "" Then
MessageBox.Show("Il file è vuoto, per cui non è necessario criptarlo.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Else
For criptazioni As Integer = 1 To numerocriptazioni
Dim fileContents2 As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, "", False, System.Text.Encoding.Unicode)
For i As Integer = 0 To fileContents2.Length - 1
Try
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, AscW(fileContents2.Chars(i)) - 23 & " ", True, System.Text.Encoding.Unicode)
Catch ex As IO.IOException
End Try
Next
Next
MessageBox.Show("Criptazione completata.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
End If
End If
End If
Else
Exit Sub
End If
End Sub
Public letto As String
Public letto1 As String
Private Sub Multipla_Decripta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Multipla_Decripta.Click
Dim numerocriptazioni As String
numerocriptazioni = InputBox("Inserisci il numero di criptazioni:" & Chr(10) & Chr(10) & "(Devono essere maggiori o uguali a 1)", "Bartsoft TextSecurity™ 2007", "1")
If numerocriptazioni = "" Then
GoTo cancella
ElseIf numerocriptazioni <= 0 Then
MessageBox.Show("Per procedere bisogna inserire una numero maggiore o uguale a uno.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
GoTo cancella
Else
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
For criptazioni As Integer = 1 To numerocriptazioni
Dim filename As New System.IO.StreamReader(OpenFileDialog1.FileName)
Dim fields As String()
Dim delimiter As String = " "
Using parser As New TextFieldParser(filename)
parser.SetDelimiters(delimiter)
While Not parser.EndOfData
fields = parser.ReadFields()
letto = ""
riprova: For i As Integer = 0 To fields.Length - 1
If fields.GetValue(i) = "" Then
Continue For
Continue While
Else
Try
letto += ChrW(fields.GetValue(i) + 23)
Catch
If MessageBox.Show("Non è possibile decriptare il file poichè il programma ha riscontrato degli errori nella codifica del file.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Retry Then
GoTo riprova
Else
GoTo cancella
End If
End Try
End If
Next
End While
End Using
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, "", False, System.Text.Encoding.Unicode)
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, letto, True, System.Text.Encoding.Unicode)
Next
MessageBox.Show("Decriptazione completata.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Else
Exit Sub
End If
End If
cancella:
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
Dim generator As New Random
Dim randomValue As Integer
randomValue = generator.Next(5, 260)
Dim filename As String
filename = My.Computer.FileSystem.GetTempFileName()
filenamess = filename.ToString
If MessageBox.Show("Scegliendo di criptare un file, a meno che non si usi questo programma non sarà più possibile ripristinarlo nella sua forma originale." & Chr(10) & Chr(10) & "Continuare comunque?", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
Dim password As String
ritenta: password = InputBox("Inserisci la password per proteggere il file:", "Bartsoft TextSecurity™ 2007")
If password <> String.Empty Then
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fileContents As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
If fileContents = "" Then
MessageBox.Show("Il file è vuoto, per cui non è necessario criptarlo.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Else
My.Computer.FileSystem.WriteAllText(filename, fileContents, True, System.Text.Encoding.Unicode)
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, "", False, System.Text.Encoding.Unicode)
For i As Integer = 0 To fileContents.Length - 1
Try
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, AscW(fileContents.Chars(i)) - 23 & " ", True, System.Text.Encoding.Unicode)
Catch ex As IO.IOException
End Try
Next
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, " %% *", True, System.Text.Encoding.Unicode)
For k As Integer = 0 To password.Length - 1
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, AscW(password.Chars(k)) + randomValue & "*", True, System.Text.Encoding.Unicode)
Next
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, " %% " & randomValue, True, System.Text.Encoding.Unicode)
MessageBox.Show("Criptazione completata.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
End If
End If
Else
If MessageBox.Show("Per procedere bisogna inserire una password di almeno un carattere alfanumerico.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Retry Then
GoTo ritenta
Else
Exit Sub
End If
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Vai!
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
GoTo cancella
Else
Dim nomefile As String = OpenFileDialog1.FileName
'Per la randomvalue
Dim filenamerand As New System.IO.StreamReader(nomefile)
Dim fieldsrand As String()
Dim delimiterrand As String = " %% "
Dim ValoreRandom As Integer
Using parserrand As New TextFieldParser(filenamerand)
parserrand.SetDelimiters(delimiterrand)
While Not parserrand.EndOfData
fieldsrand = parserrand.ReadFields()
Try
ValoreRandom = fieldsrand.GetValue(2)
Catch
MessageBox.Show("Il file non è stato protetto con password. Tentare un altro metodo di decriptazione.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
GoTo cancella
End Try
End While
End Using
'Per la password
Dim filenamepass As New System.IO.StreamReader(nomefile)
Dim fieldspass As String()
Dim delimiterpass As String = "*"
Dim Password As String
letto1 = ""
Using parserpass As New TextFieldParser(filenamepass)
parserpass.SetDelimiters(delimiterpass)
While Not parserpass.EndOfData
fieldspass = parserpass.ReadFields()
For l As Integer = 0 To fieldspass.Length - 1
Try
letto1 += ChrW(fieldspass.GetValue(l) - ValoreRandom)
Catch
End Try
Next
End While
End Using
Password = letto1
'Per il resto
Dim filenamerest As New System.IO.StreamReader(nomefile)
Dim fields As String()
Dim delimiter As String = " %% "
Using parser As New TextFieldParser(filenamerest)
parser.SetDelimiters(delimiter)
Try
While Not parser.EndOfData
fields = parser.ReadFields()
Dim nomefiledd As String = fields.GetValue(0)
Dim fille As String = FileSystem.GetTempFileName
FileSystem.WriteAllText(fille, nomefiledd, False, System.Text.Encoding.Unicode)
Dim fields1 As String()
Dim delimiter1 As String = " "
Using parser1 As New TextFieldParser(fille)
parser1.SetDelimiters(delimiter1)
While Not parser1.EndOfData
fields1 = parser1.ReadFields()
Dim VerifyPassword As String
VerifyPassword = InputBox("Inserisci la password da verificare:", "Bartsoft TextSecurity™ 2007")
riprova: If VerifyPassword = Password Then
For i As Integer = 0 To fields1.Length - 1
Try
letto += ChrW(fields1.GetValue(i) + 23)
Catch
If MessageBox.Show("Non è possibile decriptare il file poichè il programma ha riscontrato degli errori nella codifica del file.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Retry Then
letto = ""
GoTo riprova
Else
letto = ""
GoTo cancella
End If
End Try
Next
ElseIf VerifyPassword.Length = 0 Then
MessageBox.Show("Per procedere bisogna inserire una password di almeno un carattere alfanumerico.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
letto = ""
GoTo cancella
Else
MessageBox.Show("Password errata. Impossibile procedere con l'operazione.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
letto = ""
GoTo cancella
End If
End While
End Using
End While
Catch
End Try
End Using
End If
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, "", False, System.Text.Encoding.Unicode)
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, letto, True, System.Text.Encoding.Unicode)
MessageBox.Show("Decriptazione completata.", "Bartsoft TextSecurity™ 2007", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
cancella:
End Sub
Private Sub Avanzate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
letto = ""
letto1 = ""
Dim generator As New Random
Dim randomValue As Integer
randomValue = generator.Next(1, 10)
If randomValue = 1 Then
GroupBox3.BackColor = Color.Indigo
ElseIf randomValue = 2 Then
GroupBox3.BackColor = Color.ForestGreen
ElseIf randomValue = 3 Then
GroupBox3.BackColor = Color.Gold
ElseIf randomValue = 4 Then
GroupBox3.BackColor = Color.DarkRed
ElseIf randomValue = 5 Then
GroupBox3.BackColor = Color.DarkGray
ElseIf randomValue = 6 Then
GroupBox3.BackColor = Color.Black
ElseIf randomValue = 7 Then
GroupBox3.BackColor = Color.Salmon
ElseIf randomValue = 8 Then
GroupBox3.BackColor = Color.Navy
ElseIf randomValue = 9 Then
GroupBox3.BackColor = Color.Magenta
ElseIf randomValue = 10 Then
GroupBox3.BackColor = Color.RoyalBlue
End If
End Sub
End Class