Visual Basic 2010

У меня на компьютере не установлен антивирус, а пароли хранятся в файле. Решил защитить шифрованием. Но бесплатных программ не нашёл. Думаю, уж лучше сделать свою. Хотел попробовать на C#, но среду разработки устанавливать - одна морока)) Если кто хочет этим заниматься, переходите по ссылке. А я - потом.

А пока - на Visual Basic:

Public Sub encrypt(ByVal Pass As String, ByVal InputFile As String, ByVal OutputFile As String, ByVal Crypt As Boolean)
Dim ByteIN As Byte() = IO.File.ReadAllBytes(InputFile), ByteOut(ByteIN.Length - 1) As Byte, PL As Integer = Pass.Length, bPass() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(Pass), biPass(bPass.Length - 1) As Integer
bPass.CopyTo(biPass, 0)
If Crypt Then
For i As Integer = 0 To ByteIN.Length - 1
ByteOut(i) = (ByteIN(i) + biPass(i Mod PL)) Mod 256
Next
Else
For i As Integer = 0 To ByteIN.Length - 1
ByteOut(i) = (256 + ByteIN(i) - biPass(i Mod PL)) Mod 256
Next
End If
IO.File.WriteAllBytes(OutputFile, ByteOut)
End Sub
Function B(ByVal S As Char, ByVal Inp As Byte, ByVal Crypt As Boolean) As Byte
If Crypt Then
Return IIf(Inp + Asc(S) > 225, Inp + Asc(S) - 256, Inp + Asc(S))
Else
Return IIf(Inp - Asc(S) < 0, 256 + Inp - Asc(S), Inp - Asc(S))
End If
End Function

Шифрует просто замечательно. Побитно. Я один раз файл pic.png зашифровал в pic2.jpg и потом расшифровал в pic3.bmp. Конвертирует довольно хорошо. А ещё может сделать из exzeshnik.exe exzeshnik.txt и наоборот.

Кстати, после шифрования надо убить входной файл командой Kill(<файл>). В приведённом коде это не предусмотрено, это надо сделать после вызова процедуры encrypt() c необходимыми параметрами. Объясняю, что за параметры:

Pass - код шифрования;

InputFile - входной файл (который будет зашифрован);

OutputFile - выходной файл (путь и имя того файла, который получится, чтобы сохранить его);

Crypt - шифровать или расшифровывать. При значении True InputFile будет зашифрован и результат будет сохранён в OutputFile, а при значении False зашифрованный InputFile будет расшифрован и результат будет сохранён в OutputFile.

Итак, вызываем encrypt() с объяснёнными выше параметрами, убиваем входной файл - и всё. У меня получился такой шифратор:

Кто заинтересовался - посмотрите видос:

Я сделал программу для Windows и пишу для неё установщик. И столкнулся с проблемой: надо создать ярлык. Нашёл, что мне поможет: библиотека Interop.IWshRuntimeLibrary. (ссылка на скачивание). С кодом чуть-чуть сложнее:

Try
Dim k As String = TextBox1.Text
Dim WshShell As New WshShell
Dim shortcut As WshShortcut
shortcut = WshShell.CreateShortcut(TextBox1.Text & TextBox2.Text & ".lnk")
With shortcut
.TargetPath = TextBox3.Text
.WindowStyle = 1
.IconLocation = TextBox3.Text & ", 0"
.Arguments = ""
.Save()
End With
WshShell = Nothing
shortcut = Nothing
Catch
MsgBox("Не получилось!", vbCritical)
End Try

В TextBox1 должно быть указано, где лежит ярлык, в TextBox2 - его имя (ну как имя файла), в TextBox3 - файл, на который этот ярлык будет ссылаться. При ошибке программа выдаст сообщение с иконкой ошибки.

Это работает!

А вот видео:

Пишу программу, которая должна предупреждать пользователя, когда понижается заряд аккумулятора. И кроме предупреждения, она должна понижать яркость монитора, чтобы этот заряд экономить. Еле нашёл библиотеку для изменения яркости. Это System.Management.dll (не нажимайте на ссылку, это какой-то сайт с доменом system.management). Ну а с кодом всё уже проще, он должен быть такой:

Imports System.Management
Namespace SBrightness
Class Brightness
Shared windowsbegunok As String = "00"
Dim b As Byte = 100
Shared Sub LockWindowsBrightnessFunction()
windowsbegunok = "00"
Dim currentBrightness As Integer = GetBrightness()
start:
If windowsbegunok = "0" Then Exit Sub
While currentBrightness = GetBrightness()
System.Threading.Thread.Sleep(500)
End While
If Not windowsbegunok.EndsWith("1") Then
SetBrightness(currentBrightness)
End If
If windowsbegunok = "0" Then Exit Sub
GoTo start
End Sub
Shared Sub UnlockWindowsBrightnessFunction()
windowsbegunok = "0"
End Sub
Shared Function GetBrightness() As Integer
Dim s As New System.Management.ManagementScope("root\WMI")
Dim q As New System.Management.SelectQuery("WmiMonitorBrightness")
Dim mos As New System.Management.ManagementObjectSearcher(s, q)
Dim moc As System.Management.ManagementObjectCollection = mos.[Get]()
Dim curBrightness As Byte = 0
For Each o As System.Management.ManagementObject In moc
curBrightness = CType(o.GetPropertyValue("CurrentBrightness"), Byte)
Exit For
Next
moc.Dispose()
mos.Dispose()
Return CType(curBrightness, Integer)
End Function
Shared Sub SetBrightness(ByVal targetBrightness As Byte)
Dim s As New System.Management.ManagementScope("root\WMI")
Dim q As New System.Management.SelectQuery("WmiMonitorBrightnessMethods")
Dim mos As New System.Management.ManagementObjectSearcher(s, q)
Dim moc As System.Management.ManagementObjectCollection = mos.[Get]()
For Each o As System.Management.ManagementObject In moc
o.InvokeMethod("WmiSetBrightness", New [Object]() {UInt32.MaxValue, targetBrightness})
Exit For
Next
moc.Dispose()
mos.Dispose()
windowsbegunok &= "1"
System.Threading.Thread.Sleep(500)
windowsbegunok &= "2"
End Sub
End Class
Class BrightnessRandom
Shared Property MaxRandomBrightness As Byte = 100
Shared Property MinRandomBrightness As Byte = 1
Shared Sub SetRandomBrightness()
Dim randomGenerator As New Random
Dim i As Integer
i = randomGenerator.Next(MinRandomBrightness, MaxRandomBrightness)
Brightness.SetBrightness(i)
End Sub
End Class
End Namespace

Длинный, но что поделаешь. Это процедуры. А вот их вызов:

SBrightness.Brightness.SetBrightness(15)

И это работает, я проверил!

Кстати, вот видео: