How to Encrypt and Decrypt Password in VB.Net

ដើម្បីជៀសវាង ការលួចយកទិន្នន័យពីក្រុមអ្នកHacker យើងត្រូវតែមានPassowrdដើម្បីការពារទិន្នន័យរបស់យើង។តែយ៉ាងណាមិញ យើងនៅតែមិនអាចការពារបាន១០០ភាគរយដែរ ពីសំណាក់Hacker។ ថ្ងៃនេះ អាយធីជនបទ បានលើកយករបៀបEncrypt Password ដោយប្រើប្រាស់ភាសាកម្មវិធី VB.Net ដែលអាចបំលែងPasswordរបស់យើងទៅជាទំរង់មួយផ្សេងទៀតដែលពិបាកអានយល់។ តោះអនុវត្តទាំងអស់គ្នា ៖

ទាញយកToturial (SlideShow)

1. អ្នកអាចបង្កើតនូវFormមួយ ដោយមានLabel ចំនួន២ Button ចំនួន២ និង TextBoxចំនួន២ ។អ្នកអាចកំណត់Propertiesរបស់ពួកវាដូចខាងក្រោម៖
   
   1. TextBox1_Name:txtPassword
      TextBox2_Name:txtResult
   2. Button1_Name:btnEncrypt
      TextBox2_Name:btnDecrypt
2. បន្ទាប់មកអនុវត្តសរសេរកូដដូចខាងក្រោម៖
Public Class Form1
Dim code() as Intenger
Private btnEncrypt_Click(sender as Object,e as EventArgument) Handles btnEncrypt.Click
Dim st as String=""
Dim rnd as New Random
Dim l() as Char =txtPassword.Text.ToCharArray
ReDim code(UBound(l))
For i as Integer=0 to UBound(l)
code(i)=rnd.Next(48,127) st = st + ChrW(AscW(l(i)) + code(i))
Next
txtResult.Text=st End Sub
Private Sub btnDecrypt_Click(sender As Object, e As EventArgs) Handles btnDecrypt.Click
Dim st As String = ""
Dim l() As Char = txtPassword.Text.ToCharArray
ReDim code(UBound(l))
For i As Integer = 0 To UBound(l)
st = st + ChrW(AscW(l(i)) - code(i))
Next
txtResult.Text = st
End Sub
End Class