كود 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]

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

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

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

[bleu moon]

اقتباس المشاركة الأصلية كتبت بواسطة ChucK NoRRis راجع هذا الموضوع http://www.vbspiders.com/vb/t23567.html :coool:

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

[MazMaz]

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