Process Modules Project

Process Modules Project source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption center - SerialNumber.vb

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

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.