+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] مساعدة في كود تشفير (/showthread.php?tid=14170)
مساعدة في كود تشفير - بلال فريد عباس - 18-12-15
السلام عليكم ورحمة الله
كيف الحال؟ عساكم بخير
ممكن اي شخص يشرحلي عمل كل كود ؟ وعمل كل سطر موجود ؟
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
جزيل الشكر