18-12-15, 11:31 PM
السلام عليكم ورحمة الله
كيف الحال؟ عساكم بخير
ممكن اي شخص يشرحلي عمل كل كود ؟ وعمل كل سطر موجود ؟
جزيل الشكر
كيف الحال؟ عساكم بخير
ممكن اي شخص يشرحلي عمل كل كود ؟ وعمل كل سطر موجود ؟
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
جزيل الشكر