Imports System.Windows.Forms
Imports System.Security
Imports System.Text
Imports System.Security.Cryptography.SHA512Managed
Public Class Form1
Public Function SHA512Crip(ByVal Source) As String
Dim Bytes() As Byte = ASCIIEncoding.ASCII.GetBytes(Source)
Dim SHA512 As New Cryptography.SHA512Managed
Dim Byt() As Byte = SHA512.ComputeHash(Bytes)
Dim a As Integer = (Byt.Length * 5 + (Byt.Length / 9))
Dim StrBuild As StringBuilder = New StringBuilder(a)
Dim a2 As Integer
For a2 = 0 To Byt.Length - 4
StrBuild.Append(BitConverter.ToString(Byt, a2, 1))
Next a2
Return StrBuild.ToString().TrimEnd(New Char() {" "c}).ToLower
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = SHA512Crip(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.Title = "Apertura file di testo per operazione di criptaggio"
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.InitialDirectory = "C:\"
OpenFileDialog1.Filter = "file di testo (*.txt) | *.txt|" & "tutti i file(*.*)| *.*"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim File As New IO.
StreamReader(OpenFileDialog1.
FileName)
Me.
TextBox1.
Text = File.
ReadToEnd
MessageBox.Show("Lettura file di testo terminata con successo", "Lettura eseguita", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim File As New IO.
StreamWriter("C:\FileCriptato.txt")
File.
Write(Me.
TextBox2.
Text.
ToString)
MessageBox.Show("Salvataggio del file di testo criptato terminato con successo nel percorso 'C:\'", "Salvataggio eseguito", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Clipboard.SetDataObject(Me.TextBox2.Text)
End Sub
End Class