[بلال فريد عباس]

السلام عليكم ورحمة الله


كيف الحال؟ عساكم بخير




ممكن اي شخص يشرحلي عمل كل كود ؟ وعمل كل سطر موجود ؟

PHP كود :

Private Sub Command1_Click()
   Text2.Text = Encrypt(Text1.Text, Len(Text1.Text))
End Sub
 
Public Function Encrypt(Name As String, Key As Long) As String
Dim v As Long, c1 As String, z As String
   For v = 1 To Len(Name)
       c1 = Asc(Mid(Name, v, 1))
       c1 = Chr(c1 + Key)
       z = z & c1
   Next v
   Encrypt = z
End Function 


جزيل الشكر