 |
| File encryption center - Main.vb |
Main.vb
- Public Class Main
- Dim MyName As String = My.Application.Info.AssemblyName
- Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
- '16 Byte - Array :
- Dim IntialCryptBytes() As Byte = {115, 63, 40, 66, 225, 205, 99, 160, 199, 185, 180, 170, 160, 39, 10, 1}
- '64 Byte - Array :
- Dim FinalCryptBytes() As Byte = {231, 35, 0, 63, 225, 113, 3, 160, 12, 185, 180, 170, 160, 73, 10, 1, 115, 98, 75, 66, 225, 205, 99, 160, 199, 185, 180, 170, 95, 39, 10, 68, 115, 4, 40, 211, 225, 205, 99, 160, 24, 185, 180, 170, 160, 39, 10, 1, 115, 69, 40, 66, 225, 25, 221, 160, 199, 185, 180, 170, 160, 39, 10, 253}
- '64 Byte - Array :
- Dim SerialNumberBytes(64) As Byte
- 'My Dims :
- Dim Addad As Integer = 0
- Dim AnimateX As Integer = 0
- Dim AnimateY As Integer = 0
- Dim MyOpacity As Integer = 0
- Dim MyCommand As String = "Crypt"
- Dim BytesAdder As Double = 0
- Dim SettingsPath As String = MyDir
- Dim CryptFileName As Boolean = False
- Dim LocalFileName As String = ""
- Dim ExitBecauseNotFound As Boolean = False
- Dim AlphaArr() As String = {"ا", "أ", "إ", "ئ", "ء", "ى", "ة", "ؤ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي", "لا", "ّ", "َ", "ً", "ُ", "ٌ", "لإ", "‘", "÷", "؛", "ِ", "ٍ", "[", "]", "لأ", "أ", "ـ", "،", "~", "ْ", "{", "}", "لآ", "آ", "’", ".", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", ",", ".", ";", "'", "[", "]", "!", "@", "#", "$", "%", "^", "&", "(", ")", "-", "=", "_", "+", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " "}
- Dim CryptArr() As String = {"ỹ", "╬", "ỷ", "╫", "ỵ", "╪", "ỳ", "╩", "ự", "╨",
Hello, 