SNoteBook

У меня на компьютере не установлен антивирус, а пароли хранятся в файле. Решил защитить шифрованием. Но бесплатных программ не нашёл. Думаю, уж лучше сделать свою. Хотел попробовать на 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)

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

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

Даже не ожидал, что у Visual Basic 2010 есть такие возможности. Там есть метод, который запускает команду Windows для выключения компьютера. Метод такой:

Для выключения: Shell("Shutdown -s -f -t 00")

Для перезагрузки: Shell("Shutdown -r -f -t 00")

А вот для выхода из системы код немного другой. После Public Class Form1 код должен быть такой:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Без него нельзя. Но для собственно выхода нужен другой код (этот тоже оставьте). Его писать в том месте, где надо выйти. Вот такой:

ExitWindowsEx(0, 0)

Выглядеть будет так:

Это работает!!!!!! А вот видео: