File encryption center - SerialNumber.vb

File encryption center / SerialNumber.vb

File encryption center - SerialNumber.vb

SerialNumber.vb

1. Public Class SerialNumber
2.     Dim MyName As String = My.Application.Info.AssemblyName
3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
4.     Dim SettingsPath As String = MyDir
5.     Dim ButtonClicked As Boolean = False
6.     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", " "}
7.     Dim CryptArr() 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", "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", "\"}
8.     Private Sub SerialNumber_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
9.         On Error Resume Next
10.         Main.SendToBack()
11.     End Sub
12.     Private Sub SerialNumber_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
13.         On Error Resume Next
14.         If ButtonClicked = False Then e.Cancel = True
15.     End Sub
16.     Private Sub SerialNumber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
17.         On Error Resume Next
18.         Me.Text = MyName
19.         InfoLBL.Text = MyName & System.Environment.NewLine & My.Application.Info.Version.ToString
20.         Me.MaximizeBox = False
21.         Dim MyReader As Integer = 0
22.         MyReader = Int(My.Computer.FileSystem.ReadAllText(SettingsPath & "\rewrpass.dll"))
23.         If MyReader = 0 Then RePassTXT.Visible = True : RePassLBL.Text = "تأكيد الكلمة :"
24.         If MyReader = 1 Then RePassTXT.Visible = False : RePassLBL.Visible = True : RePassLBL.Text = "يفضل ضبط إعداد البرنامج لطلب إعادة كلمة السر ، ضماناً لك كي لا تخطئ"
25.     End Sub
26.     Private Sub CancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancleBTN.Click
27.         On Error Resume Next
28.         ButtonClicked = True
29.         Main.FinishOperating()
30.         Me.Close()
31.     End Sub
32.     Private Sub AcceptBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcceptBTN.Click
33.         On Error Resume Next
34.         If PassTXT.Text = RePassTXT.Text And PassTXT.Text.Length >= 8 Then
35.             Dim CryptPassword As String = PassTXT.Text.ToLower
36.             Dim ResultPassword As String = ""
37.             For MyAddad As Integer = 0 To AlphaArr.Length - 1
38.                 CryptPassword = CryptPassword.Replace(AlphaArr(MyAddad), CryptArr(MyAddad))
39.             Next
40.             Main.SetPassword(CryptPassword)
41.             ButtonClicked = True
42.             Me.Close()
43.             Main.Manager.Enabled = True
44.         Else
45.             MsgBox("كلمة المرور غير متطابقة أو أقصر من 10 أحرف ، أعد المحاولة", MsgBoxStyle.OkOnly, MyName)
46.         End If
47.     End Sub
48.     Private Sub PassTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PassTXT.KeyDown
49.         If e.KeyCode = Keys.Enter Then
50.             If RePassTXT.Visible = True Then
51.                 RePassTXT.Select()
52.             Else
53.                 AcceptBTN_Click(sender, e)
54.             End If
55.         End If
56.     End Sub
57.     Private Sub PassTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PassTXT.TextChanged
58.         On Error Resume Next
59.         If RePassTXT.Visible = False Then
60.             RePassTXT.Text = PassTXT.Text
61.         End If
62.     End Sub
63.     Private Sub RePassTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RePassTXT.KeyDown
64.         If e.KeyCode = Keys.Enter Then AcceptBTN_Click(sender, e)
65.     End Sub
66. End Class