السلام عليكم و رحمة الله و بركاته
اقدم لكم اليوم كود لتصميم برنامج تشفير و فك تشفير بلغة فيجوال بيسك
تفضلو
كود:
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
طبعا لازم يكون عندك شوية خبرة بالفيجوال بيسك حتى تعرف تستخدمه
تحياتي و اتمنى الإستفاده
;,] vb6