:: vBspiders Professional Network ::

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)

- قسم البرمجة الكائنية (http://www.vbspiders.com/vb/f174.html)

- - كود vb6 (http://www.vbspiders.com/vb/t48822.html)

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

اقدم لكم اليوم كود لتصميم برنامج تشفير و فك تشفير بلغة فيجوال بيسك

تفضلو

كود:

Private Sub Command1_Click()

Dim encrypt

encrypt = ""

ch = Len(Text1)

For i = 1 To ch

letter = Mid(Text1, i, 1)

encrypt = encrypt & Chr(Asc(letter) + 2)

Next

Text2.Text = encrypt

End Sub
 

______
 
 

command 2 
 

Private Sub Command2_Click()

Dim encrypt

encrypt = ""

ch = Len(Text2)

For i = 1 To ch

letter = Mid(Text2, i, 1)

encrypt = encrypt & Chr(Asc(letter) - 2)

Next

Text1.Text = encrypt

End Sub

طبعا لازم يكون عندك شوية خبرة بالفيجوال بيسك حتى تعرف تستخدمه

تحياتي و اتمنى الإستفاده

تسلم ايديك يا غالي

http://www.vbspiders.com/vb/images/Smileys/love.gif

ممكن تعطينا برنامج الفي بي 6 ؟؟ ههههه بحث عليه بس لقيت النسخه بورتابل لوول تسلم على الكود

اقتباس:

المشاركة الأصلية كتبت بواسطة nor15din (المشاركة 334205)

ممكن تعطينا برنامج الفي بي 6 ؟؟ ههههه بحث عليه بس لقيت النسخه بورتابل لوول تسلم على الكود

راجع هذا الموضوع

http://www.vbspiders.com/vb/t23567.html

http://www.vbspiders.com/vb/images/Smileys/cool.gif

اقتباس:

المشاركة الأصلية كتبت بواسطة ChucK NoRRis (المشاركة 334274)

راجع هذا الموضوع

http://www.vbspiders.com/vb/t23567.html

:coool:

احتراماتي لك :coool:

شكرا عالردود شباب