السلام عليكم ورجمة الله وبركاته
الذي يستطيع أن يساعدني له دعوة صادقة بظهر الغيب
هذا كود بالفيجول 6 في تشفير xor أريد تحويله إلى الدوت نت
Dim x As String
Dim k As Byte
Private Sub Form_Load()
x = InputBox(" please enter the key ")
If (Asc(x) < 48) Or (Asc(x) > 57) Then
MsgBox (" invalid key ! Please Enter Numeric Key ")
x = InputBox(" please enter the key ")
Else: k = x
Label2.Caption = " Your Key is : " & k
End If
End Sub
Private Sub Text1_Change()
If Text1.Text = " " Then
Text2.Text = " "
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = " you enterd ( " & Chr(KeyAscii) & " ) and it's
ASCII code is ( " & KeyAscii & " ) "
Text2.Text = Text2.Text & Chr ( KeyAscii Xor k )
End Sub
أخواني أنا في أمسَ الحاجة إلى هذا المشروع
أريد التشفير بواسطة ال اكس اور أو الدوران بالدوت نت أو بالسي شارب ولكم جزيل الشكر
