كود vb6

[MazMaz]

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

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


تفضلو

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

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

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

 

[ChucK NoRRis]

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

 

[bleu moon]

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

 

[ChucK NoRRis]

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

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

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

 

[bleu moon]

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

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

:coool:

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

 

[MazMaz]

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